Zeile löschen!
07.09.2007 13:51:00
lisa
Ich habe einen VBA Code beigefügt über den ich mir aus einem Bereich Daten anzeigen lasse.
Gezeigt wird mir die Zeile in der der Datensatz steht und der ges. Datensatz selbst.
Ich möchte nun die Zeile in der der Datensatz steht, gelöscht haben, nicht den Inhalt sondern die Zeile.
Ist hier jemand der mir dabei helfen kann?
Private Sub CommandButton1_Click()
Dim intwort, intbereich, intergebnis, intgef As Integer
Dim loletzte As Long
Range("C2:D10").ClearContents
intgef = 4
loletzte = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row + 1, 65536)
intwort = InputBox("Was soll gesucht werden?")
For intbereich = 1 To loletzte
If InStr(1, Cells(intbereich, 1), intwort, vbTextCompare) Then
Cells(intgef, 3) = Cells(intbereich, 1)
intergebnis = intbereich
Cells(intgef, 5) = intergebnis
intgef = intgef + 1
End If
Next intbereich
End Sub
Liebe Grüße wieder einmal Lisa
Anzeige