Suchen einer Zelle

Bild

Betrifft: Suchen einer Zelle
von: Klaus
Geschrieben am: 22.02.2005 20:55:27
Hallo,
ich benötige eure Hilfe.
Mein Problem ist bestimmt ganz einfach, nur ich komme damit nicht weiter.
Ich suche nach einer Zelle in aktiver Tabelle, wo "Plz" drin steht.
Als Rückgabe benötige ich die Zellendaten.
Ich muß die Zeilen und Spalten die darüber oder davor liegen löschen.
Also gefundene Zelle z.b. C3
Zeile 1 und 2 löschen.
Spalte A und B löschen.
Seit Stunden murkse ich rum und komme nicht weiter.
Vieleicht habt ihr eine Idee?
Vielen Dank im voraus
Klaus

Bild

Betrifft: AW: Suchen einer Zelle
von: Josef Ehrensberger
Geschrieben am: 22.02.2005 21:13:01
Hallo Klaus!
Kopiere diesen Code in ein allgemeines Modul.

Sub SuchenUndLoeschen()
Dim rng As Range
Set rng = ActiveSheet.Cells.Find(what:="Plz", LookAt:=xlWhole)
   If Not rng Is Nothing Then
   
      If rng.Row > 1 Then Rows("1:" & rng.Row - 1).Delete
      If rng.Column > 1 Then Range("A1:" & _
            Cells(65536, rng.Column - 1).Address).Delete
   
   End If
End Sub


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Bild

Betrifft: AW: Suchen einer Zelle
von: Klaus
Geschrieben am: 22.02.2005 21:40:18
Hallo Sepp,
darauf wäre ich nie gekommen.
Es funzt wunderbar, aber verstehen tu ich es nicht.
was wird denn hier gemacht? If Not rng Is Nothing Then
Ist nichts in rng is nichts dann mache? oder wie verstehe ich das?
oder was bedeutet das: Cells 65536
Ach so: Ich muß die Spalten bis zur letzten möglichen Zeile löschen! Korrekt?
Danke vielmals
Klaus
Bild

Betrifft: AW: Suchen einer Zelle
von: Josef Ehrensberger
Geschrieben am: 22.02.2005 21:56:45
Hallo Klaus!

"rng" ist die Zelle in der "Plz" gefunden wurde!
"If Not rng Is Nothing Then" ist notwendig, weil sonst,
wenn "Plz" nicht gefunden würde, "rng" eben "Nothing" wäre,
und dann ein Fehler auftritt, wenn man auf "rng" zugreifen will!
Einfach ausgedrückt heist das, wenn "Plz" gefunden, dann ......
Gruß Sepp
Bild

Betrifft: AW: Suchen einer Zelle
von: Klaus
Geschrieben am: 22.02.2005 22:31:16
Hallo Sepp,
ich verstehe, wenn er in rng nichts findet dann macht er auch nichts.
Vielleicht noch eine letzte Verständnisfrage:
Warum mault er bei dir nicht das in der Zeile:
If rng.Row > 1 Then Rows("1:" & rng.Row - 1).Delete
das kein endif vorhanden ist.
Vielen Dank für deine Antworten
Klaus
Bild

Betrifft: AW: Suchen einer Zelle
von: Josef Ehrensberger
Geschrieben am: 22.02.2005 22:40:27
Hallo Klaus!
Weil Bill Gates mein Stiefonkel ist;-))) (schön wär's)
Wenn bei einer "If" abfrage die Anweisung in der selben Zeile steht,
dann braucht's kein "End If" !
Geht aber nur, wenn die Anweisung nur eine Zeile umfasst!

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Bild

Betrifft: AW: Suchen einer Zelle
von: Klaus
Geschrieben am: 22.02.2005 22:45:11
... und Grüße an den Stiefonkel ;-)))
Danke
Klaus
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Suchen einer Zelle"