Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
1152to1156
1152to1156
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Reiter Name ist gleich zellen Name

Forumthread: Reiter Name ist gleich zellen Name

Reiter Name ist gleich zellen Name
Ramin
Hallo zusammen,
diesen code kann man doch bestimmt vereinfachen
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address(0, 0)
Case "A1": Sheets(3).Name = Target.Text
Case "A2": Sheets(4).Name = Target.Text
Case "A3": Sheets(5).Name = Target.Text
Case "A4": Sheets(6).Name = Target.Text
Case "A5": Sheets(7).Name = Target.Text
Case "A6": Sheets(8).Name = Target.Text
Case "A7": Sheets(9).Name = Target.Text
Case "A8": Sheets(10).Name = Target.Text
Case "A9": Sheets(11).Name = Target.Text
Case "A10": Sheets(12).Name = Target.Text
Case "A11": Sheets(13).Name = Target.Text (Es soll bis Zelle A75 gehen)
Anzeige
AW: Reiter Name ist gleich zellen Name
02.05.2010 13:20:55
Tino
Hallo,
ohne Fehlerüberprüfung.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngBereich As Range
Set rngBereich = Intersect(Target, Range("A1:A75"))
If rngBereich Is Nothing Then Exit Sub
For Each rngBereich In rngBereich
If rngBereich.Text  "" Then _
Sheets(rngBereich.Row + 2).Name = rngBereich.Text
Next rngBereich
End Sub
Gruß Tino
Anzeige
AW: Reiter Name ist gleich zellen Name
02.05.2010 13:37:12
Ramin
Danke Tino es klappt:))
Gruss Ramin
AW: Reiter Name ist gleich zellen Name
02.05.2010 13:51:18
Ramin
Hallo Tino, kann man das auch soo machen dass beim Öffnen der Tabelle die namen in reiter geändert werden?so muss ich nicht aucf jeder einzelllne zelle kliken
Gruss Ramin
geht auch
02.05.2010 15:05:21
Tino
Hallo,
versuch mal so.
kommt als Code in DieseArbeitsmappe 
Option Explicit 
 
Private Sub Workbook_Open() 
'Tabellennamen anpassen !! 
Tabellen_Name Sheets("Tabelle1").Range("A1:A75") 
End Sub
kommt als Code in Tabelle 
Option Explicit 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
Dim rngBereich As Range 
 
Set rngBereich = Intersect(Target, Range("A1:A75")) 
If rngBereich Is Nothing Then Exit Sub 
 
Tabellen_Name rngBereich 
End Sub
kommt als Code in Modul 
Option Explicit 
 
Sub Tabellen_Name(ByVal rngBereich As Range) 
  For Each rngBereich In rngBereich 
      If rngBereich.Text <> "" Then _
          Sheets(rngBereich.Row + 2).Name = rngBereich.Text 
  Next rngBereich 
End Sub
Gruß Tino
Anzeige
AW: geht auch
02.05.2010 15:49:50
Ramin
allo Tino,
leider klappt es nicht ganz aber lass gut sein ich habe
die Tabelle jetzt fertig dank Dir nochmal
Grüsse Ramn
hier die Beispielmappe, bei mir geht es.
02.05.2010 17:17:20
Tino
Hallo,
hast Du vielleicht die Tabelle nicht angepasst?
Beispiel ist auf 10 Testtabellen beschränkt. (A1:A10)
https://www.herber.de/bbs/user/69362.xls
Gruß Tino
Anzeige
AW: hier die Beispielmappe, bei mir geht es.
02.05.2010 18:38:35
Ramin
Tino vielen dank ,es geht!
AW: Bei Risiken u. Nebenwirkungen ...
02.05.2010 13:26:00
Gerd
Hallo Ramin!
.... liest den Beipackzettel u. erschlägst den Arzt mit dem Apotheker. :-)
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If Not Intersect(.Cells, Range("A1:A75")) Is Nothing Then Sheets(2 + Int(Mid$(.Cells(1).Address( _
0, 0), 2))).Name = .Text
End With
End Sub
Soll heißen, kurz u. ohne Fehlerbehandlung!
Gruß Gerd
Anzeige
AW: Bei Risiken u. Nebenwirkungen ...
02.05.2010 13:42:16
Ramin
Danke dir Gerd funktioniert auch wunderbar.
Gruss Ramin
;

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