Errorhandler bei sheets.add.name = "name"
26.04.2006 14:47:11
Klaus
folgendes Problem übersteigt meine VBA-Kentniss:
Aus einer solchen Tabelle
| 1 | Charge | Abmaß | Sachnummer | Menge kg | Lieferdatum |
| 2 | 1000 | 10 x 5 | 105501 | 1500 | 13.04.2006 |
| 3 | 1001 | 11 x 7 | 117711 | 1700 | 13.04.2006 |
| 4 | 1002 | 9 x 13 | 901331 | 2900 | 13.04.2006 |
| 5 | 1002 | 9 x 13 | 901331 | 1300 | 14.04.2006 |
| 6 | 1003 | 12 x 4 | 124421 | 1200 | 14.04.2006 |
| 7 | 1004 | 11 x 7 | 117711 | 1800 | 15.04.2006 |
möchte ich pro "Abmaß" ein eigenes sheet erstellen.
Mein Ansatz war:
Sub SelbstSortieren()
Dim anz, iRow As Integer
Dim UrName As String
On Error Resume Next
With Sheets("chargen")
iRow = .Cells(Rows.Count, 1).End(xlUp).Row
For anz = 2 To iRow
UrName = .Range("b" & anz)
Sheets.Add.Name = UrName
Next anz
End With
End Sub
Ich hatte gehofft, das "On Error Resume Next" reicht aus, um das doppelte Vergeben von Blattnamen zu vermeiden.
Leider unterbindet dass zwar die Fehlermeldung, aber es wird trotzdem ein neues Sheet mit dem Namen "Tabelle82" erstellt ...
Wie frage ich denn eleganter ab, ob ein sheet schon existiert?
Gruß,
Klaus M.vdT.
Anzeige