Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
356to360
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
356to360
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

hilfe für Makro

hilfe für Makro
06.01.2004 17:51:43
Jürgen
Hallo zusammen,

Habe mir folgendes Makro für Tabellenblätter kopieren mit Rekorder aufgezeichnet.


Sub NeuesArbeitsblatt()
Sheets("Einsatzplan").Copy After:=Sheets(4)
Sheets("Einsatzplan (2)").Select
Sheets("Einsatzplan (2)").Name = "Neues Arbeitsblatt"
ActiveWindow.ScrollColumn = 9
Range("A3").Select
End Sub


möchte nun aber nicht immer vom Tabellenblatt "Einsatzplan" kopieren sondern
jeweils immer vom gerade aktiven Tabellenblatt.
Dabei soll dann eine Abfragebox erscheinen wie das neue Blatt heißen soll.

wie ist dieses zumachen.

Gruss Jürgen

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: hilfe für Makro
06.01.2004 18:22:20
Koenig W.
Hallo Jürgen,
so sollte es gehen

Sub Kopieren()
'Abfangen der Fehler, z.B. Name der Tabelle schon
'vorhanden
On Error Resume Next
'Deklaration einer Variablen für den tabellennamen
Dim str As String
'Kopieren direkt hinter das aktive Blatt
ActiveSheet.Copy after:=ActiveSheet
'Abfragen des neuen Tabellennamens
str = InputBox("Bitte Namen der Tabelle eingeben")
'Absichern, dass bei keiner Eingabe abgerochen wird
If str = "" Then Exit Sub
'Zuweisen des neuen Tabellennamens
ActiveSheet.Name = str
End Sub

Gruss Wilhelm
AW: hilfe für Makro
06.01.2004 18:22:24
Koenig W.
Hallo Jürgen,
so sollte es gehen

Sub Kopieren()
'Abfangen der Fehler, z.B. Name der Tabelle schon
'vorhanden
On Error Resume Next
'Deklaration einer Variablen für den tabellennamen
Dim str As String
'Kopieren direkt hinter das aktive Blatt
ActiveSheet.Copy after:=ActiveSheet
'Abfragen des neuen Tabellennamens
str = InputBox("Bitte Namen der Tabelle eingeben")
'Absichern, dass bei keiner Eingabe abgerochen wird
If str = "" Then Exit Sub
'Zuweisen des neuen Tabellennamens
ActiveSheet.Name = str
End Sub

Gruss Wilhelm
Anzeige
AW: hilfe für Makro
06.01.2004 18:38:31
Jürgen
Ich danke dir

Jürgen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige