Letzte Zelle die Frei ist bestimmte Spalte finden
24.06.2006 14:38:32
Bengel
Ich will die Letzte freie Zelle einer bestimmten Spalte finden um daraus einen Breich zu machen und den dann zu kopieren.
Folgendes habe ich ausprobiert aber da erkennt der Compi nur die letzte freie Zelle des ganzen Tabellenblattes und der zuletzt beschriebenen Spalte :-(
hier mein Beispiel:
Function LWA(s As String, Spalte As Integer)
LWA = Worksheets(s).Columns(Spalte).SpecialCells(xlCellTypeLastCell).Address
End Function
Sub BereicheKopieren()
Set Bereich = Range(Cells(2, "B"), LWA("Beschriftungen", 2))
Bereich.Copy
//// ---- ab hier hat er schon den falschen bereich markiert------
Sheets("zb10").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Eigentlich sollte das doch so funktionieren hrmpf :-(
Ich wär echt froh wenn mal jemand den doch beinhaltenden Fehler finden könnte oder vielleich geh ich die Sache auch falsch an.
Gruß und Danke Bengel
Anzeige