Macro Änderung
10.03.2008 08:44:46
Schallbach
Habe ein kleines Problem!
Ich trage in Spalte A eine Kombination aus einem Buchstaben und Zahlen ein z. B. "g1" .
Diesen Wert übergebe ich mit Formel dann in die Spalte E, wobei dann dort ein anderes Format sein soll.
aus g1 soll G 001 werden also immer ein Grossbuchstabe ein Lehrzeichen und drei Zahlen.
Habe so etwas ähnliches mit folgendem Macro gelöst:
Private Sub Worksheet_Change(ByVal Target As Range)
'Für Spalte "A"! A=1, B=2, C=3, ...
If Target.Column = 5 And Target.Count = 1 Then
If Not Target Like "[A-Z][A-Z] ###" Then
Application.EnableEvents = False
Target = UCase(Left(Target, 2)) & " " & Right(Target, 3)
Application.EnableEvents = True
End If
End If
End Sub
Das funktioniert aber nicht weil ich in diesem Fall auf die Spalte 5 nicht zugreife bzw. klicke.
Kann mir jemand von Euch helfen das Macro so zu ändern dass es in diesem Fall funktioniert.
Mit besten Dank
Schallbach