Suchen einer Zelle

Forumthread: Suchen einer Zelle

Suchen einer Zelle

22.02.2005 20:55:27

Klaus

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

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Suchen einer Zelle

22.02.2005 21:13:01

Josef
AW: Suchen einer Zelle

22.02.2005 21:40:18

Klaus
AW: Suchen einer Zelle

22.02.2005 21:56:45

Josef
AW: Suchen einer Zelle

Klaus
AW: Suchen einer Zelle

22.02.2005 22:40:27

Josef
AW: Suchen einer Zelle

Klaus

AW: Suchen einer Zelle

22.02.2005 21:13:01

Josef

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!

AW: Suchen einer Zelle

22.02.2005 21:40:18

Klaus

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

AW: Suchen einer Zelle

22.02.2005 21:56:45

Josef

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

AW: Suchen einer Zelle

Klaus

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 &gt 1 Then Rows("1:" & rng.Row - 1).Delete
das kein endif vorhanden ist.
Vielen Dank für deine Antworten
Klaus

AW: Suchen einer Zelle

22.02.2005 22:40:27

Josef

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!

AW: Suchen einer Zelle

Klaus

... und Grüße an den Stiefonkel ;-)))
Danke
Klaus

Beliebteste Forumthreads (12 Monate)

Forumthread: Suchen einer Zelle

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread