ich habe ein kleines, grosses Problem mit folgendem Makro. Kurz eine Beschreibung des Ziels:
Mit Hilfe dieses Makroteils (welcher innerhalb eines Moduls untergebracht ist, soll in im Bereich Spalte F bis lastrow jede einzelne Zelle angesprochen werden um von der Textformatierung auf eine Standarformatierung zu kommen. Nur markieren und Standard wählen geht leider nicht, da dann nicht mit diesen Zahlen gerechnet werden kann..
Dim i As Integer
Dim Spalte As String
Dim lar As Integer
lar = Cells(Rows.Count, Spalte).End(xlUp).Row
Range("F2:F" & lar).Select
For i = 1 To lar
Selection.NumberFormat = "General"
SendKeys "{F2}"
SendKeys "{ENTER}"
Next
Range("A1").Select
Probleme wie folgt:
1.) Die Markierung der Range wird nicht augehoben
2.) Bedingt durch 1. klappt auch die Selektion von A1 am Ende nicht
Sicher muss ich nur irgendwie aus der for next schleife raus.. nur wie???
Danke im Voraus für eure Hilfe..
Gruß,
Christian