Hallo und Guten Morgen,
ich bin mal wieder auf der Suche nach einer Lösung.
In Spalte 50 stehen Daten untereinander. In der Spalte 50 kommen aber auch Leerzellen vor.
Nun möchte ich gern die Daten in Spalte 1 ab Zeile 5 untereinander erfassen, aber ohne Leerzellen dazwischen.
Mein Code, fügt zwar die Daten ein, aber nur so, wie sie in Spalte 50 hinterlegt sind, also mit Leerzellen.
Sheets("Gehaltsbogen").Range("A5:A50") = ""
X = 5
For lng = 3 To ActiveSheet.Cells(Rows.Count, 50).End(xlUp).Row
Sheets("Gehaltsbogen").Cells(X, 1) = Sheets("Gehaltsbogen").Cells(lng, 50)
X = X + 1
Next lng
Weiss jemand Rat? Für eure Hilfe schon jetzt dankbar.
Gruß Frank H.