Makro zeilen ausblenden durch dropdown liste

Hallo leute,
ich hoffe ihr könnt mir bis morgen helfen. Ich bräuchte ein skript für einen makro befehl da ich überhaupt keine ahnung davon habe und würde mich freuen wenn ihr mir helfen könntet.
Ich habe eine excelliste mit folgender aufstellung
A2 - a100 verschiedene Kunden Namen (in nummerischer reihenfolge z.B K001,K002 etc.)
B2 - B100 Adressen (als drop down liste einmal für plz / stadt und im zweiten feld die str.)
C2 - C100 (das wichtigste) eine dropdownliste für jeden einzelnden Kunde in der ich auswähle ob der kunde aktiv;inaktiv;gekündigt; oder unknown ist.
Dann kommen noch die spalten d und e hinzu für kundeninformationen.
Jetzt würde ich wollen das ich z.b in spalte F1 eine dropdownliste habe in der ich auswählen kann zwischen die Status Aktiv;inaktiv etc. Wenn ich z.b aktiv auswähle sollen alle "aktiven" kunden die durch reihe C makiert sind hintereinander aufgelistet sein, wobei die anderen inaktiven gekündigten und unknown kunden ausgeblendet werden.
Ich hoffe ihr könnt mich verstehen und mir bei diesem problem helfen.
Ich habe mal ein solch ähnlichen makro gefunden nur leider konnte ich das nicht so bearbeiten wie ich es haben wollte.
Vielen lieben dank leuts :) :)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub ChangeStatus(ByVal Target As Range) Dim loZeile As Long If Target.Address "$H$7" Then Exit Sub Application.ScreenUpdating = False For loZeile = 100 To 2 Step -1 If Range("H7") = "" Then Rows("2:100").Hidden = False Exit For End If If Cells(loZeile, 3) = Range("H7") Then Rows(loZeile).Hidden = False Else Rows(loZeile).Hidden = True End If Next loZeile Application.ScreenUpdating = True End Sub

Hallo Sebastian,
der Name des Makros ist bei Ereignismakros fest vorgegeben und das entsprechende Makro muss im VBA-Editor unter dem Objekt (hier Tabellenblatt) angelegt sein in dem es automatisch bei dem Ereignis starten soll.
Es ist nicht so günstig, wenn du als Zelle für die Auswahl des Status, nach dem gefiltert werden soll, hier die Zelle H7 verwendest. Diese Zeile wird ggf. mit ausgeblendet. Günstiger ist es hier eine Zelle in der 1. Zeile zu verwenden.
Damit das Makro schnell ausgeführt wird sollten vorübergehend neben der Bildschirmaktualisierung die Ereignisakros deaktiviert werden und der Berechnungsmodus auf manuell gesetzt werden.
Gruß
Franz

'Makro unter dem Tabellenblatt mit der Liste
Private Sub Worksheet_Change(ByVal Target As Range)
Dim loZeile As Long, StatusCalc As Long
If Target.Address  "$H$7" Then Exit Sub
With Application
.ScreenUpdating = False
.EnableEvents = False
StatusCalc = .Calculation
.Calculation = xlCalculationManual
End With
If Range("H7") = "" Then
Rows("2:100").Hidden = False
Else
For loZeile = 100 To 2 Step -1
If Cells(loZeile, 3) = Range("H7") Then
Rows(loZeile).Hidden = False
Else
Rows(loZeile).Hidden = True
End If
Next loZeile
End If
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = StatusCalc
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Makro zeilen ausblenden durch dropdown liste

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

330 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro zeilen ausblenden durch dropdown liste

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

330 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread