Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1096to1100
1096to1100
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Regstisterblätter benennen

Forumthread: Regstisterblätter benennen

Regstisterblätter benennen
sanktflorian
Hallo,
ich habe folgendes Makro welches funktioniert
Private Sub Worksheet_Calculate()
Me.Name = Left(Replace(Replace(Replace(Replace(Replace(Replace(Replace([A3], ":", "") _
, "\", ""), "/", ""), "?", ""), "*", ""), "[", ""), "]", ""), 31)
End Sub

Bespiel SSV Ulm steht in A3
nun würde ich gerne das das Wort Aushang mit im Registerblatt erscheint
Aushang SSV Ulm
wäre das möglich?
Mit freundlichem Gruß
Sankt
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Regstisterblätter benennen
19.08.2009 09:43:27
Matthias5
Hallo,
Me.Name = "Aushang " & Left(Replace(Replace(Replace(Replace(Replace(Replace(Replace([A3], ":", "") _
, "\", ""), "/", ""), "?", ""), "*", ""), "[", ""), "]", ""), 31)
Gruß,
Matthias
AW: Regstisterblätter benennen - Ergänzung
19.08.2009 09:56:03
fcs
Hall Sankt,
da die Länge der Registernamen begrenzt ist solltest zusätzlich du die 31 in der Left-Anweisung um 8 Reduzieren. 
Me.Name = "Aushang " & Left(Replace(Replace(Replace(Replace(Replace(Replace(Replace([A3], _
":", "") , "\", ""), "/", ""), "?", ""), "*", ""), "[", ""), "]", ""), 23)
Gruß
Franz
Anzeige
AW: Regstisterblätter benennen
19.08.2009 10:19:14
sanktflorian
Hallo
vielen Dank für eure Hilfe.
Ich habe da nun leider ein Problem
Ich benutzte 
Private Sub Worksheet_Calculate()
Me.Name = Left(Replace(Replace(Replace(Replace(Replace(Replace(Replace([A3], ":", "") _
, "\", ""), "/", ""), "?", ""), "*", ""), "[", ""), "]", ""), 31)
End Sub
dieses schon n der selben Mappe auf einem andern Blatt
wenn ich nun 
Private Sub Worksheet_Calculate()
Me.Name = Left(Replace(Replace(Replace(Replace(Replace(Replace(Replace([A3], ":", "") _
, "\", ""), "/", ""), "?", ""), "*", ""), "[", ""), "]", ""), 31)
End Sub
und ausführen lassen möchte bekomme ich die Fehlermeldung
Fehler beim Kompilieren
Ausserhalb einer Prozedur ungültig
Es sollen danach auch noch weitere Makros folgen.
Was muss ich dabei beachten.
Gruß
Sankt
Anzeige
AW: Regstisterblätter benennen
19.08.2009 14:14:09
fcs
Hallo Sankt,
diese Fehlermeldung ist ein Hinweis das du irgendwo in deinem VBA-Projekt außerhalb der eigentlichen Prozeduren eine Zeile (1 Wort reicht !) stehen hast, die keine Deklaration für Variablen ist.
Prozeduren beginnen immer mit Zeile "Sub ..." oder "Private Sub ..." bzw. "Function ..." oder "Private Function..." und enden mit der Zeile "End Sub" bzw."End Function".
Außerhalb Dieser Bereiche dürfen nur bestimmte Deklarationen stehen wie 
Dim a
Private B
Public C
Declare Sub Erster Lib "MeineLib" ()
Const A As String = "Test"

Die davon abweichenden Zeilen muss du suchen und löschen bzw. in Kommentare umwandeln.
Gruß
Franz
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige