Startmakro läuft nicht mehr

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Startmakro läuft nicht mehr
von: Werner Brauns
Geschrieben am: 14.04.2005 14:28:42
Hallo zusammen!
Seit heute Morgen läuft das Makro, dass ich in "DieseArbeitsmappe" angelegt habe, nicht mehr.
Bei früheren Versionen funktioniert es noch.
Aber ich finde den verdammten Fehler nicht.
Ich wüßte auch nicht, dass ich irgendwas geändert hätte.
Hat vielleicht einer eine Idee?
Danke schonmal vorab.
Gruß
Werner

Bild

Betrifft: AW: Startmakro läuft nicht mehr
von: Hajo_Zi
Geschrieben am: 14.04.2005 14:31:38
Hallo Werner,
ich vermute mal die 3. Zeile ist falsch oder gar die 5.?
Mit Code oder Beispieldatei könnte man es vielleicht noch genauer schreiben.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Bild

Betrifft: AW: Startmakro läuft nicht mehr
von: Werner Brauns
Geschrieben am: 14.04.2005 14:33:45
So sieht's aus:

Private Sub Workbook_open()
    Application.ShowWindowsInTaskbar = True
'
    If Range("Statistik!B2") = "" Then
    Statistikeingabe.Show
    End If
OeffnenStatistik
Sheets("Vp").Select
Sheets("Anfordern").Select
ActiveSheet.Unprotect
    Range("C5").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(R7C4=Speicher!R2C3,""Speicher 1"",IF(R7C4=Speicher!R2C12,""Speicher 2"",IF(R7C4=Speicher!R59C3,""Speicher 3"",IF(R7C4=Speicher!R59C12,""Speicher 4"",IF(R7C4=Speicher!R116C3,""Speicher 5"","""")))))"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowSorting:=True, AllowFiltering:=True
    Range("B7").Select
    Application.ShowWindowsInTaskbar = True
End Sub

Bild

Betrifft: AW: Startmakro läuft nicht mehr
von: Bert
Geschrieben am: 14.04.2005 14:37:42
Hi,
wenn die Excelversion stimmt, kanns nicht klappen, diese Syntax:
AllowSorting:=True, AllowFiltering:=True
gibts in Excel 2000 noch nicht.
mfg Bert
Bild

Betrifft: AW: Startmakro läuft nicht mehr
von: Hajo_Zi
Geschrieben am: 14.04.2005 14:42:30
Hallo Werner,
auf select kann in VBA zu 99% verzichtet werden.
Ich vermute mal Version 2000 hat die Eigenschaften AllowSorting:=True, AllowFiltering:=True noch nicht.
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
Bild

Betrifft: AW: Startmakro läuft nicht mehr
von: Werner Brauns
Geschrieben am: 14.04.2005 15:01:05
Komisch ist nur, dass es heute Morgen noch ging.
Gruß Werner
Bild

Betrifft: AW: Startmakro läuft nicht mehr
von: Hajo_Zi
Geschrieben am: 14.04.2005 15:05:35
Hallo Werner,
aber nicht bei Version 2000.
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
Bild

Betrifft: AW: Startmakro läuft nicht mehr
von: Werner Brauns
Geschrieben am: 14.04.2005 15:08:02
Sorry. Dann habe ich sicher eine andere Version.
Kenne mich da nicht so aus.
Im Info-Menü steht was von Excel 2002. Keine Ahnung was das bedeutet.
Es ist ja auch seltsam, dass das Makro in einer Sicherungskopie von vor ein paar Tagen läuft.
Gruß
Werner
Bild

Betrifft: AW: Startmakro läuft nicht mehr
von: Werner Brauns
Geschrieben am: 14.04.2005 15:37:58
Ich brech zusammen:
In einem Arbeitsblatt hatte ich heute Morgen in drei Zellen jeweils folgendes eingesetzt:
Zelle G1: =HEUTE()
Zelle G2: =ARBEITSTAG(DATUM(JAHR(G4);MONAT(G4)+1;1);-1;)
Zelle G3: =ARBEITSTAG(DATUM(JAHR(G4);MONAT(G4)+1;0);1;)
Diese Formeln habe ich wieder gelöscht und das Startmakro läuft.
Was soll DAS denn???
Gruß Werner
Bild

Betrifft: AW: Startmakro läuft nicht mehr
von: andre
Geschrieben am: 16.04.2005 19:41:09
Hallo Werner,
mit der Formel
ActiveCell.FormulaR1C1 = _
"=IF(R7C4=Speicher!R2C3,""Speicher 1"",IF(R7C4=Speicher!R2C12,""Speicher 2"",IF(R7C4=Speicher!R59C3,""Speicher 3"",IF(R7C4=Speicher!R59C12,""Speicher 4"",IF(R7C4=Speicher!R116C3,""Speicher 5"","""")))))"
berührst Du G7 und tiefer, hatten Deine 3 Eintragungen dort Auswirkungen?
Grüße, ANdre

Bild

Betrifft: AW: Startmakro läuft nicht mehr
von: Werner Brauns
Geschrieben am: 18.04.2005 07:05:57
Hallo Andre!
Nein. Die 3 Eintragungen hatten dort keine Auswirkungen. Sie standen in einem anderen Arbeitsblatt.
Ich wollte, dass mir Excel am ersten bzw. am letzten Arbeitstag eines Monats automatisch eine Meldung bringt und mich an eine Statistik erinnert.
Gruß
Werner
Bild

Betrifft: AW: Startmakro läuft nicht mehr
von: andre
Geschrieben am: 18.04.2005 16:43:28
... an welcher Stelle ist es denn überhaupt hängengeblieben? Trage mal in B2 nix ein und schaue, ob das userform startet.
Grüße, Andre
Bild

Betrifft: AW: Startmakro läuft nicht mehr
von: Werner Brauns
Geschrieben am: 20.04.2005 07:17:23
Es bleibt nicht hängen... es startet einfach nicht mehr.
Als ich in zwei Zellen in einem der Arbeitsblätter diese Berechnung des ersten bzw. latzten Arbeitstages des Monats reinbrachte lief das Startmakro einfach nicht mehr an.
Grüße
Werner
Bild

Betrifft: AW: Startmakro läuft nicht mehr
von: andre
Geschrieben am: 20.04.2005 17:34:36
... was passiert denn, wenn Du das Makro schrittweise laufen lässt?
Grüße,Andre
Bild

Betrifft: AW: Startmakro läuft nicht mehr
von: Werner Brauns
Geschrieben am: 21.04.2005 06:53:54
Dann geht es.
Gruß
Werner
Bild

Betrifft: AW: Startmakro läuft nicht mehr
von: andre
Geschrieben am: 21.04.2005 19:41:41
... na ja, wenigstens was. Viellicht hilft dass es automatisch geht, alles in eine neue Mappe packen.
Grüße, Andre
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Makro zum Zeilen löschen"