Keine Daten Dauerschleife
31.10.2020 17:25:59
Mani
ich habe da noch ein Problem bzw eine Frage,
Ich habe ein Makro das Daten aus zwei Tabellen aufarbeitet und in ein drittes einfügt.
Das funktioniert einwandfrei (Dank eurer Hilfe)
Sollten sich auf einem Tabellenblatt mal keine Daten befinden läuft der Code in eine Dauerschleife.
Gibt es eine Möglichkeit das Tabellenblatt zu überprüfen ob Daten vorhanden sind ?
Wenn ja soll der Code ganz normal weiterlaufen und wenn nein soll ein gewisser Teil übersprungen werden.
Habe im Forum ,Google,... schon gesucht nur leider nichts gefunden.
Meine eigenen Versuche mit goto haben alle nicht geklappt.
Ohne Daten komme ich hier in die Dauerschleife:
LetzteZeile = Cells(Rows.Count, 1).End(xlUp).Row
A = 1
i = A
Ende = LetzteZeile
Zusatz = Right(Cells(A, 1).Value, 11)
Do
If Right(Cells(i + 1, 1).Value, 11) Zusatz Then
Rows(i + 1).Insert
A = i + 2
Zusatz = Right(Cells(A, 1).Value, 11)
i = i + 1
Ende = Ende + 1
End If
i = i + 1
Loop Until i = Ende
Hat vielleicht jemand eine Idee oder ein Beispiel?
Vielen Dank und viele Grüße
der Mani