Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1580to1584
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

zwei Makro zusammenfassen

zwei Makro zusammenfassen
22.09.2017 07:06:04
Gisela
Hallo und guten Morgen,
ich benötige mal wieder eure Hilfe.
Die beiden Makro (sind aus dem Forum) funktionieren und laufen hintereinander ab.
Kann mir bitte jemand helfen, die beiden Abläufe in einem Makro zusammenzufassen?
Sub ohnenachruecker()
Application.ScreenUpdating = False
ActiveSheet.Range("$AK$6:$AN$130").AutoFilter Field:=4, Criteria1:= _
"Nachrücker"
Rows("07:130").Select
Selection.Delete Shift:=xlUp
Range("AO3").Select
ActiveSheet.Range("$AK$6:$AN$130").AutoFilter Field:=4
Range("AN2").Select
Call ohneeingeladen
Application.ScreenUpdating = True
End Sub
Sub ohneeingeladen()
Application.ScreenUpdating = False
ActiveSheet.Range("$AK$6:$AN$130").AutoFilter Field:=4, Criteria1:= _
"eingeladen"
Rows("07:130").Select
Selection.Delete Shift:=xlUp
Range("AO3").Select
ActiveSheet.Range("$AK$6:$AN$130").AutoFilter Field:=4
Range("AN2").Select
Application.ScreenUpdating = True
End Sub
Vielen Dank und liebe Grüße
Gisela

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zwei Makro zusammenfassen
22.09.2017 07:17:07
Luschi
Hallo & Guten Morgen Gisela,
mein Versuch:

Sub Machmal()
Call ohneJeden("Nachrücker")
Call ohneJeden("eingeladen")
End Sub
Sub ohneJeden(xOhne As String)
Application.ScreenUpdating = False
ActiveSheet.Range("$AK$6:$AN$130").AutoFilter Field:=4, Criteria1:=xOhne
Rows("07:130").Select
Selection.Delete Shift:=xlUp
Range("AO3").Select
ActiveSheet.Range("$AK$6:$AN$130").AutoFilter Field:=4
Range("AN2").Select
If xOhne = "Nachrücker" Then
Call ohneeingeladen
End If
Application.ScreenUpdating = True
End Sub

Gruß von Luschi
aus klein-Paris
Anzeige
OK, vielen Dank, o.T.
22.09.2017 10:49:39
Gisela
o.T.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige