Zelleninhalt gleich "Tabellenblattname"

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim ii As Integer For ii = 1 To 3 If Not Intersect(Cells(ii, 1), Target) Is Nothing Then Sheets(ii).Name = Cells(ii, 1) End If Next ii End Sub

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim ii As Integer, intF As Integer For ii = 4 To 8 ' Zeilen 4 bis 8 If Not Intersect(Cells(ii, 5), Target) Is Nothing Then ' Spalte 5 = E If BlattNam_Pruefung(Cells(ii, 5)) Then With Sheets(ii + 1) ' Blätter 5 bis 9 .Name = Cells(ii, 5) Select Case Cells(ii, 6) Case 0: intF = xlColorIndexNone ' 0 für keine Färbung Case 1 To 56: intF = Cells(ii, 6) ' Farbnummer (1 - 56) aus Spalte 6 = F Case Else MsgBox "E" & ii & " enthält keinen gültigen Farbindex: " & Cells(ii, 6) intF = 9999 End Select If intF < 9999 Then .Tab.ColorIndex = intF End With Else MsgBox "E" & ii & " enthält keinen gültigen Blattnamen: " & vbLf & Cells(ii, 5) End If End If Next ii End Sub Function BlattNam_Pruefung(BlaNam As String) As Boolean ' www.excelformeln.de/formeln.html?welcher=96 ' www.xlam.ch/pos/rules.htm#Richtlinien%20f%FCr%20Arbeitsblatt-Namen If BlaNam = "" Or Len(BlaNam) > 31 Then Exit Function If Application.Evaluate("=SUM((MID(""" & BlaNam & """,COLUMN(1:1),1)" & _ "={"":"";""/"";""\"";""?"";""*"";""]"";""[""})*1)") > 0 Then Exit Function BlattNam_Pruefung = True End Function

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim ii As Integer For ii = 4 To 8 ' Zeilen 4 bis 8 If Not Intersect(Cells(ii, 5), Target) Is Nothing Then ' Spalte 5 = E Sheets(ii + 1).Name = Cells(ii, 5) ' Blätter 5 bis 9 End If Next ii End Sub

Hallo André,
muss ich das "Code kopiert und in die dritte Tabelle eingefügt" wörtlich nehmen?
Der Code gehört nicht in die Tabelle selbst, sondern in das VBA-Modul der Tabelle.
Mit Alt+F11 kommst du in den VBA-Editor, dort Doppelklick auf die 3. Tabelle (unter "DieseArbeitsmappe").
Hier noch ein Code, der vor dem Versuch, einen Blattnamen zu ändern,
überprüft, ob der Text in der Zelle überhaupt als Blattname gültig ist:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ii As Integer
For ii = 4 To 8                                           ' Zeilen 4 bis 8
If Not Intersect(Cells(ii, 5), Target) Is Nothing Then ' Spalte 5 = E
If BlattNam_Pruefung(Cells(ii, 5)) Then
Sheets(ii + 1).Name = Cells(ii, 5)               ' Blätter 5 bis 9
Else
MsgBox "E" & ii & " enthält keinen gültigen Blattnamen: " & vbLf & Cells(ii, 5)
End If
End If
Next ii
End Sub
Function BlattNam_Pruefung(BlaNam As String) As Boolean
' www.excelformeln.de/formeln.html?welcher=96
' www.xlam.ch/pos/rules.htm#Richtlinien%20f%FCr%20Arbeitsblatt-Namen
If BlaNam = "" Or Len(BlaNam) > 31 Then Exit Function
If Application.Evaluate("=SUM((MID(""" & BlaNam & """,COLUMN(1:1),1)" & _
"={"":"";""/"";""\"";""?"";""*"";""]"";""[""})*1)") > 0 Then Exit Function
BlattNam_Pruefung = True
End Function

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Hallo André,
sorry, das mit dem Einfügen in die Tabelle war ein Missverständnis - du hattest das so formuliert...
Meine Beschreibung war ungenau, um nicht zu sagen: falsch.
Im VBA-Projektexplorer sind die Blätter alphabetisch sortiert, unabhängig von der Position im Excel-Blattregister.
Im Projektexplorer hat jede Tabelle zwei Namen: Zunächst den internen (ohne Klammern),
dahinter den "normalen" Blattnamen in Klammern. Der zweite Name ist hier wichtig.
Der Code gehört in das Modul der Tabelle, wo er wirken soll.
Am einfachsten kommst du zu diesem Code, wenn du im Excel-Blattregister mit der rechten Maustaste auf den Reiter klickst
und dann "Code anzeigen" auswählst.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

Zelleninhalt gleich "Tabellenblattname"

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zelleninhalt gleich "Tabellenblattname"

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread