Hallo ich bin es nochmal :)
nachdem Ihr mir bei meinem letzten Problem so unheimlich gut geholfen habt will ich ein weiteres Problem einstellen.
Ich habe einen Code mit dem ich die letzte freie Zeile suche. Das funktioniert auch, allerdings spricht er auch auf farblich formatierte Zeilen an. Die Farbliche Formatierung soll aber bestehen bleiben und trotzdem nur die inhaltlich letzte leere Zeile gefunden werden.
auf diese Weise gehe ich vor:
Dim WB As Workbook, WS As Worksheet, C As Range, ErsteReihe As Long, Spaltenzähler As Long
Set WB = ThisWorkbook
Set WS = WB.Sheets(2)
Set C = WS.Cells
ErsteReihe = 1
For Spaltenzähler = 1 To WS.Columns.Count
If C(WS.Rows.Count, Spaltenzähler).End(xlUp).Row > ErsteReihe Then
ErsteReihe = C(WS.Rows.Count, Spaltenzähler).End(xlUp).Row + 1
End If
Next Spaltenzähler
MsgBox ErsteReihe
mit freundlichem Gruß Max
|