ich weiß nicht was ich falsch mache...
Es soll die nächste freie Spalte gefunden und ausgewählt werden.
Sub letzteSpalte()
Dim intSpaltenanzahl%
intSpaltenanzahl = 0
'letzte Spalte in 1 suchen
Spaltenanzahl = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
'und aktiviert
Cells(intSpaltenanzahl + 1, 1).Activate
End Sub
Wer kann mir bitte weiterhelfen?
Danke.
Servus,
Anton