Anzeige
Archiv - Navigation
116to120
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
116to120
116to120
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

bei geposteten Code helfen

bei geposteten Code helfen
26.04.2002 11:54:26
Kai
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
hat sich erledigt
26.04.2002 12:33:46
Kai
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige