|
Also eigentlich hatte Ich nun eine Erfolgsmeldung von Dir erwartet, aber offensichtlich beginnen die Nerven an zu flattern.
Düsi, hellsehen kann ich nicht. Ich sehe nur was Du zeigst bzw schreibst. Aber Ich dachte nach 1319Uhr sollte es ein Selbstläufer werden.
Zurück auf los:
With wbZiel.Worksheets("Datenbank")
Msgbox .Cells(.Rows.Count, "B").End(xlUp).Row
Stop
MsgBox .Cells(i, 2) <> ""
Stop
MsgBox .Cells(i,2).Value
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
Führe diesen Code mal aus und teile mir mit, welche Meldungen ausgegeben werden.
|