Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1516to1520
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 - Tabellenblatt kopieren und Namen eingeben

VBA - Tabellenblatt kopieren und Namen eingeben
14.10.2016 16:10:05
NeubPa
Hallo,
ich fange gerade an mit VBA zu arbeiten. Ich wollte in einem Excel Dokument über ein Makro das aktuelle Tabellenblatt kopieren und über eine Inputbox den Namen eingeben lassen. Oder einfach eine Kopie des aktuellen mit Durchzählung Bsp. "Name (1)". Irgendwie bekomme ich es nicht. Wenn ich einfach OK klicke ist zwar die Kopie da, aber immer mit Laufzeitfehler 1004 Info. Habt ihr eine Lösung?
Sub Makro1()
ActiveSheet.Copy After:=Sheets(Sheets.Count)
Name = InputBox("Name of new Sheet - or click OK to copy")
ActiveSheet.Name = Name
End Sub
Vielen Dank für eure Hilfe

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Tabellenblatt kopieren und Namen eingeben
14.10.2016 16:17:27
Werner
Hallo,
Sub Makro1()
Dim strName As String
ActiveSheet.Copy After:=Sheets(Sheets.Count)
strName = InputBox("Name of new Sheet - or click OK to copy")
ActiveSheet.Name = strName
End Sub
Gruß Werner
AW: VBA - Tabellenblatt kopieren und Namen eingeben
14.10.2016 16:31:31
NeubPa
Hallo Werner,
vielen dank für die schnelle Antwort. Leider bekomme ich noch den gleichen Laufzeitfehler, wenn ich einfach OK klicke in der InputBox (um den Namen einfach zu übernehmen anstelle einen einzugeben). Gibt es hierfür eine Lösung? Oder das z.B. in der InputBox direkt der Name des zu kopierenden Reiters mit (count) als Vorschlag angezeigt wird? Ich habe schon alles probiert und komme nicht weiter.
Vielen Dank für die Hilfe!
Anzeige
AW: VBA - Tabellenblatt kopieren und Namen eingeben
14.10.2016 16:32:39
NeubPa
Hier noch die Fehlermeldung. Userbild
AW: VBA - Tabellenblatt kopieren und Namen eingeben
14.10.2016 16:44:00
Werner
Hallo,
Sub Makro1()
Dim strName As String
ActiveSheet.Copy After:=Sheets(Sheets.Count)
strName = InputBox("Name of new Sheet - or click OK to copy")
If Not strName = "" Then
ActiveSheet.Name = strName
Else
Exit Sub
End If
End Sub
Gruß Werner
AW: VBA - Tabellenblatt kopieren und Namen eingeben
14.10.2016 17:15:29
NeubPa
Vielen Dank! Läuft jetzt super. Danke schön!
Gerne u. Danke für die Rückmeldung. o.w.T.
14.10.2016 17:19:11
Werner

137 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige