Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Skripte(PHP,ASP,Perl...)
Skripte(PHP,ASP,Perl...)
Fragevon andreas_3 vom 07.12.2019, 10:53 Options
Makro nur in gefilterten Zeilen ausführen
Hallo,
ich hab dieses Problem:
eine Exceltabelle mit ca 2000 EInträgen zu Lieferungen in diesem Monat sortiert nach Datum.
Es gibt ein Makro, dass in jeder Zeile eine bestimmte Aktion durchführt. Nun soll die Tabelle aber nach einem bestimmten Datum gefiltert werden ("Sendungen vom 18.12. anzeigen") und dann das Makro nur bei diesen EInträgen ausgeführt werden.
Außerdem wäre schön, wenn in der Anzeige immer automatisch (von selbst evtl auch auf Knopfdruck) die Einträge ab "heute" angezeigt werden, die alten Lieferungen dürfen aber nicht gelöscht werden, weil sie noch f´ür ne Monatsauswertung gebraucht werden.
Dankeschön für irgendwelche Ideen/Lösungsvorschläge
Gruß
Andreas
ich hab dieses Problem:
eine Exceltabelle mit ca 2000 EInträgen zu Lieferungen in diesem Monat sortiert nach Datum.
Es gibt ein Makro, dass in jeder Zeile eine bestimmte Aktion durchführt. Nun soll die Tabelle aber nach einem bestimmten Datum gefiltert werden ("Sendungen vom 18.12. anzeigen") und dann das Makro nur bei diesen EInträgen ausgeführt werden.
Außerdem wäre schön, wenn in der Anzeige immer automatisch (von selbst evtl auch auf Knopfdruck) die Einträge ab "heute" angezeigt werden, die alten Lieferungen dürfen aber nicht gelöscht werden, weil sie noch f´ür ne Monatsauswertung gebraucht werden.
Dankeschön für irgendwelche Ideen/Lösungsvorschläge
Gruß
Andreas
Antwort 1 von Marie vom 08.12.2019, 04:31 Options
Hallo Andreas,
ich habe nicht wirklich verstanden was Du nun eigentlich möchtest??
gruß marie
ich habe nicht wirklich verstanden was Du nun eigentlich möchtest??
gruß marie
Antwort 2 von andraes_3 vom 11.12.2019, 17:30 Options
Hallo Marie (und wer es sonst noch lesen sollte)
...ich versuch's nochmal zu erklären...
ich hab ein Makro, das vereinfacht so aussieht:
x = 1
Sprung 1
cells (x ,1 ).select
[Aktion ausführen]
x = x + 1
goto Sprung1
Im ganzen Makro ist natürlich auch drin, dass es keine Endlosschleife ist, sondern am Ende der Tabelle aufhört.
Die Aktion selbst ist schwer zu erklären, hängt mit einem anderen Programm zusammen, aber das läuft ja auch schon.
Mein Problem ist , dass ich nicht alle Zeilen der Tabelle durchlaufen möchte, sondern dass der Anwender einen bestimmten Filter setzt (z.B. nach Datum, oder Artikelnummer, oder Lieferant) und dann die Aktion nur in den gefilterten Zeilen abläuft.
Verständlich(er)? :-)
LG
Andreas
...ich versuch's nochmal zu erklären...
ich hab ein Makro, das vereinfacht so aussieht:
x = 1
Sprung 1
cells (x ,1 ).select
[Aktion ausführen]
x = x + 1
goto Sprung1
Im ganzen Makro ist natürlich auch drin, dass es keine Endlosschleife ist, sondern am Ende der Tabelle aufhört.
Die Aktion selbst ist schwer zu erklären, hängt mit einem anderen Programm zusammen, aber das läuft ja auch schon.
Mein Problem ist , dass ich nicht alle Zeilen der Tabelle durchlaufen möchte, sondern dass der Anwender einen bestimmten Filter setzt (z.B. nach Datum, oder Artikelnummer, oder Lieferant) und dann die Aktion nur in den gefilterten Zeilen abläuft.
Verständlich(er)? :-)
LG
Andreas
Antwort 3 von Marie vom 11.12.2019, 21:01 Options
Public Function test()
Dim Zeile As Integer
For Zeile = 1 To 2000
If Cells(Zeile, 1) = "Dein Kriterium" Then
Cells(Zeile, 1).Select
[Aktion ausführen]
End If
Next Zeile
End Function
Vielleicht so in der Art?? Oder hab ich was falsch verstanden?
Kopier mal in Visual basic und probier und sag was falsch ist.
Gruß Marie
Dim Zeile As Integer
For Zeile = 1 To 2000
If Cells(Zeile, 1) = "Dein Kriterium" Then
Cells(Zeile, 1).Select
[Aktion ausführen]
End If
Next Zeile
End Function
Vielleicht so in der Art?? Oder hab ich was falsch verstanden?
Kopier mal in Visual basic und probier und sag was falsch ist.
Gruß Marie
Ähnliche Themen
Seriendruck bei aktiven Filter in Excel
Kekern 04.05.2007 - 110 Hits -
Makro
Laurentiuz 07.05.2007 - 100 Hits -
Zeilen- und Spaltenüberschriften
Peter3011 27.06.2007 - 128 Hits - 3 Antworten
VBA-Makro in Excel nur in gefilterten Zeilen ausführen
andreas_3 15.06.2008 - 85 Hits - 1 Antwort
VBA-Makro in Excel nur in gefilterten Zeilen ausführen
andreas_3 18.06.2008 - 60 Hits - 7 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
