ich möchte in eine Textbox ein Datum eingeben dies soll dann in Spalte A geschrieben werden aber nur wenn in der zelle B daneben 1 steht.
danke Ulf
ich möchte in eine Textbox ein Datum eingeben dies soll dann in Spalte A geschrieben werden aber nur wenn in der zelle B daneben 1 steht.
danke Ulf
so müsste es gehen:
Private Sub TextBox1_Change()
If Cells(1, 2) <> 1 Then Cells(1, 1) = "" Else Cells(1, 1) = TextBox1.Value
End Sub
Gruß
Mike
aber nur in der Zelle A wie kriege ich es hin das es es bei mehreren zellen B untereinander auch funktioniert
danke schon mal für die hilfe bis jetz
ulf
da würde ich eine WhileWend-Schleife d#rumherum bauen:
Private Sub TextBox1_Change()
Dim Zeile as Integer
Zeile = 1
While Sheets(1).Cells(Zeile,1) <>""
Zeile = Zeile + 1
Wend
If Cells(Zeile, 2) <> 1 Then Cells(Zeile, 1) = "" Else Cells(Zeile, 1) = TextBox1.Value
End Sub
Gruß
Mike
bis demnächst
ulf