Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
07.10.2014 12:27:22 |
SmartyN15 |
|
|
|
07.10.2014 16:05:55 |
Gast52488 |
|
|
|
07.10.2014 16:09:49 |
Gast74523 |
|
|
|
07.10.2014 16:24:26 |
Free |
|
|
|
07.10.2014 16:43:46 |
SmartyN15 |
|
|
|
07.10.2014 16:44:18 |
Gast25351 |
|
|
Laufzeitfehler 13 Typen unverträglich |
07.10.2014 22:36:11 |
Gast34382 |
|
|
Von:
Gast34382 |
Datum:
07.10.2014 22:36:11 |
Views:
1758 |
Rating:
|
Antwort:
|
Thema:
Laufzeitfehler 13 Typen unverträglich |
Wie das schon ein Gast in der ersten Antwort geschrieben hat, solltest du das nach Möglichkeit in einer Schleife regeln.
Ungefähr so:
Option Explicit
Private Sub CommandButton1_Click()
Dim rngCell As Excel.Range
With ThisWorkbook.Worksheets("Tabelle1")
'erster leere Zelle in Spalte A suchen (von unten aus betrachtet)
Set rngCell = .Cells(.Rows.Count, "A").End(xlUp)
If Not IsEmpty(rngCell.Value) _
Then Set rngCell = rngCell.Offset(1)
End With
Dim i As Long
For i = 1 To 29
With Controls("TextBox" & CStr(i))
If Trim$(.Text) <> "" Then
'Inhalt der TextBox in die aktuelle (leere) Zelle schreiben
If IsNumeric(.Text) Then
rngCell.Value = CDbl(Text)
Else
rngCell.Value = Trim$(.Text)
End If
'eine Zelle tiefer
Set rngCell = rngCell.Offset(1)
End If
End With
Next
End Sub
Zahlen müssen entsprechend der Ländereinstellung des Betriebsystems eingegeben werden, ansonsten kommt es zu einer falschen Darstellung.
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
07.10.2014 12:27:22 |
SmartyN15 |
|
|
|
07.10.2014 16:05:55 |
Gast52488 |
|
|
|
07.10.2014 16:09:49 |
Gast74523 |
|
|
|
07.10.2014 16:24:26 |
Free |
|
|
|
07.10.2014 16:43:46 |
SmartyN15 |
|
|
|
07.10.2014 16:44:18 |
Gast25351 |
|
|
Laufzeitfehler 13 Typen unverträglich |
07.10.2014 22:36:11 |
Gast34382 |
|
|