Supportnet / Forum / Skripte(PHP,ASP,Perl...)
Bestimmte Zeile Löschen!!!
Frage
Hallo zusammen,
Ich bin ganz neu und mit vba noch unerfahren :)
Mein Problem: Wie kann ich mit Makro die erste Spalte meiner Tabelle nach einem bestimmten Wert durchsuchen, und dann die Zeilen oberhalb des gefundenen Wert löschen???
Würde mich echt freuen übewr eure Ideen..
grüß
banan
Antwort 1 von nighty
hi banan :-)
wie gewünscht :-)
gruss nighty
Sub such()
Dim suche1 As Range
Dim Zeichen As Variant
Zeichen = InputBox(Prompt:="Suchbegriff")
Set suche1 = Sheets(1).Range("A2" & ":A" & Sheets(1).Range("A" & Rows.Count).End(xlUp).Row).Find(Zeichen, LookIn:=xlValues)
If Not suche1 Is Nothing And suche1.Row > 2 Then
Sheets(1).Range(2 & ":" & suche1.Row - 1).Delete Shift:=xlUp
End If
End Sub
wie gewünscht :-)
gruss nighty
Sub such()
Dim suche1 As Range
Dim Zeichen As Variant
Zeichen = InputBox(Prompt:="Suchbegriff")
Set suche1 = Sheets(1).Range("A2" & ":A" & Sheets(1).Range("A" & Rows.Count).End(xlUp).Row).Find(Zeichen, LookIn:=xlValues)
If Not suche1 Is Nothing And suche1.Row > 2 Then
Sheets(1).Range(2 & ":" & suche1.Row - 1).Delete Shift:=xlUp
End If
End Sub