Abbruch eines Makros bei Erreichen e.leeren Zeile
18.09.2008 06:46:00
Josef
Ich muß regelmäßig Textdateien in ein Arbeitsblatt einlesen lassen.
In dem nachfolgenden Makro Markierung_I werden die Zellen von I1 bis I10000 markiert und danach in diese Zellen die nachstehende Formel reinkopiert.
Wenn ich jedoch z.B. nur 180 Zeilen einlesen lassen muß, dann werden trotzdem die 10000 Formeln klarerweise eingetragen und abgearbeitet.
Formel:
Wenn in der Zeile in der ein Wert steht in der Spalte A kein Wert steht, dann wird in der Spalte I ein "NEIN" eingetragen. Steht in der Spalte A die Zahl 01 bis 09 dann wird ein "JA" eingetragen.
Wie kann ich es bitte ohne Select erreichen, dass nach der letzten wirklich vorhandenen Zeile in der ein Wert steht, der Eintrag der Formel beendet wird und der nächste Vorgang gestartet wird?
Sub Markierung_I()
Range("I1:I10000").Select
End Sub
Sub Formel_einfügen()
Dim rngCell As Range
For Each rngCell In Selection
rngCell.FormulaR1C1 = _
"=IF(OR(RC[-8]=""01"",RC[-8]=""02"",RC[-8]=""03"",RC[-8]=""04"",RC[-8]=""05"",RC[-8]="" _
06"",RC[-8]=""07"",RC[-8]=""08"",RC[-8]=""09""),""JA"",""NEIN"")"
Next
End Sub
Danke
Josef