Abfrage "Leer" klapp, "NEU" nicht
08.09.2021 14:36:41
torro100
mit dem Code hole ich mir den Inhalt der Spalte A jeweilige Zelle aus dem Mitgliederblatt.
Auch wenn es sehr lange läuft, klappt das.
Wenn ich den Passus "" austausche gegen "neu", und ein anderes Zielblatt in gleicher Datei angebe, passiert nichts.
Denkfehler? etwas vergessen / übersehen?
In den Zellen der Spalte O steht entweder nichts(""), oder "neu" oder "K".
Es sind also bei der Abfrage nach NEU auch leere Zellen dazwischen.
Wenn jemand auch noch einen Tipp hat, wie man das beschleunigen könnte , wäre ich sehr dankbar.
Sub import_Bestand()
Dim lastrow As Integer
Dim a As Integer
Dim b As Integer
Dim i As Integer
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.DisplayAlerts = False
lastrow = Worksheets("Mitglieder").Cells(Rows.Count, 1).End(xlUp).Row
MsgBox lastrow & " bei Mitglieder"
i = lastrow
a = 3
b = 4
For i = 1 To i
If Worksheets("Mitglieder").Cells(a, 15) = "" Then
Worksheets("Mitglieder").Cells(a, 1).Copy _
Destination:=Worksheets("Beitrag_Bestand").Cells(b, 4)
a = a + 1
b = b + 1
Else
a = a + 1
End If
Next i
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub