Abbruchbedingung
28.09.2004 07:29:55
Brent_Spiner
In einer Excel Tabelle habe ich 2 Sheets in Sheet "Kunde" sollen Abkürzunugen aus einer Zelle durch Langtexte aus Sheet 2 "Shorty" gefüllt werden. Jedoch nur so lange, bis in Sheet "kunde" eine leere Zeile auftaucht. Tja, anbei mal, was ich bisher gemacht habe - in der Variante scheint das Makro allerdings in eine Endlosschleife zu laufen.
Dim wks As Worksheet
Dim rngAll As Range, rngAct As Range
Dim rngShortys As Range
i = 1
Set wks = Worksheets("Shortys")
Set WKS2 = Worksheets("Kunde")
Set rngShortys = wks.Columns("A:A")
Columns("B:B").Select
For Each rngAct In Selection
i = i + 1
If Not IsEmpty(WKS2.Cells(i, 2)) Then
If Not IsError(Application.Match(rngAct, rngShortys, 0)) Then
rngAct = wks.Cells(Application.Match(rngAct, rngShortys, 0), 2)
End If
End If
Next rngAct
Würde ich die BEdingung weglassen, rennt er mir anscheinend alle 64tsd zeilen durch und dass wollte ich verhindern. Vielen Dank schon mal,
Grüße Brent