Hallo Kristina24,
die 10 muss durch deine Spaltennummer ersetzt werden, für die du die maximale Zeilenanzahl bestimmst. Ich hatte das Makro ausprobiert und dazu eine vorhandene Tabelle benutzt, deshalb die 10.
Was du genau machst, habe ich immer och nicht verstanden, aber wenn es läuft, ist es ja o.K.
Gruß
Holger
Kristina24 schrieb am 24.01.2010 20:20:52:
Hey Holger,
es funktioniert. Aber kannst du mir auch sagen,wofür die 10 in "Cells(Rows.Count, 10)" steht???
Einige Zeilen wurden nicht gelöscht, obwohl sie einen zu löschenden Status enthielten, Andere Zeilen mit dem gleichen Status wurden aber gelöscht. Komisch irgendwie. Hat die "10" etwas damit zu tun???
Liebe Grüße,
Kristina
Kristina schrieb am 24.01.2010 19:12:52:
Hallo Holger,
lieb das du mir geantwortet hast.
Es ist so, dass die Stati immer in Spalte E stehen und in jeder Zeile natürlich anders sein können.
Die Zeile in der in Spalte E ein nicht zuvor ausgewählter Status steht soll gelöscht werden
Ich werde mal deine Vorschläge einarbeiten und hoffe das ich das irgendwie hinbekomme.
Danke erstmal für die super schnelle Antwort.
Liebe Grüße,
Kristina
Holger schrieb am 24.01.2010 15:22:55:
Hallo Kristina24,
ich habe ja keine Ahnung von der Art deiner Status und wie diese geprüft werden müssen. Deshalb kann ich dir keinen vernüftigen Vorschlag machen. Ich gehe davon aus, dass die mit den einzelnen Status zu machenden Prüfungen sehr verschieden sind.
Du kannst z.B. in der Private Sub CommandButtonN_Click() jede Checkbox abfragen:
if checkbox1=true then ...
if checkbox2=true then ...
...
Die Zelle in der j-ten Zeile in Spalte E sprichst du mit cells(j,5) an.
Die j-te Zeile löscht du mit Rows(j).Delete. Achte darauf, dass bisherigen Zeilen unterhalb der gelöschten Zeile danach eine um 1 verminderte Zeilennummer haben.
Du kannst auch alle Chexkboxen in einer For-Next-Schleife abfragen. Wirklich einfacher wird das Makro dadurch aber nicht:
Private Sub CommandButtonN_Click()
For i = 1 To 10
If Controls("Checkbox" & i).Value = True Then
For j = Cells(Rows.Count, 10).End(xlUp).Row To 1 Step -1
Select Case i
Case 1
If cells(j,5)=... ' then'Auswertung des Status 1
Rows(j).Delete
End If
Case 2
If cells(j,5)=... ' then'Auswertung des Status 2
Rows(j).Delete
End If
'...
Case Else
End Select
Next j
End If
Next i
End Sub
Gruß
Holger
Kristina24 schrieb am 22.01.2010 14:22:30:
Hallo zusammen,
ich habe ein Problem für das ich leider keine Lösung finde. Vielleicht kann mir ja hier jemand weiterhelfen.
Ich habe eine Excel-Datei, die ich mittels Makro filtern möchte. Dabei habe ich 10 verschiedene Stati (Status1, Status2...) in einer Spalte stehen.
Zur Auswahl der Stati, die ich angezeigt bekommen möchte habe ich einen Rahmen (Frame) mit dem Namen frm_Auswahlfeld in eine Userform "usf_StatusAuswahl" integriert (ob das für die Makro-Programmierung wichtig ist weiß ich nicht).
In dem Frame befinden sich 10 CheckBoxen mit den Namen CheckBox1, CheckBox2... bis CheckBox10. Diese CheckBoxen stehen für die verschiedenen Stati in der Spalte E, beginnend ab Zeile 16 meiner Excel-Tabelle "Masterliste".
Über ein Makro wird im ersten Schritt die zu filternde Tabelle kopiert. Der Anwender wird aufgefordert einen Namen für das neue Tabellenblatt einzutippen.
Nun zu meinem Problem:
Ich möchte die neue Tabelle, die ja jedesmal einen anderen Namen haben kann, nach den vorher anhand der CheckBoxen ausgewählten Stati filtern. Alle Zeilen, bei denen die CheckBox-Auswahlen (mit Bezug auf Spalte E der neuen und dann aktiven Tabelle) nicht zutreffen, sollen dauerhaft aus dieser Tabelle gelöscht werden.
Das ganze soll über einen Button "cmd_Filtern", der sich in der UserForm "usf_StatusAuswahl" befindet, aktiviert/gestartet werden.
Kann mir hier jemand helfen? Es wäre toll, da es meinen wöchentlichen Report stark vereinfachen würde.
Beste Grüße,
Eure Kristina
|