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

neues Tabellenblatt rechts anordnen

Forumthread: neues Tabellenblatt rechts anordnen

neues Tabellenblatt rechts anordnen
03.10.2003 08:49:50
ZECI
Hy Excel Gurus,

gibt es eine Möglichkeit (einen Parameter) den ich in meinen Makro mitschicken kann ,
damit das von mir mit dem Makro erstellte neue Tabellenblatt nicht an linker
sondern an rechter Stelle der bestehenden Blätter angeordnet wird ?

Grüße ZECI

Auszug aus meinen Makro:

wert = Range("B100").Value
Sheets.Add.Name = wert
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: neues Tabellenblatt rechts anordnen
03.10.2003 09:05:41
andreas e
hallo ,

Sub Makro1()
m = Sheets.Count
Sheets.Add.name=wert
sheets(wert).Move after:=Sheets(m + 1)
End Sub

Gruß
Andreas E

http://www.skripteundaufgaben.de
viele kostenlose Downloads und Links zu EXCEL und mehr
http://www.fachforen.de
eine Linksammlung zu diversen fachforen
Anzeige
Sorry Andy. Hab dich nicht gesehen :-) o.T.
03.10.2003 09:11:24
Ramses
...
AW: neues Tabellenblatt rechts anordnen
03.10.2003 10:32:25
Hajo_Zi
Hallo Andreas

ich war jetzt mal auf Deiner neuen Homepage und habe festgestellt das Du im Download Bereich mir Dankst für eine Datei. Diese Datei ist eindeutig nicht von mir, daran würde ich mich erinnern.


Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Anzeige
AW: neues Tabellenblatt rechts anordnen
03.10.2003 11:48:36
andreas e
hallo hajo,
sorry, - welche meinst du denn ??
werde das sofort entsprechend ändern
gruß
andreas e
AW: neues Tabellenblatt rechts anordnen
03.10.2003 11:50:03
Hajo_Zi
Hallo Andreas

dieser Link

http://www.skripteundaufgaben.de/UFToolbox.zip


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Anzeige
AW: neues Tabellenblatt rechts anordnen
03.10.2003 11:54:15
andreas e
ups - die datei kenne ich ! Die ist echt nicht von dir - sorry , aber ich finde da keinen Hinweis auf dich in der Linkliste ! wie ist die url zum Link (nicht zur Datei selbst !) ?
gruß
andreas e
jetzt weiss ich was du meinst !
03.10.2003 11:58:22
andreas e
hallo hajo,
jetzt weiss ich was du meinst ! Aber das bezieht sich nocht auf den Punkt bzgl . der Feiertagstabelle !!!

Excel Grundlagenskript als pdf - file
Feiertagsberechnung
Nach Eingabe des Jahres berechnet diese Tabelle die gesetzlichen Feiertage und die beweglichen Feiertage für Deutschland.

Danke an Hajo_Zi
Tools zur Userform
Hier findest du die Elemente einer UF und deren Tools zum Download mit Beispielen

wahrscheinlich irritiert die Leerzeile ! Mal sehen - werde es versuchen gleich zu ändern !
dir ein schönes we
andreas e
Anzeige
@hajo - geändert ! o.T
03.10.2003 12:02:40
andreas e
AW: @hajo - geändert ! o.T
03.10.2003 12:06:27
Hajo_Zi
Hallo Andreas

das mit der Leerzeile irritierte mich ein wenig und ich möchte mich nicht mit fremden Federn schmücken. Da achte ich auf meine Homepage auch drauf das fremder Code gekennzeichnet ist.

Dir auch noch ein schönes verlängertes Wochenende.

Microsoft MVP für Excel


http://home.media-n.de/ziplies/

Anzeige
AW: neues Tabellenblatt rechts anordnen
03.10.2003 09:10:48
Ramses
Hallo

ungetestet, sollte aber tun

Worksheets.Add after:=sheets(worksheets.Count)
Activesheet.Name = Wert

Gruss Rainer
AW: neues Tabellenblatt rechts anordnen
03.10.2003 09:16:57
ZECI
Danke,
funkt. habe aber die Lösung von Ramses bevorzugt.
Sorry andreas

Grüße ZECI
Anzeige

Infobox / Tutorial

Neues Tabellenblatt rechts anordnen in Excel


Schritt-für-Schritt-Anleitung

Um ein neues Tabellenblatt in Excel rechts anzuordnen, kannst du folgendes VBA-Makro verwenden. Dieses Beispiel ist für Excel-Versionen geeignet, die die VBA-Programmierung unterstützen.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.

  2. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code in das Modul ein:

    Sub NeuesTabellenblattRechts()
        Dim wert As String
        wert = Range("B100").Value
        Sheets.Add.Name = wert
        Sheets(wert).Move After:=Sheets(Sheets.Count)
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Wähle eine Zelle aus, in der der Name für das neue Tabellenblatt steht (in diesem Beispiel B100).

  6. Führe das Makro aus, um das neue Blatt rechts anzuordnen.


Häufige Fehler und Lösungen

  • Fehler: "Blattname bereits vorhanden!"

    • Lösung: Stelle sicher, dass der Name in B100 einzigartig ist. Du kannst den Code anpassen, um zu überprüfen, ob der Name bereits existiert.
  • Fehler: "Das Blatt kann nicht hinzugefügt werden."

    • Lösung: Überprüfe, ob du die maximale Anzahl an Arbeitsblättern erreicht hast. Excel hat eine Begrenzung für die Anzahl der Blätter in einer Arbeitsmappe.

Alternative Methoden

Wenn du keine VBA-Programmierung verwenden möchtest, kannst du auch manuell ein neues Blatt hinzufügen:

  1. Klicke mit der rechten Maustaste auf eines der bestehenden Blätter.
  2. Wähle Einfügen > Arbeitsblatt.
  3. Ziehe das neue Blatt mit der Maus an die gewünschte Position (rechts).

Praktische Beispiele

Hier ist ein praktisches Beispiel, wie du das Makro anpassen kannst, um das neue Blatt nach einem bestimmten Blatt zu positionieren:

Sub NeuesTabellenblattNach()
    Dim wert As String
    wert = Range("B100").Value
    Sheets.Add.Name = wert
    Sheets(wert).Move After:=Sheets("Blatt1") ' Ändere "Blatt1" in den Namen des Blattes, nach dem du das neue Blatt einfügen möchtest.
End Sub

Dieses Makro fügt ein neues Blatt nach dem Blatt mit dem Namen "Blatt1" ein.


Tipps für Profis

  • Verwende Fehlerbehandlung: Füge On Error Resume Next und On Error GoTo 0 hinzu, um Fehler abzufangen, die beim Hinzufügen eines neuen Blattes auftreten können.
  • Benutzerfreundlichkeit: Erwäge, den Benutzer nach dem Namen für das neue Blatt zu fragen, anstatt ihn aus einer festen Zelle zu lesen. Du kannst dazu die InputBox-Funktion verwenden:

    Dim wert As String
    wert = InputBox("Gib den Namen für das neue Blatt ein:")

FAQ: Häufige Fragen

1. Wie kann ich das Makro speichern? Um das Makro zu speichern, gehe zu Datei > Speichern unter und wähle den Dateityp Excel-Arbeitsmappe mit Makros (.xlsm).

2. Funktioniert das Makro in jeder Excel-Version? Das Makro sollte in den meisten modernen Excel-Versionen funktionieren, die VBA unterstützen, z. B. Excel 2010 und höher.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige