Thema Datum  Von Nutzer Rating
Antwort
07.10.2014 12:27:22 SmartyN15
NotSolved
07.10.2014 16:05:55 Gast52488
NotSolved
07.10.2014 16:09:49 Gast74523
NotSolved
07.10.2014 16:24:26 Free
NotSolved
07.10.2014 16:43:46 SmartyN15
NotSolved
07.10.2014 16:44:18 Gast25351
NotSolved
Rot Laufzeitfehler 13 Typen unverträglich
07.10.2014 22:36:11 Gast34382
NotSolved

Ansicht des Beitrags:
Von:
Gast34382
Datum:
07.10.2014 22:36:11
Views:
1418
Rating: Antwort:
  Ja
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.


Ihre Antwort
  • 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: Name: Email:

 
 

  • 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
NotSolved
07.10.2014 16:05:55 Gast52488
NotSolved
07.10.2014 16:09:49 Gast74523
NotSolved
07.10.2014 16:24:26 Free
NotSolved
07.10.2014 16:43:46 SmartyN15
NotSolved
07.10.2014 16:44:18 Gast25351
NotSolved
Rot Laufzeitfehler 13 Typen unverträglich
07.10.2014 22:36:11 Gast34382
NotSolved