12.10.2016, 19:52
13.10.2016, 11:48
Sie werden nicht umgeschrieben und es kommt die Messagebox die du generiert hast mit deinem Text:
"Umbenennen nicht möglich - bitte anderen Namen wählen!"
"Umbenennen nicht möglich - bitte anderen Namen wählen!"
13.10.2016, 15:57
Hallöchen,
die Meldung kommt deswegen, weil der Blattname bereits existiert. Blattnamen müssen eindeutig sein.
die Meldung kommt deswegen, weil der Blattname bereits existiert. Blattnamen müssen eindeutig sein.
14.10.2016, 13:55
e --> Fehlermeldung
Nein, das geschieht auch wenn ich Beispielsweise einfach das Alphabet in die Zellen eingebe
a,b,c,d,
bei
e --> Fehlermeldung
f --> Fehlermeldung
k --> Fehlermeldung
m --> Fehlermeldung
n --> Fehlermeldung
o --> Fehlermeldung
p --> Fehlermeldung
Diese Tabellennamen existieren jedoch nicht
Nein, das geschieht auch wenn ich Beispielsweise einfach das Alphabet in die Zellen eingebe
a,b,c,d,
bei
e --> Fehlermeldung
f --> Fehlermeldung
k --> Fehlermeldung
m --> Fehlermeldung
n --> Fehlermeldung
o --> Fehlermeldung
p --> Fehlermeldung
Diese Tabellennamen existieren jedoch nicht
14.10.2016, 15:13
Hallöchen,
kann ich nicht nachvollziehen, bei mir geht's mit allen Buchstaben, hier im Bild mal einer davon..
Kannst Du die Datei eventuell mal hochladen?
[attachment=7415]
kann ich nicht nachvollziehen, bei mir geht's mit allen Buchstaben, hier im Bild mal einer davon..
Kannst Du die Datei eventuell mal hochladen?
[attachment=7415]
14.10.2016, 15:35
(14.10.2016, 15:13)schauan schrieb: [ -> ]Hallöchen,
kann ich nicht nachvollziehen, bei mir geht's mit allen Buchstaben, hier im Bild mal einer davon..
Kannst Du die Datei eventuell mal hochladen?
Klar.
Hier die Datei(ohne Inhalt).
14.10.2016, 17:00
Hallöchen,
ich habe den Code mal etwas geändert und erweitert. Der Code kommt wieder ins Blattmodul. Voraussetzung ist übrigens, dass Du zuvor mal die Namen entsprechend den vorhandenen Tabellen eingibst. Ab dann sollte es korrekt funktionieren. Der Code ist jetzt darauf ausgelegt, dass die Namen in F20:F24 und F26:F35 stehen. Ändert sich da was, muss der Code entsprechend angepasst werden.
ich habe den Code mal etwas geändert und erweitert. Der Code kommt wieder ins Blattmodul. Voraussetzung ist übrigens, dass Du zuvor mal die Namen entsprechend den vorhandenen Tabellen eingibst. Ab dann sollte es korrekt funktionieren. Der Code ist jetzt darauf ausgelegt, dass die Namen in F20:F24 und F26:F35 stehen. Ändert sich da was, muss der Code entsprechend angepasst werden.
Code:
Dim strOldValue$
Private Sub Worksheet_Activate()
strOldValue = ActiveCell.Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
'Variablendeklaration
Dim iCorrect% 'Korrekturwert - Integer
On Error GoTo errorhandler
'Mako verlassen, wenn mehr als eine Zelle betroffen u.a.
If Target.Cells.Count > 1 Or _
Target.Column > 6 Or _
Target.Column < 6 Or _
Target.Row < 20 Or _
Target.Row > 35 Or _
Target.Row = 25 Then Exit Sub
'mit dem "alten" Blatt
With Sheets(strOldValue)
'Blattname an Position der entsprechend Zeilennummer aendern
'wenn es nicht dieses ist
If .Name <> Me.Name Then .Name = Target
'Ende mit dem "alten" Blatt
End With
'Fehlerbehandlung
errorhandler:
'Bei Fehler Meldung ausgeben
If Err Then MsgBox "Umbenennen nicht möglich - bitte anderen Namen wählen!"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
strOldValue = ActiveCell.Value
End Sub
18.10.2016, 11:40
Voraussetzung ist übrigens, dass Du zuvor mal die Namen entsprechend den vorhandenen Tabellen eingibst. Ab dann sollte es korrekt funktionieren.
Was meinst du damit?
Wo sollten die Namen eingegeben werden?
Was meinst du damit?
Wo sollten die Namen eingegeben werden?
18.10.2016, 12:01
Also F20 wird übernommen.
Bei F21, 22 28, 29, 30, 31, 33, 34 zeigt er die Msg Box an.
"Umbenennen nicht möglich - bitte anderen Namen wählen!"
Jedoch will er einen anderen Namen auch nicht akzeptieren.
Bei F21, 22 28, 29, 30, 31, 33, 34 zeigt er die Msg Box an.
"Umbenennen nicht möglich - bitte anderen Namen wählen!"
Jedoch will er einen anderen Namen auch nicht akzeptieren.
18.10.2016, 13:24
Hi,
so wie ich es bruchstückhaft verstehe, stehen die Namen in F20:F24 und F26:F35. Dort sollte überprüft werden, ob die Namen drin stehen, wie momentan Deine Tabellen heißen, vor Start des Makros. Wenn nein, dann korrigieren.
(18.10.2016, 11:40)Wow4ik schrieb: [ -> ]Was meinst du damit?
Wo sollten die Namen eingegeben werden?
so wie ich es bruchstückhaft verstehe, stehen die Namen in F20:F24 und F26:F35. Dort sollte überprüft werden, ob die Namen drin stehen, wie momentan Deine Tabellen heißen, vor Start des Makros. Wenn nein, dann korrigieren.