Hallo zusammen,
ich habe eine Datenbank erstellt, in der per Klick neue Daten hinzugefügt werden aus einer Quelldatei. Spalte A ist dabei für die Nummerierung vorgesehen. Mein Code möchte nicht funktionieren, ich weiß aber nicht wieso. Bin absoluter Excel-VBA-Laie.
Private Sub CommandButton1_Click()
Dim i As Long
Dim n As Long
With Worksheets("Datenbank")
For i = 3 To Cells(Rows.Count, "B").End(xlUp).Row
If .Cells(i, 2) <> "" Then
.Cells(i, 1) = n
n = n + 1
End If
Next
End With
End Sub
Falls jemand den Fehler direkt sieht, wäre das mega.
Liebe Grüße
|