Zeile finden..Zeile löschen Marko

[Brodiak]

Hallo zusammen,

ich habe folgendes Excel Problem, das ich gerne mit einem Makro lösen würde:

In meiner Excel Datei befindet sich eine große Tabelle mit verschiedenen Werten. Diese Tabelle soll genau so erhalten bleiben wie sie ist, nur mit dem Unterschied, das eine bestimmte Zeile entfernt werden soll.
Und zwar handelt es sich um die Zeile, die der Spalte "F" folgende Kennzahl anzeigt:   2H6803017B .   Wird diese im Tabellenblatt "Lieferungen" gefunden, so soll die komplette Zeile in der sich die gesuchte Kennzahl befindet gelöscht werden. Alles andere soll genau so erhalten bleiben.

Hoffe könnt mir hier weiter helfen.. Danke 

[atilla]

Hallo,

kann die Zahl mehrmals vorkommen?
Wieviele Zeilen hat Dein Tabellenblatt "Lieferungen"?

[Brodiak]

Hallo,

kann die Zahl mehrmals vorkommen?
Wieviele Zeilen hat Dein Tabellenblatt "Lieferungen"?

nein sie kommt nur einmal vorkommen und die Zeilen sind jeden Monat unterschiedlich lang. Diesen sind es 2092.
Wenn du für diese Zeilengröße ein Marko hast, wäre das schon super.

[atilla]

Hallo,

teste mal:

Code:

Sub suchen_und_löschen()
Dim varFund
Dim suchText As String
suchText = "2H6803017B"
'suchtext = sheets("Lieferungen").Range("A1") ' hier wäre der Suchtext in Zelle A1 der Tabelle1 hinterlegt
With Sheets("Lieferungen")
 varFund = Application.Match(suchText, .Columns("F"), 0)
 If IsNumeric(varFund) Then
   If MsgBox(suchText & " in Zeile " & varFund & " gefunden!" & vbLf & vbLf & _
   "Soll die Zeile gelöscht werden?", vbYesNo) = vbYes Then Rows(varFund).Delete
 End If
End With
End Sub

[Brodiak]

Hallo,

teste mal:

Code:

Sub suchen_und_löschen()
Dim varFund
Dim suchText As String
suchText = "2H6803017B"
'suchtext = sheets("Lieferungen").Range("A1") ' hier wäre der Suchtext in Zelle A1 der Tabelle1 hinterlegt
With Sheets("Lieferungen")
 varFund = Application.Match(suchText, .Columns("F"), 0)
 If IsNumeric(varFund) Then
   If MsgBox(suchText & " in Zeile " & varFund & " gefunden!" & vbLf & vbLf & _
   "Soll die Zeile gelöscht werden?", vbYesNo) = vbYes Then Rows(varFund).Delete
 End If
End With
End Sub

passiert leider nix mit dem Makro

[atilla]

Hallo,

mit Makro soll auch nix passieren.  

Ohne Beispieldatei leider keine weitere Hilfe möglich.

[Brodiak]

also versuche es nochmal vereinfacht zu sagen was das Marko tun soll:

1. Im Tabellenblatt "Lieferungen" in der Spalte "F" nach: 2H6803017B suchen.
2. Die gefundene Zeile löschen.

ferig! 

Hoffe macht das ganze etwas deutlicher

[atilla]

Hallo,

nee, das ist nicht deutlicher, das ist genauso deutlich wie Dein erster Beitrag und mein Code ist auch genau darauf ausgerichtet.
Ein winzig kleiner Punkt muss aber noch ergänzt werden, dass habe ich übersehen.

Und fehlt hier:

Code:

Rows(varFund).Delete

der Punkt zu Beginn

Code:

.Rows(varFund).Delete

Tauchte denn wenigstens die Meldung auf, dass etwas gefunden wurde?
Wenn immer noch nichts passiert, dann nicht mehr ohne Beispielmappe melden!

[Brodiak]

Hallo,

nee, das ist nicht deutlicher, das ist genauso deutlich wie Dein erster Beitrag und mein Code ist auch genau darauf ausgerichtet.
Ein winzig kleiner Punkt muss aber noch ergänzt werden, dass habe ich übersehen.

Und fehlt hier:

Code:

Rows(varFund).Delete

der Punkt zu Beginn

Code:

.Rows(varFund).Delete

Tauchte denn wenigstens die Meldung auf, dass etwas gefunden wurde?
Wenn immer noch nichts passiert, dann nicht mehr ohne Beispielmappe melden!

Ne tut sich leider immernoch nix und zeigt auch nicht an woran es liegt.. habe mal ne Datei angehangen falls es hilft
   

[Brodiak]

Ne tut sich leider immernoch nix und zeigt auch nicht an woran es liegt.. habe mal ne Datei angehangen falls es hilft

achso das etwas gefunden wurde zeigt er auch nicht an.. also es tut sich einfach nix...