Ich möchte gerne mit dem unten stehenden Code gleich mehrere Sheets ansprechen.
Nicht nur den Sheets "Auswertung"
Es geht in allen Sheets genau immer nach den selben Prinzip, Spalten B u. E in Zahl umwandeln.
Könnte mir bitte dazu jemand weiterhelfen?
Danke, Heinz
Sub text_in_zahl() ' Spalte B in Sheets Auswertung in Zahl umwandeln
'Das Makro wandelt Text in Zahlen um
Sheets("Auswertung").Select
' Die letzte beschriebene Zelle wird ermittelt
Dim loletzte As Long
loletzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
With Range("b2" & ":b" & loletzte)
.NumberFormat = "General"
.Value = .Value
End With
With Range("e2" & ":e" & loletzte)
.NumberFormat = "General"
.Value = .Value
End With
End Sub