Makro auf alle Blätter anwenden
28.12.2012 15:44:43
Marco#
ich beschäftige mich erst seit sehr kurzer Zeit mit tiefergehend mit Excel und bin noch gänzlich unerleuchtet.
Ich habe ein Makro, das ich auf alle Arbeitsblätter anwenden möchte. Es handelt sich dabei um exportierte Datensätze bei denen die Zahlen als Text formatiert sind. Die relevanten Zahlen befinden sich in der ersten Spalte und werden durch das Makro relativ simpel *1 genommen, sodass ich eine 'echte' Zahl habe.
Hier das Makro:
Public Sub Mal_eins()
Dim Lzeile As Long
For Lzeile = 1 To Range("A65536").End(xlUp).Row
If IsNumeric(Range("A" & Lzeile).Value) Then
Range("A" & Lzeile).Value = Range("A" & Lzeile).Value * 1
End If
Next Lzeile
End Sub