Datum

Titel

18.04.2024 21:09:11

4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren

18.04.2024 20:45:35

Worksheet_Activate für alle Sheets

18.04.2024 19:30:20

VBA - Tabelle mit Mannschaftsergebnissen sortieren

18.04.2024 18:04:29

Formel fehler Wert#

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

572to576

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Suchen einer Zelle

Forumthread: Suchen einer Zelle
6 Beiträge zu diesem Forumthread
Anzeige
301 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

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