|
Hallo allerseits,
ich habe eine große Datenbank in Excel, die ich auswerten muss. Dabei stoße ich auf folgendes Problem: Ich möchte, dass mein VBA Code die Range A4-A2000 durchsucht und leere Zellen identifiziert. Wenn eine Zelle leer ist, soll der Zellinhalt der darüberliegenden Zelle in die leere Zelle kopiert werden. Wenn die Zelle schon einen Wert enthält, dann soll er nichts machen und einfach die nächste Zelle auf leer prüfen.
Theoretisch würde das auch manuell gehen - das dauert aber lange. Daher habe ich mir folgenden Code einfallen lassen, der aber nicht funktioniert. Die erste leere Zeile kopiert er noch aber dann nicht mehr. Er geht zwar die einzelnen Zeilen durch aber kopiert nichts mehr.
Private Sub CommandButton1_Click()
Dim zeile, spalte As Integer
Sheets("Database ACT").Select
spalte = 1
For zeile = 4 To 2000
If Cells(zeile, spalte).Value = "" Then
Cells(zeile - 1, spalte).Copy
Cells(zeile, spalte).PasteSpecial
zeile = zeile + 1
End If
Next zeile
End Sub
|