Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

Userform Textfeld

Betrifft: Userform Textfeld von: Girstmair Hansjörg
Geschrieben am: 26.06.2006 23:46:49

Hallo Ihr Excel Profis!!
Brauche dringend Eure Hilfe. Habe eine Userform mit 80 Textfeldern (kleine Kästchen in denen nur eine Zahl oder ein Buchstabe geschriben wird. Ich müßte diese Werte welche in diese Kästchen geschrieben werden in die Tabelle (Eingabe)schreiben und zwar beginnend mit B2-C2-D2 usw... Diese Werte dürfen nicht vertikal sondern müssen horizontal eingetragen werden.
Es gibt in dieser Userform einen cmdButton, mit der Bezeichnung "Übertragen". Wenn am Ende der Eingaben (nach dem Ausfüllen aller 80 Textfelder) dieser Button gedrückt wird, sollen alle Werte dieser Felder in die Tabelle (Eingabe) geschrieben, diese Felder wieder geleert und der Fokus wieder auf das erste Textfeld (textfeld1) gesetzt werden.
Der nächste Datensatz muß dann wieder in der nächsten Zeile mit B3 C3 usw. beginnen.

Diese texfelder sind definiert mit textfeld1 - textfeld80

Bitte bitte ich bräuchte Eure Hilfe dringen!!!

Danke für eure Hilfe im Voraus!!!

LG Hansjörg

  


Betrifft: AW: Userform Textfeld von: Josef Ehrensberger
Geschrieben am: 26.06.2006 23:56:11

Hallo Hansjörg!

Private Sub CommandButton1_Click()
Dim intC As Integer
Dim lnglast As Long

With Sheets("Tabelle1") ' Tabellenname anpassen!
  
  lnglast = .Cells(Rows.Count, 2).End(xlUp).Row + 1
  
  If lnglast < 2 Then lnglast = 2
  
  If lnglast > 65536 Then
    MsgBox "Voll"
    Exit Sub
  End If
  
  For intC = 1 To 80
    If IsNumeric(Controls("textfeld" & intC)) Then
      .Cells(lnglast, intC + 1) = CDbl(Controls("textfeld" & intC))
    Else
      .Cells(lnglast, intC + 1) = Controls("textfeld" & intC)
    End If
    Controls("textfeld" & intC) = ""
  Next
  
End With

textfeld1.SetFocus

End Sub




Gruß Sepp



  


Betrifft: AW: Userform Textfeld von: Girstmair Hansjörg
Geschrieben am: 27.06.2006 00:58:00

Hallo Sepp! Vielen vielen Dank für Deine so superschnelle Hilfe!!!!!!!

Hat SUPER funktioniert.

Danke nochmals!!

LG

Hansjörg


 

Beiträge aus den Excel-Beispielen zum Thema "Userform Textfeld"