Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
700to704
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatisches Renaming

Automatisches Renaming
25.11.2005 11:40:43
Stoned
Hallo liebes Forum!
Ist für Euch sicherlich auch nicht so einfach! Aber ich versuchs mal:
Ich möchte in ein Excel-File, dass mehrere Sheets enthält, eine Automatische Benennung einbauen.
Auf dem ersten Sheet soll ein Feld sein, in dem ich einen Namen eingeben kann.
Hab ich den Namen eingegeben und dann per klick bestätigt, sollen automatisch die Folgenden Sheets umbenannt werden.
Vorher:
Umbenennungs-sheet---------Sheet 2-----------Sheet 3-------------Sheet 4
Nach eingaben von "Köln"
Umbenennungs-sheet---------Köln Sheet 2-----------Köln Sheet 3------Köln Sheet 4
Desweiteren sind in den einzelnen Sheets Tabellen. Die Überschrift soll auch nach dem eingegebenen Wert Umbenannt werden
1111111111111110000000000000000000000000 Dank in Vorraus!
Sowar mir Gott helfe!

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

Betreff
Datum
Anwender
Anzeige
AW: Automatisches Renaming
ransi
hallo
versuchs mal so:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
If Target.Address <> "$A$1" Then Exit Sub
For i = 2 To Worksheets.Count
    Worksheets(i).Name =[a1] & " sheet" & i
Next
End Sub


Das makro springt an wenn du im umbenennungssheet eine änderung in a1 machst.
ransi
Anzeige
AW: Automatisches Renaming
25.11.2005 11:56:14
Harald
Hallo,
das da in ein Standardmodul:
Sub namen()
Dim i As Integer
For i = 2 To Sheets.Count
Sheets(i).Name = Sheets(1).Range("a1") & " Sheet " & i
Next i
End Sub
und das da ins Blattmodul vom Umbenennungssheet

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 1 Or Target.Column > 1 Or Target.Count > 1 Then Exit Sub
Call namen
End Sub

Das Feld in dem der Namen steht ist A1
Gruss Harald
AW: Automatisches Renaming
25.11.2005 12:02:53
UweD
Hallo
so z.B.
- rechte Maustaste auf den Tabellenblattreiter des ersten Blattes
- code anzeigen
- Diesen Code im neuen Fenster einfügen

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then 'reagiert nur auf Feld A1
Dim I%, Neu$
On Error GoTo Fehler
For I = 2 To Sheets.Count
Neu = Target.Value & " " & Sheets(I).Name
If Len(Neu) <= 31 Then
Sheets(I).Name = Neu 'Balttname ändern
Sheets(I).Range("C1").Value = Target 'Beispiel für TabellenÜberschrift
Else
MsgBox "Name von Blatt " & I & " zu lang."
End If
Next
End If
Exit Sub
Fehler:
If Err.Number = 1004 Then
MsgBox "Unzulässige Zeichen enthalten"
Err.Clear
Resume Next
End If
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige