Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Daten Eingabe | Herbers Excel-Forum


Betrifft: Daten Eingabe von: Ralf
Geschrieben am: 12.01.2012 20:04:41

Hallo Forum

Gebe über Userform1 Daten ins Tabellenblatt ein . Meine Frage ist kann man den Code kürzer schreiben.

Public Sub DatenEingabe()
With ActiveSheet
For lngSpalte = 2 To 65536
 If .Cells(lngSpalte, 20) = Empty Then
  .Cells(lngSpalte, 20) = UserForm1.ComboBox2.Text
   .Cells(lngSpalte, 21) = UserForm1.TextBox2.Text
    .Cells(lngSpalte, 22) = UserForm1.TextBox3.Text
     .Cells(lngSpalte, 23) = UserForm1.TextBox4.Text
      .Cells(lngSpalte, 24) = UserForm1.TextBox5.Text
       .Cells(lngSpalte, 25) = UserForm1.TextBox6.Text
        .Cells(lngSpalte, 26) = UserForm1.TextBox7.Text
         .Cells(lngSpalte, 27) = UserForm1.TextBox8.Text
        .Cells(lngSpalte, 28) = UserForm1.TextBox9.Text
       .Cells(lngSpalte, 29) = UserForm1.TextBox10.Text
      .Cells(lngSpalte, 30) = UserForm1.TextBox11.Text
     .Cells(lngSpalte, 31) = UserForm1.TextBox12.Text
    .Cells(lngSpalte, 32) = UserForm1.TextBox13.Text
   .Cells(lngSpalte, 33) = UserForm1.TextBox14.Text
  .Cells(lngSpalte, 34) = UserForm1.TextBox15.Text
 .Cells(lngSpalte, 35) = UserForm1.TextBox16.Text
.Cells(lngSpalte, 36) = UserForm1.TextBox17.Text
Exit For
End If
Next
End With
End Sub

mfg Ralf

  

Betrifft: AW: Daten Eingabe von: Martin
Geschrieben am: 12.01.2012 20:53:32

Hallo Ralf,

ungetestet, aber hoffentlich fehlerfrei:

Public Sub DatenEingabe()
    Dim lngSpalte As Long, intTbx As Integer
    With ActiveSheet
        For lngSpalte = 2 To 65536
            If .Cells(lngSpalte, 20) = Empty Then
                .Cells(lngSpalte, 20) = UserForm1.ComboBox2.Text
                For intTbx = 2 To 17
                    .Cells(lngSpalte, intTbx + 19) = UserForm1.Controls("TextBox" & intTbx). _
Text
                Next
                Exit For
            End If
        Next
    End With
End Sub
Viele Grüße

Martin


  

Betrifft: AW: Daten Eingabe von: Josef Ehrensberger
Geschrieben am: 12.01.2012 20:54:22


Hallo Ralf,

ungetestet!

Public Sub DatenEingabe()
  Dim lngNextRow As Long, lngIndex As Long
  
  With ActiveSheet
    lngNextRow = Application.Max(2, .Cells(.Rows.Count, 20).End(xlUp).Row + 1)
    .Cells(lngNextRow, 20) = UserForm1.ComboBox2.Text
    For lngIndex = 21 To 36
      .Cells(lngNextRow, lngIndex) = UserForm1.Controls("TextBox" & lngIndex - 19).Text
    Next
  End With
  
End Sub






« Gruß Sepp »



  

Betrifft: AW: Daten Eingabe von: Ralf
Geschrieben am: 12.01.2012 21:13:12

Hallo Josef und Martin und Forum



Läuft hervorragend . Vielen dank für die schnelle Hilfe



Gruss ralf


Beiträge aus den Excel-Beispielen zum Thema "Daten Eingabe"