Mit diesem Code erstelle ich ein Tabellenblatt mit der
Nummer die in Spalte B steht. (Formation Standard)
On Error Resume Next
Dim i As String
Dim wks As Worksheet
i = Selection
If i = "" Then Exit Sub
If Target.Column = 2 Then
Set wks = Worksheets(i)
If Err > 0 Or wks Is Nothing Then
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = i
Worksheets(i).Select
Worksheets(1).Select
Nun mein Problem
Egal wie ich die Spalte formatiere, gebe ich in die Zelle z.B. 007 ein
wird das neue Tabellenblatt mit 7 bezeichnet.
Da ich die Tabellenblätter sortieren muß gibt es ein Problem.
Die Sortierung ist dann z.B. 112,244,2,300 soll aber 2,112,244,300 sein
Wie bekomme ich es hin das die Variable i 3 stellig ist.
Ich hoffe es versteht jemand und kann mir helfen.
mit freundlichen Gruss
Erich