Zellen nach bestimmten Inhalt durchsuchen

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


Excel-Version: 97
  

Re: Zellen nach bestimmten Inhalt durchsuchen

von: Heinz A. Wankmüller
Geschrieben am: 16.04.2002 - 13:42:21


Hallo Kerstin,

z.B. mit folgendem Makro, (sucht den Begriff in der Spalte B):

Gruß
Heinz

  

Re: Zellen nach bestimmten Inhalt durchsuchen

von: Marian
Geschrieben am: 16.04.2002 - 13:54:27


Hallo Kerstin!

Hiermit kannst du per Inputbox den Begriff erfragen und in der gewünschten
Spalte suchen.Wenn er gefunden wurde, ist fc.row die Zeile in der der Begriff gefunden wurde.Im weiteren Verlauf wählt der Vorgang die Zeile aus und löscht sie.Müsste eigentlich klappen.ich hoffe, daß ich Dir geholfen habe.

private fc

Private Sub Cmdsuchen_Click()
dim suchbegriff as string
suchbegriff = InputBox("gesuchter Begriff:")
If suchbegriff = "" Then
MsgBox ("Falsche Eingabe!")
Else
Worksheets("tabelle1").Select
Set fc = Worksheets("Tabelle").Columns("a").Find(what:=suchbegriff)
If fc Is Nothing Then
MsgBox ("Dieser Begriff existiert nicht!")
Else
i = fc.Row
Rows(i).Select
Selection.Delete Shift:=xlUp
End If
End If
End Sub

Gruss Marian

  

Re: Zellen nach bestimmten Inhalt durchsuchen

von: Giovanni
Geschrieben am: 16.04.2002 - 15:05:28


'erzeuge Modul1. (Menü: Extras-Makro-Visual Basic Editor-Einfügen-Modul)
'kopiere den Code in Modul1
'Vergewissere Dich, daß sich Excel im RICHTIGEN Tabellenblatt befindet.
'aus visual basic editor : F5 drücken.
'ich gehe davon aus, daß die Daten in der Tabelle durchgehend sind
'(keine leere Zellen).

public sub start()
dim wert as string

activesheet.range("a1").select 'Startzelle -->("a1") muss Du bestimmen.
do until activecell.value = "" 'wenn leere Zelle, dann Abbruch.
wert = ucase(activecell.value) 'Zelleninhalt der Variablen zuweisen.
if mid(wert,1,x) = ucase("yyyyy") then 'z.B. mid("Kerstin",1,5) = "Kerst"
'1 ist die Startposition im String (wert)
'x ist die Anzahl der gelesenen Zeichen
'wert-variable OHNE ""
'ucase konventiert in Großbuchstaben
'yyyyy ist der gesuchte String.
activecell.entirerow.select 'ES WIRD DIE GESAMTE ZEILE GELÖSCHT!
selection.delete
else
activecell.offset(1, 0).select

end if

loop

End Sub


nach unten

Betrifft: Zellen nach bestimmten Inhalt durchsuchen
von: Kerstin
Geschrieben am: 16.04.2002 - 13:34:43

Hallo an alle ,

vielleicht kann mir jemand helfen,
Wie kann ich den Inhalt der Zellen einer bestimmten Spalte nach einer vorgegebenen Zeichenkette durchsuchen
und bei Erfolg die entsprechende Zeile löschen?

Vielen Dank

Kerstin


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Zellen nach bestimmten Inhalt durchsuchen"