danke andreas , hat grade geklappt als ich deinen post las. ichh finds echt geil, jetzt am anfang die kleinen erfolgserlebnisse wenn was klappt.ich werd heut sicherlich noch länger aufbleiben !
p.s.:
bzw. bissl anders hab ichs gemacht. verbesser mich falls es nciht stimmt. ->
modulcode:
Sub Auto_Open()
UserForm1.Show
End Sub
user form1 code :
rivate Sub CommandButton1_Click()
Set frm = UserForm1
Sheets("Tabelle1").Activate
'letzte belegte Zelle in Tabelle finden
Range("A65536").End(xlUp).Offset(1, 0).Select
With frm
ActiveCell.Value = .TextBox1.Value
ActiveCell.Offset(0, 1).Value = .TextBox2.Value
ActiveCell.Offset(0, 2).Value = .TextBox3.Value
ActiveCell.Offset(0, 3).Value = .TextBox4.Value
ActiveCell.Offset(0, 4).Value = .TextBox5.Value
ActiveCell.Offset(0, 5).Value = .TextBox6.Value
'Optionsfelder auswerten
If .OptionButton1.Value = True Then
ActiveCell.Offset(0, 6).Value = "JA"
Else
ActiveCell.Offset(0, 6).Value = "NEIN"
End If
End With
End Sub
Sub UserForm_Initialize()
UserForm1.Caption = _
ActiveSheet.Parent.BuiltinDocumentProperties("Company")
End Sub
Private Sub CommandButton2_Click()
Unload Me
UserForm2.Show
End Sub
Private Sub CommandButton3_Click()
Dim tb As Object
For Each tb In UserForm1.Controls
If TypeName(tb) = "TextBox" Then tb.Text = ""
Next tb
End Sub
Private Sub TextBox1_Enter()
HintergrundFärben
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
HintergrundZurücksetzen
End Sub
Private Sub TextBox2_Enter()
HintergrundFärben
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
HintergrundZurücksetzen
End Sub
Private Sub HintergrundFärben()
Me.ActiveControl.BackColor = RGB(255, 0, 0)
End Sub
Private Sub HintergrundZurücksetzen()
Me.ActiveControl.BackColor = RGB(255, 255, 255)
End Sub
Private Sub TextBox1_AfterUpdate()
If Not IsDate(TextBox1) Then
MsgBox "Kein gültiges Datum!", vbCritical, "Falsches Datum"
Exit Sub
End If
TextBox1 = Format(TextBox1, "mm/dd/yyyy")
End Sub
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox4.Text) < 5 Then _
MsgBox "Die Rechnungsnummer muss mindestens 5 Stellen aufweisen!"
End Sub
Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox6.Text) = 0 Then Exit Sub
If Not IsNumeric(TextBox6.Text) Then
MsgBox "Sie müssen einen numerischen Wert eingeben!"
Cancel = True
End If
End Sub
Private Sub UserForm_Activate()
Label1.Caption = ThisWorkbook.Sheets(1).Range("A1").Text
Label2.Caption = ThisWorkbook.Sheets(1).Range("B1").Text
Label3.Caption = ThisWorkbook.Sheets(1).Range("C1").Text
Label4.Caption = ThisWorkbook.Sheets(1).Range("D1").Text
Label5.Caption = ThisWorkbook.Sheets(1).Range("E1").Text
Label6.Caption = ThisWorkbook.Sheets(1).Range("F1").Text
End Sub
naja des nach 2 tagen ist shcon ganz nett oder ? :p
thx nochmal