ich möchte ab Zelle D7 alles von Tabelle 1 durchlaufen (5000) Zeilen und bei einem bestimmten Begriff in Spalte D (dummy) sollen die Inhalte der Zelle D und E in D zusammengeführt werden. Das Zusammenfügen klappt auch, ich bekomme es nur nicht hin, dass alles durchlaufen wird und finde den Fehler nicht. Wahrscheinlich habe ich viel zu viele Variablen deklariert, oder? Mein Code:
Dim sdyQuelle2 As Worksheet
Dim rdyQuelle2 As Range
Dim dummybereich As Range
Dim ZelleDummy As Range, DummyLand As Range, ZeilenDummy As Long, dy As Long
Set sdyQuelle2 = wbGesamt.Worksheets("Tabelle1")
Set rdyQuelle2 = sdyQuelle2.Range("D7")
Set dummybereich = rdyQuelle2.CurrentRegion
Set ZelleDummy = rdyQuelle2.Offset(dy, 0)
Set DummyLand = rdyQuelle2.Offset(dy, 1)
Set ZeilenDummy = dummybereich.Rows.Count
For dy = 0 To ZeilenDummy - 1
If ZelleDummy = "dummy" Then
ZelleDummy.Offset(dy, 0).Value = ZelleDummy.Offset(dy, 0).Value & DummyLand.Offset(dy, 0).Value
dy = dy + 1
Set ZelleDummy = rdyQuelle2.Offset(dy, 0)
End If
Next dy
Vielen Dank für die Hilfe
sunni