Eingabe per UserForm in Tabelle
27.02.2004 12:45:20
Ina
einen schönen Tag wünsche ich in die Runde!
Mein Problem:
Mit diesem Code (freundlicherweise von Ramses zur Verfügung gestellt) wurden Werte bisher per UserForm1 in die Tabelle2 Bereich B8:Y107 geschrieben.
Nun sollen die Eingaben mit derselben UserForm1 aber in die Tabelle1 Bereich DD193:EA292 erfolgen.
Private Sub CommandButton1_KLICK()
Dim intIndex As Integer, bolausgefüllt As Boolean, lngleereZeile As Long
For intIndex = 1 To 5
If Controls("TextBox" & CStr(intIndex)) = "" Then
Call FehltWas
Controls("TextBox" & CStr(intIndex)).SetFocus
Exit Sub
End If
Next
For intIndex = 1 To 7
If Controls("CheckBox" & CStr(intIndex)) = True Then bolausgefüllt = True: Exit For
Next
If Not bolausgefüllt Then
MsgBox "Angabe fehlt: Gültig am... ", 48, "Hinweis :-)"
Exit Sub
End If
With Worksheets("TABELLE2")
lngleereZeile = .Cells(65536, 2).End(xlUp).Row + 1
If lngleereZeile < 8 Then lngleereZeile = 8
For intIndex = 1 To 5
.Cells(lngleereZeile, intIndex + 1) = Controls("TextBox" & CStr(intIndex))
Controls("TextBox" & CStr(intIndex)) = ""
Next
For intIndex = 1 To 7
.Cells(lngleereZeile, intIndex + 6) = IIf(Controls("CheckBox" & CStr(intIndex)), "X", "")
Controls("CheckBox" & CStr(intIndex)) = False
Next
For intIndex = 6 To 17
.Cells(lngleereZeile, intIndex + 8) = Controls("TextBox" & CStr(intIndex))
Controls("TextBox" & CStr(intIndex)) = ""
Next
End With
TextBox1.SetFocus
If lngleereZeile = 107 Then
MsgBox "Die Tabelle ist voll." & vbCrLf & "Die Eingabe wird abgebrochen.", 48, "Hinweis :-)"
Unload Me
End If
End Sub
Ich habe mein Glück versucht, bekomme aber immer nur eine Fehlermeldung...
Daher meine Bitte: Wer kann den Code für einen VBA-Laien umschreiben??
Grüsse, Ina