ich habe in einer Excel-Tabelle einen Button, der beim Anklicken den Wert, der in einer TextBox steht, in eine bestimmte Spalte schreibt. Der Code sieht dazu so aus:
Code: Alles auswählen
Private Sub CommandButton1_Click()
Dim Index, zelle, zeile, max, spalte
zeile = 0
max = 999
spalte = 1
For Index = 1 To max
zelle = Cells(Index, spalte)
If a = 0 Then
If zelle = "" Then
zeile = Index
Index = max
End If
End if
Next
Cells(zeile, spalte) = TextBox1
Cells(zeile, spalte + 1) = TextBox1
End Sub
MfG
ms001