Herbers Excel-Forum - das Archiv

combobox1 wert nehmen zeilen löschen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
ComboBox Label
Bild

Betrifft: combobox1 wert nehmen zeilen löschen
von: achim h.

Geschrieben am: 13.12.2006 10:37:32
hallo excel freunde
wer kann mal schauen
mein makro funzt leider noch nicht...
das makro soll..... in Sheet("Zwangsbremsungen".Range("L") suchen den wert aus der combobox1 nehmen und alle zeilen die diesen wert haben löschen.
Sub löschen()
Dim I As Integer
For I = Cells(Rows.Count, 12).End(xlUp).Row To 1 Step -1
If Cells(I, 12) = ComboBox1.Value Then Rows(I).Delete
Next I
End Sub

danke gruss achim h.
Bild

Betrifft: AW: combobox1 wert nehmen zeilen löschen
von: ChrisL
Geschrieben am: 13.12.2006 10:51:04
Hallo Achim
Vermutlich vergleichst du unterschiedliche Datentypen z.B. Text mit Zahl o.ä.
Oder du suchst im aktiven Blatt und nicht in Tabelle Zwangsb...
Who knows ;-)
Chris
Bild

Betrifft: AW: combobox1 wert nehmen zeilen löschen
von: Reinhard

Geschrieben am: 13.12.2006 10:58:14
Hi Achim,
Ansicht--Direktfenster
Option Explicit
Sub löschen()
Dim I As Integer
Debug.Print ActiveSheet.Name
Debug.Print ComboBox1.Value & " ist ein " & TypeName(ComboBox1.Value)
For I = Cells(Rows.Count, 12).End(xlUp).Row To 1 Step -1
Debug.Print Cells(I, 12).Value & " ist ein " & TypeName(Cells(I, 12).Value)
If Cells(I, 12).Value = ComboBox1.Value Then Rows(I).Delete
Next I
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Bild

Betrifft: AW: combobox1 wert nehmen zeilen löschen
von: achim h.

Geschrieben am: 13.12.2006 11:15:00
hallo reinhard
leider löscht das teil nicht die zeile.
es kann aber auch sein das der gesamte code nicht so ganz der hit ist.
ich hoffe es ist nicht unverschämt wenn ich kurz beschreibe was das ganze makro eigentlich machen soll??
Private Sub okArchiv_Click()
With ArchivAuswahl.Label1
If Label1 = "Zwangsbremsungen nach Archiv_Zwangsbremsungen" Then _
Sheets("Filter").Activate
Cells.Select
Selection.Clear
Range("A1").Select
Sheets("Zwangsbremsungen").Activate
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=12, Criteria1:=ComboBox1.Value
Selection.CurrentRegion.Select
Selection.Copy
Sheets("Filter").Activate
Range("A1").Select
ActiveSheet.Paste
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Range("A1:Ad50").Select
'Selection.CurrentRegion.Select
Selection.Copy
Sheets("A_Zwangsbremsungen").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Sheets("Zwangsbremsungen").Activate
Range("A1").Select
Selection.AutoFilter
Dim I As Integer
Debug.Print ActiveSheet.Name
Debug.Print ComboBox1.Value & " ist ein " & TypeName(ComboBox1.Value)
For I = Cells(Rows.Count, 12).End(xlUp).Row To 1 Step -1
Debug.Print Cells(I, 12).Value & " ist ein " & TypeName(Cells(I, 12).Value)
If Cells(I, 12).Value = ComboBox1.Value Then Rows(I).Delete
Next I
End With
danke
achim h.
Bild

Betrifft: AW: combobox1 wert nehmen zeilen löschen
von: Reinhard
Geschrieben am: 13.12.2006 11:22:40
Hi Achim,
wichtiger ist die Info was denn nun im Direktfenster steht.
Gruß
Reinhard
Bild

Betrifft: Danke für deine Mühe
von: achim h.
Geschrieben am: 14.12.2006 07:29:48
danke
gruss achim h.
 Bild
Excel-Beispiele zum Thema "combobox1 wert nehmen zeilen löschen"
ComboBox2 in Abhängigkeit von ComboBox1 bestücken Zeile einfügen und Formeln und Werte übernehmen
Zellwert in Kommentar übernehmen Daten aus Textdatei gezielt in Zellen übernehmen
Werte in eine ComboBox einer UserForm übernehmen Horizontal angeordnete Elemente in eine ListBox übernehmen
Rechnungsnummer aus sequentieller Datei übernehmen Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen
Variable in Zwischenablage übernehmen Nach Eingabe Werte aus Tabellen Übernehmen