bei geposteten Code helfen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox


Excel-Version: 97
nach unten

Betrifft: bei geposteten Code helfen
von: Kai
Geschrieben am: 26.04.2002 - 11:54:26

Hallo zusammen,

was mach ich an untenstehendem Code falsch? Gefunden Werte aus Inputbox sollen gelb markiert werden, alle anderen gelöscht. Durchlauf der Tabelle von A1 bis A xx (variabel).

Wer hat eine Idee?
Gruss
Kai

Sub Loeschen() 'wert aus input abfragen und alle anderen aus spalte a löschen

Dim rngFind As Range
Dim strNumber As String
Dim introw As Integer

strNumber = InputBox("Welche WKN wird gesucht?", _
"Löschen nicht benötigter WKN")

Do
If strNumber = "" Then Exit Sub
Set rngFind = Columns(1).Find(strNumber, lookat:=xlWhole, LookIn:=xlValues)

If rngFind Is Nothing Then
Rows(introw).Delete
Else
Rows(rngFind.Row).Interior.ColorIndex = 6
introw = introw + 1

End If
Loop
End Sub

nach oben   nach unten

hat sich erledigt
von: Kai
Geschrieben am: 26.04.2002 - 12:33:46

Hat sich erledigt, hab es so gelöst. Kai Sub Loeschen() 'wert aus input abfragen und alle anderen aus spalte a löschen Dim strNumber As String Dim lR As Integer Dim i As Integer strNumber = InputBox("Welche WKN wird gesucht?", _ "Löschen nicht benötigter WKN") lR = Cells(Rows.Count, 1).End(xlUp).Row For i = lR To 1 Step -1 If Cells(i, 1) <> strNumber Then Rows(i).Delete Next i If [a1] = "" Then MsgBox "keine Daten vorhanden" If [a1] <> "" Then MsgBox "Fertiglich" End Sub

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Warum will das nicht?"