Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Skripte(PHP,ASP,Perl...)
Skripte(PHP,ASP,Perl...)
Fragevon banan69 vom 21.03.2019, 09:56 Options
Bestimmte Zeile Löschen!!!
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
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 vom 26.03.2019, 14:53 Options
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
Ähnliche Themen
Excel: Zeile nch bestimmten wert durchsuchen und Ausgabe von Wert in selber Spalte aber andere Zeile?
ab098 12.02.2007 - 389 Hits - 1 Antwort
Zeilen mit #BEZUG# löschen
Trudi 16.04.2007 - 149 Hits - 8 Antworten
Möchte im Excel wiederholend jede 2-9 Zeile löschen
tomju663 20.08.2007 - 42 Hits -
vba in Code-Zeile "springen"
eselsaffe 05.10.2007 - 144 Hits - 4 Antworten
Zählenwenn: Wenn bestimmte Zeilen eine bestimmte Hintergrundfarbe haben?
Wolfine 20.05.2008 - 207 Hits - 2 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
