ab aktiver Zelle alle gefüllten Zellen finden
05.01.2017 01:37:53
bassi2008
Werner war letztens so freundlich mir diesen Code hier zu basteln:
Dim rngBereich As Range
Set rngBereich = Sheets("Tabelle1").Range("B2:H" & Sheets("Tabelle1").Cells(Rows.Count, _
2).End( _
xlUp).Row)
With rngBereich
rngBereich.Copy
Ich würde das gern noch etwas verfeinern.
Könnte man statt ab B2 zu suchen, auch "erst" mit der aktiven Zelle die z.b. in B20 oder B50 sein könnte anfangen?
Viele Grüße
bassi