zelle suchen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: zelle suchen
von: Thomas M
Geschrieben am: 22.06.2002 - 10:01:42

Guten Morgen
Habe in der Recherche folgendes Makro gefunden. Wie muss ich es abändern, das es nur Spalte A durchsucht.

Sub auf()
Dim suche As String, zelle As Range
suche = 1
For Each zelle In ActiveSheet.UsedRange
If zelle.Value = suche Then
zelle.ClearContents
End If
Next
End Sub

Vielen Dank
Thomas


nach oben   nach unten

Re: zelle suchen
von: Hajo_Zi
Geschrieben am: 22.06.2002 - 10:13:49

Hallo Thomas


Sub auf1()
    Dim suche As String, I As Long, Letzte As Long
    If [a65536] = "" Then
        Letzte = [a65536].End(xlUp).Row
    Else
        Letzte = 65536
    End If
    suche = 1
    On Error Resume Next
    For I = 1 To Letzte
        If Cells(I, 1) = suche Then Cells(I, 1).ClearContents
    Next
End Sub

Für alle Werte der Spalte A

Gruß Hajo


nach oben   nach unten

Re: zelle suchen
von: Thomas M
Geschrieben am: 22.06.2002 - 10:16:21

Vielen Dank :-)
nach oben   nach unten

Noch ne Frage
von: Thomas M
Geschrieben am: 22.06.2002 - 11:14:31

Wie muss man suche definieren wenn man einen Teilstring sucht
Ich habe in Spalte A Namen stehen und bei manchen steht eine 1 davor und diese soll man suchen

Wäre nett wenn mir nochmal jemand helfen könnte.


nach oben   nach unten

Re: zelle suchen
von: Hajo_Zi
Geschrieben am: 22.06.2002 - 11:20:57

Hallo Thomas

mal liv


Sub auf1()
    Dim suche As String, I As Long, Letzte As Long
    If [a65536] = "" Then
        Letzte = [a65536].End(xlUp).Row
    Else
        Letzte = 65536
    End If
    suche = 1
    On Error Resume Next
    For I = 1 To Letzte
        If Mid(Cells(I, 1),1,1) = suche Then Cells(I, 1).ClearContents
    Next
End Sub

Mid(Cells(I, 1),1,1) eine Zeichenkette aus der Zelle begin an 1 Stelle und Zeichenläange 1


Gruß Hajo


nach oben   nach unten

Re: zelle suchen
von: Thomas M
Geschrieben am: 22.06.2002 - 11:31:50

Nochmals danke jetzt klappts :-)
nach oben   nach unten

Re: Noch ne Frage
von: MikeS
Geschrieben am: 22.06.2002 - 17:25:30

Hallo Thomas,

als Ansatz hilft Dir vielleicht nachfolgender Code:


Sub Suchen()
  Dim As String
  Dim As Long
  Application.ScreenUpdating = False
  Sheets("Tabelle1").Activate
  s = InputBox("Bitte Suchbegriff eingeben", "Suche nach linker Zahl")
  Range("A1").Select
    For l = 1 To ActiveSheet.UsedRange.Rows.Count
      If Left(ActiveCell.Value, 1) <> s Then
      ActiveCell.Offset(1, 0).Select
        If Left(ActiveCell.Value, 1) = s Then
        Exit For
        End If
      End If
  Next l
  Application.ScreenUpdating = True
End Sub

In Spalte A wird hier beginnend ab A1 nach dem Teilstring gesucht (in diesem Beispiel das 1.linke Zeichen),
den Du über eine InputBox eingeben kannst.

Wird in der aktiven Zelle nichts gefunden,
gehts in der darunterliegenden Zelle weiter.

Mit der Codezeile If Left(ActiveCell.Value, 1)
prüfst Du, ob das erste linke Zeichen Deiner Eingabe entspricht.

Ciao MikeS

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "zelle suchen"