Thema: Bestimmte Zeile Löschen!!!


Seite durchsuchen:
Home


zurück zur Übersicht

Diskussionsgruppe: VBScript/Javascript

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

 Von: banan69 Datum: 21.03.2007, 09:56

alle Antworten zu dieser Frage


Antwort 1 von nighty vom 26.03.2007, 14:53
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

Antworten der Gruppe: VBScript/Javascript
www.supportnet.de



Office 365 stellt vertraute Microsoft Office-Tools für die Zusammenarbeit und Produktivität über die Cloud bereit. So können alle ganz einfach von nahezu überall zusammenarbeiten und auf E-Mails, Webkonferenzen, Dokumente und Kalender zugreifen.

07121 07122 07123 07124 07125 07126 07127 07128