B

Problem Makro
Komplette Module, die direkt in Excel eingebunden werden können.
(sinnvoller bei umfangreichen Makros)
Das geht folgendermaßen:
1. Datei auf Festplatte Speichern.
2. In Excel den VBA-Editor öffnen.
3. Mit der rechten Maustaste im "VBAProject" irgendwo reinklicken.
     "Datei importieren....." anklicken und Pfad auswählen.

Diese Dateien kann man auch gefahrlos mit Notepad / Editor betrachten.

Beim Export eines Moduls wird als erste Zeile der ehemalige Modulname von Excel folgendermaßen eingetragen: "Attribute VB_Name = "Modulname".
Diese zeile muß mit einem Hochkomma voran auskommentiert werden.
Neuen Bildaufbau bei Makroausführung unterdrücken Sub Bildaufbau_unterdrücken()
Application.ScreenUpdating = False 'Bildaufbau wird unterdrückt
'jetzt kommt das Makro
MsgBox "Ab Excel 97 muß der Bildaufbau explixit wieder eingeschaltet werden"
Application.ScreenUpdating = True 'Bildaufbau wieder eingeschalten
End Sub
Bearbeitungszustand in Statusleiste anzeigen 'von Michael Schwimmer:
Pfad des Verzeichnisses
"Eigene Dateien" bei NT-Benutzern ermitteln
(auch Win 9x)
Bildschirmauflösung ausgeben benutzerdefinierte Funktion:

Formeleingabe: =ScreenResolution()
Blinken von Zelle Mit diesem Makro blinkt die Zelle C10 rot auf:
Bestätigungsabfrage für Löschungen, Änderungen usw. Sub LöschenAbfragen()
Frage = MsgBox("Sollen alle Einträge gelöscht werden?", vbYesNo)
If Frage = vbYes Then

'Hier Löschanweisung(en) eintragen

Else
MsgBox "Keine Löschung auf Benutzerwunsch"
End If
End Sub
Blattschutz mit unbekanntem Passwort entfernen So einfach und primitiv und schon hat der Blattschutz keinen Wert mehr  :-(
Leider ist mir der Ersteller des Makros nicht bekannt

Sub PW_löschen()
On Error Resume Next
For i = 65 To 66
For j = 65 To 66
For k = 65 To 66
For l = 65 To 66
For m = 65 To 66
For n = 65 To 66
For o = 65 To 66
For p = 65 To 66
For q = 65 To 66
For r = 65 To 66
For s = 65 To 66
For t = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & _
Chr(n) & Chr(o) & Chr(p) & Chr(q) & Chr(r) & Chr(s) & Chr(t)
Next t
Next s
Next r
Next q
Next p
Next o
Next n
Next m
Next l
Next k
Next j
Next i
End Sub

Meine aktuellsten Exceltipps finden Sie hier: