Aktive Zelle färbt sich nach Einfügen eines Makro automatisch schwarz
17.03.2023, 07:47
Servus Mani,
Danke, dann muss ich es mit Schreiben versuchen. Ich kann keine Dateien mit Makros exportieren. So wär hat die Chance gewesen, dass ich die Excel Datei irgendwie versende. Damit ist besser zu arbeiten als mit Beschreibungen.
Hier meine Fragen:
- Wenn ich den Blattschutz setze, kann ich in der Schnellzugriffsleiste zwar die Eingabemaske aufrufen, aber es sind Möglichkeiten ausgegraut:
"Neu" "Löschen" und "Wiederherstellen"
Ausserdem kann ich keine Eingaben mehr machen
- Wenn ich den Button "Blattnavigation" klicke, ist die Navigationsleiste entweder zu sehen oder nicht zu sehen (mit Active Visible oder Not Active Visible)
Gibt es eine Möglichkeit, dass die Navigationsleiste automatisch Nicht Visible ist, wenn ich in ein anderes Blatt wechsle und dann wieder zurückwechsle?
- Ich habe ein Makro, mit dem ein neues Blatt angelegt wird. Davor fragt es nach dem Blattnamen. Wenn ich nichts eingebe, kommt eine Fehlermeldung, das Makro beendet sich und es wird ein neues Blatt mit dem alten Blattnamen und (2) angelegt.
- Gibt es eine Möglichkeit, dass ein Teil des Blattnamens bereits vorgegeben ist und lediglich die Jahreszahl noch benötigt wird? Und kann man das Makro so programmieren, dass bei Doppelbenennung gesagt wird "Blatt existiert bereits" und wieder die Abragegrundmaske erscheint? Natürlich mit der Möglichkeit, das Anlegen ganz abzubrechen? Mich stört die Standardfehlermeldung von Excel.
Hier die Makros: Mustermakros
Sub Hamburger_Führungen_2023()
ActiveSheet.Shapes("Führungen 2023").Visible = Not ActiveSheet.Shapes("Führungen 2023").Visible
End Sub
'Blatt Hospitationen erstellen
Sub Hospitationen_erstellen()
Sheets("Hospitationen Neu").Select
Sheets("Hospitationen Neu").Copy after:=Sheets(3)
Sheets("Hospitationen Neu (2)").Select
Blattname = InputBox("Welchen Namen soll das neue Blatt haben?" & Chr$(10) & Chr$(10) & "(Name und Jahr)" & Chr$(10) & Chr$(10) & "z.B.: Hospitationen 2024" & Chr$(10) & Chr$(10) & "(Bitte den Namen wie im Beispiel angegeben)")
ActiveSheet.Name = Blattname
End Sub
Ich hoffe, das alles ist nicht zu kompliziert.
Vielen Dank schon Mal
Bernie
Danke, dann muss ich es mit Schreiben versuchen. Ich kann keine Dateien mit Makros exportieren. So wär hat die Chance gewesen, dass ich die Excel Datei irgendwie versende. Damit ist besser zu arbeiten als mit Beschreibungen.
Hier meine Fragen:
- Wenn ich den Blattschutz setze, kann ich in der Schnellzugriffsleiste zwar die Eingabemaske aufrufen, aber es sind Möglichkeiten ausgegraut:
"Neu" "Löschen" und "Wiederherstellen"
Ausserdem kann ich keine Eingaben mehr machen
- Wenn ich den Button "Blattnavigation" klicke, ist die Navigationsleiste entweder zu sehen oder nicht zu sehen (mit Active Visible oder Not Active Visible)
Gibt es eine Möglichkeit, dass die Navigationsleiste automatisch Nicht Visible ist, wenn ich in ein anderes Blatt wechsle und dann wieder zurückwechsle?
- Ich habe ein Makro, mit dem ein neues Blatt angelegt wird. Davor fragt es nach dem Blattnamen. Wenn ich nichts eingebe, kommt eine Fehlermeldung, das Makro beendet sich und es wird ein neues Blatt mit dem alten Blattnamen und (2) angelegt.
- Gibt es eine Möglichkeit, dass ein Teil des Blattnamens bereits vorgegeben ist und lediglich die Jahreszahl noch benötigt wird? Und kann man das Makro so programmieren, dass bei Doppelbenennung gesagt wird "Blatt existiert bereits" und wieder die Abragegrundmaske erscheint? Natürlich mit der Möglichkeit, das Anlegen ganz abzubrechen? Mich stört die Standardfehlermeldung von Excel.
Hier die Makros: Mustermakros
Sub Hamburger_Führungen_2023()
ActiveSheet.Shapes("Führungen 2023").Visible = Not ActiveSheet.Shapes("Führungen 2023").Visible
End Sub
'Blatt Hospitationen erstellen
Sub Hospitationen_erstellen()
Sheets("Hospitationen Neu").Select
Sheets("Hospitationen Neu").Copy after:=Sheets(3)
Sheets("Hospitationen Neu (2)").Select
Blattname = InputBox("Welchen Namen soll das neue Blatt haben?" & Chr$(10) & Chr$(10) & "(Name und Jahr)" & Chr$(10) & Chr$(10) & "z.B.: Hospitationen 2024" & Chr$(10) & Chr$(10) & "(Bitte den Namen wie im Beispiel angegeben)")
ActiveSheet.Name = Blattname
End Sub
Ich hoffe, das alles ist nicht zu kompliziert.
Vielen Dank schon Mal
Bernie
