AW: Autoform nur ausführen wenn ausgefüllt
28.07.2011 09:52:53
Thorsten
Also bei mir klappt es nicht!
Wie muss ich das denn einfügen? Hab jetzt verschiedene Sachen probiert, ich poste einfach mal die kompletten Befehle:
Private Sub CommandButton2_Click()
Leiste = TextBox2.Value
' Suche Spalte D nach erster leerer Zelle
Columns("D:D").Select
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
' Active Zelle Leiste eintragen
ActiveCell = Leiste
OP = TextBox3.Value
' Suche Spalte A nach erster leerer Zelle
Columns("A:A").Select
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
' Active Zelle OP eintragen
ActiveCell = OP
Werkzeug = TextBox1.Value
' Suche Spalte B nach erster leerer Zelle
Columns("B:B").Select
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
' Active Zelle Werkzeug eintragen
ActiveCell = Werkzeug
For Each tb In uf1
If tb.Value = "" Then MsgBox ("ausfüllen")
Next tb
Unload Me
End Sub
Ist es da unten richtig?! Muss ich noch irgendwas anpassen?!