Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1152to1156
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
1152to1156
1152to1156
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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)

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
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
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
Anzeige
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
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige