Tabellennamen überprüfen und befehl ausführen
02.11.2016 11:48:43
Max2
ich habe eine UserForm mit Buttons, ein Button gibt "k" einen Wert.
Wenn man auf den Button "Importieren" drückt, werden Daten aus einem anderen Blatt Kopiert und in ein neues Tabellenblatt eingefügt, der Name des Tabellenblatts setzt sich so zusammen: "Spur" & "_" & k
Da manchmal Werte aus mehreren Dateien in das gleiche Blatt müssen will ich überprüfen ob es das Blatt "Spur" & "_" & k schon gibt, existiert es sollen einfach die Daten in das vorhandene eingefügt werden, existiert es nicht sollen die Daten wieder in ein neues Blatt.
Code sieht wie folgt aus:
BlattName = "Spur" & "_" & k
For i = 1 To Sheets.Count
If BlattName = Sheets(i).Name Then
GoTo NurEinfügen
Exit For
End If
Next i
Set WksÜbersicht = WbkEinfügen.Sheets.Add(After:=WbkEinfügen.Sheets(WbkEinfügen.Sheets. _
Count))
WksÜbersicht.Name = "Spur" & "_" & k
NurEinfügen:
With WksÜbersicht
WksÜbersicht.Range(.Cells(h, 1), .Cells(l, lngLetzteSpalte)).PasteSpecial Paste:= _
xlPasteValues
WksÜbersicht.Range(.Cells(h, 1), .Cells(l, lngLetzteSpalte)).PasteSpecial Paste:= _
xlPasteFormats
Application.CutCopyMode = False
.Range("A7501").Value = "Spur" & "_" & k
.Range("CW1").Value = "Spur" & "_" & k
.ScrollArea = "A1:CW7501"
.Range("A1:CV7500").Columns.WrapText = True
.Range("A1:CV7500").Columns.ColumnWidth = 3.5
End With
End With
WbkKopieren.Close
Bekomme allerdings jedes mal den Fehler dass ich kein Blatt mit dem gleichen Namen erstellen kann, was ja wieder darauf schließen lässt dass er erst gar nicht zur sprungmarke geht oder ?
Anzeige