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"