Auslassen eines Schrittes bei leerer Tabelle!
30.01.2004 14:45:31
Daniel
Ich habe ein Problem!!!
Der folgende VBA-Code ist dafür gedacht, einen / mehrere Bestimmte Werte aus einer Tabelle in eine andere zu kopieren! Das ganze hat nur leider einen Haken: Sobald die Tabelle leer ist, funktioniert der Vorgang nämlich nicht und Excel geht alle zur Verfügung stehenden Zeilen durch auf der Such nach irgend einem Wert.
Hier erst einmal der relevante Ausschnitt:
ThisFile = ActiveWorkbook.Name
Workbooks.Open Filename:=SrcFile
i = 1
Range("A12").Select
While Left(Selection.Value, 5) <> "Über-"
i = i + 1
Range("A" & CStr(i)).Select
Wend
SumLineExtract = i
Frage: Wie sag ich dem Makro jetzt, dass es bei einer leeren Tabelle die Suche abbricht und die Tabelle, in die die Werte eigentlich kopiert werden sollten dementsprechend auch leer bleibt?!
Vielen Dank für eure Hilfe!!!
Grüße
Daniel