Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA Code Blatt hinzufügen

VBA Code Blatt hinzufügen
16.10.2022 14:01:46
Rocco
Hallo Ihr Lieben,
hab wieder mal eine kleine Herausforderung.
Ich möchte das VBA schaut ob ein Tabellenblatt, dessen Name in einer Tabelle definiert ist (als Nr), hinter das letzte Blatt einfügt, aber nur wenn es dieses Blatt mit dem Namen nicht gibt.
Soweit funktioniert das, wenn ich allerdings nun nochmal den Code ausführe wird ein Tabellenblatt erstellt mit dem Namen Tabelle01 usw.
Der Code sieht wie folgt aus:

Sub ArbeitsblattFK()
On Error Resume Next
Dim count, i As Long
Dim MyName
count = ActiveSheet.Cells(Rows.count, "B").End(xlUp).Row
i = 3
Do While i 
Die Beispieldatei ist hier:
https://www.herber.de/bbs/user/155698.xlsm
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Code Blatt hinzufügen
16.10.2022 15:00:22
onur

ActiveSheet.Name = MyName
verursacht wahrscheinlich einen Fehler, da du den gleichen Namen noch mal vergeben willst.
Deine "Fehlerbehandlung" ist Schrott, da der Fehler innerhalb der Fehlerbehandlungsroutine passiert.
AW: VBA Code Blatt hinzufügen
16.10.2022 20:29:03
Uduuh
Hallo,

Sub ArbeitsblattFK()
Dim wks As Worksheet, rngC As Range
With Worksheets("FKGesamt")
For Each rngC In .Range(.Cells(3, 2), .Cells(Rows.count, 2).End(xlUp))
Set wks = Nothing
On Error Resume Next
Set wks = Worksheets(rngC.Value)
On Error GoTo 0
If wks Is Nothing Then
Worksheets.Add(after:=Sheets(Worksheets.count)).Name = rngC.Value
End If
Next rngC
End With
End Sub
Gruß aus'm Pott
Udo
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige