Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1900to1904
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige