Ich möchte dass Alle Orte mit dem Anfangsbuchstaben A in dem Tabellenblatt A und die mit B in dem Tabellenblatt B usw. stehen.
Aber es funktioniert leider nur mit A :(
https://www.herber.de/bbs/user/119763.xlsx
LG SAbbel
Sub t()
Dim i As Long, b As String
Application.ScreenUpdating = False
' Blätter anlegen
For i = 65 To 90
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = Chr(i)
Next i
' Werte übertragen
With Worksheets("Tabelle1")
For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
b = UCase(Left(.Cells(i, 1), 1))
If b = "Ö" Then b = "O"
If b = "Ü" Then b = "U"
If b = "Ä" Then b = "A"
Worksheets(b).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = .Cells(i, 1)
Next i
End With
End Sub
cu