Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:16:26
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

makro funktioniert nicht auf anhieb

Forumthread: makro funktioniert nicht auf anhieb

makro funktioniert nicht auf anhieb
04.08.2005 16:36:53
Bernhard
hallöchen!
folgendes problem:
ich habe in access einen button, wenn ich den drücke wird die datei DIREKT_A.xls geöffnet und in der Zelle AN1 ein Wert eingefügt (aus Access, zB 2440).
nun folgender code

Private Sub Workbook_Open()
Selection.AutoFilter Field:=3, Criteria1:=Range("AN1")
Range("AN1").Select
Selection.ClearContents
Range("A1").Select
End Sub

den habe ich in "DieseArbeitsmappe" eingegeben. Leider stimmt der gefilterte Wert nicht mit dem in Zelle AN1 überein. auch wird der wert in AN1 nicht gelöscht wie verlangt.
Wenn ich dann die Prozedur manuell aufrufe funktioniert es bestens! es dürfte also daran liegen, dass die datei zum öffnen ca 10 sec benötigt. wie kann ich nun die filterung solange verzögern, bis die datei komplett geöffnet ist?
habe es mit wait probiert, das hat aber auch nicht gefruchtet!
danke
berni
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: makro funktioniert nicht auf anhieb
04.08.2005 19:25:57
Matthias
Hallo Bernhard,
der erste Befehl ist gleich Selection.(...)
woher weißt du denn, welche Zelle beim Öffnen selektiert ist?
Gruß Matthias
AW: makro funktioniert nicht auf anhieb
04.08.2005 19:31:14
Berber
Hallo,
kann auch sein dass der Wert in AN1 noch gar nicht geschrieben ist, den Du in der Workbook_open Routine filtern willst, Arbeitsmappe wird ja gerade erst geöffnet.
Versuch mal die Filterroutine in
das Ereignis des Sheets (z.B. tabelle1) hineinzuschreiben.
Das Ereignis wird ausgelöst wenn sich etwas in diesem Sheet ändert z.B. der Wert in AN1

Private Sub Worksheet_Change(ByVal Target As Range)
End Sub

Gruss
Berber
Anzeige
AW: makro funktioniert nicht auf anhieb
04.08.2005 20:35:45
teraflop
ich würd's mal so versuchen:

Private Sub Workbook_Open()
Selection.AutoFilter Field:=3, Criteria1:=Range("AN1")
Range("AN1").ClearContents
Range("A1").Activate
End Sub

gruss teraflop
AW: makro funktioniert nicht auf anhieb
05.08.2005 08:49:03
Bernhard
hallo zusammen,
leider hat das alles nicht geholfen. ich hab mir halt momentan mit einer schaltfläche beholfen, ist zwar nicht die eleganteste lösung, aber was will man machen?
gibt es denn tatsächlich keine möglichkeit einen befehl hinauszuzögern (ähnlich wie wait)?
grüße
berni
Anzeige
AW: makro funktioniert nicht auf anhieb
05.08.2005 09:50:44
Matthias
Hallo Berni,
hast du auch das WorkSheet_Change()-Ereignis (Tip von Berber) versucht?
Da "wartet" Excel ja, bis sich ein Wert im Blatt geändert hat.
Gruß Matthias
AW: makro funktioniert nicht auf anhieb
05.08.2005 10:44:41
Bernhard
hi matthias,
das habe ich probiert, es funktioniert an und für sich ja auch. nur durchläuft er diese prozedur dann als endlosschleife, da sich ja auch ständig etwas ändert...
wie kann ich ihm beibringen, dass er die prozedur genau einmal machen soll und dann nicht mehr?
berni
Anzeige
AW: makro funktioniert nicht auf anhieb
05.08.2005 11:11:55
Matthias
Hallo Berni,
naja, notfalls mit einer Static-Variablen:

Private Sub Worksheet_Change(ByVal Target As Range)
Static einmal As Boolean
If Not einmal Then
einmal = True
'hier dein einmaliger Code
End If
End Sub

Gruß Matthias
AW: makro funktioniert nicht auf anhieb
05.08.2005 11:35:02
Bernhard
vielen dank, habs jetzt hingebracht! problem war noch, dass er mir das einfügen aus access nicht als aktion genommen hat und demnach die prozedur nicht ausgeführt hat. aber habs jetzt einfach mit workbook.open() gemanagt, indem ich in einer zelle ein wort einfügen lasse!
danke nochmal
berni
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige