Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1560to1564
1560to1564
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Find

Forumthread: VBA Find

VBA Find
08.06.2017 16:39:54
Dominik
Guten Tag,
ich habe ein Problem bei einem Programm.
Set Ergebnis2 = Worksheets("Controlling").Range("B:B").Find(Suchdatum, LookIn:=xlValues).Row
Bei Ausführung dieses Programmteil bekomme ich jedoch einen Fehler angezeigt:
Laufzeitfehler 91: Objektvariable oder With-Blockvariable nicht festgelegt.
Diese Programmzeile soll mir die Zeilenzahl angeben, in der das Suchdatum gefunden wurde.
(ohne ".Row" funktioniert die Programmzeile, gibt jedoch nur den Inhalt des gefundenen Feldes, also das Suchdatum, zurück)
Ich hoffe ihr könnt mir Helfen.
Dominik
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Find
08.06.2017 16:43:17
Hajo_Zi
Hallo Dominik,
hast Du Ergebnis auch als Long definiert?

AW: VBA Find
08.06.2017 16:49:52
Dominik
Hallo Hajo
Wenn ich Ergebnis2 vorher dimensioniere erscheint der Fehler: "Fehler beim kompilieren, Objekt erforderlich".
Der komplette Programmcode: 
Suchdatum = Worksheets("Controlling").Cells(2, 12).Value
MsgBox (Suchdatum)
Set Ergebnis2 = Worksheets("Controlling").Range("B:B").Find(Suchdatum, LookIn:=xlValues).Row
If Ergebnis2 Is Nothing Then
MsgBox ("nicht gefunden")
Else
MsgBox (Ergebnis2)
End If

Dominik
Anzeige
AW: VBA Find
08.06.2017 16:53:13
Hajo_Zi
Halo Dominik,
bei dem Code muss .row fort.
Es ist nicht der komplette Code.
Die Dimensionierung für ohne Row kennst Du ja.
Meine Tipps willst Du ja nicht umsetzen.
Ich bin dann raus.
Gruß Hajo
Anzeige
AW: VBA Find
08.06.2017 16:55:42
mmat
Ergebnis2 ist irgendeine Zahl, kein Range.
"Set" bitte weglassen
Option Explicit
Sub test()
Dim ergebnis2 As Integer
ergebnis2 = Worksheets("Tabelle1").Range("E:E").Find("warum", LookIn:=xlValues).Row
Debug.Print ergebnis2
End Sub

AW: VBA Find
08.06.2017 17:02:48
Dominik
Wenn ich das so umsetze bekomme ich den Laufzeitfehler 91.
Sub test()
Suchdatum = Worksheets("Controlling").Cells(2, 12).Value
MsgBox (Suchdatum)
Dim Ergebnis2 As Integer
Ergebnis2 = Worksheets("Controlling").Range("B:B").Find(Suchdatum, LookIn:=xlValues).Row
Debug.Print Ergebnis2
End Sub
Beim debuggen verweist Excel auf die Zeile mit dem .Row am Ende
Oder habe ich das falsch umgesetzt?
Dominik
Anzeige
AW: VBA Find
08.06.2017 17:33:05
mmat
Sorry, das kann ich jetzt auf die schnelle nicht nachvollziehen.
Das von mir gepostete Muster ist getestet. In der "Tabelle1" gibt's irgendwo in der Spalte E eine Zelle mit dem Text "warum". Die Zeile dieser Zelle wird im Debug-Bereich ausgegeben.
Muß jetzt leider weg.
vg, MM
AW: VBA Find
08.06.2017 17:34:41
Nepumuk
Hallo Dominik,
so geht das:
Sub test()
    Dim Ergebnis2 As Range
    Dim Suchdatum As Date
    
    Suchdatum = Worksheets("Controlling").Cells(2, 12).Value
    MsgBox (Suchdatum)
    
    Set Ergebnis2 = Worksheets("Controlling").Columns(2).Find(What:=Suchdatum, LookIn:=xlValues)
    
    If Ergebnis2 Is Nothing Then
        MsgBox "Nix gefunden"
    Else
        MsgBox Ergebnis2.Row
    End If
End Sub

Gruß
Nepumuk
Anzeige
AW: VBA Find
08.06.2017 17:38:48
Dominik
Okay, das funktioniert tadellos.
Vielen Dank :-)
Wobei ich jetzt allerdings noch nicht ganz verstanden habe wo der Fehler genau lag.
Könntest du mir das erklären?
AW: VBA Find
08.06.2017 17:44:36
Nepumuk
Hallo Dominik,
die Find-Methode gibt ein Range-Objekt zurück, aber nur wenn etwas gefunden wurde. Wird nichts gefunden gibt die Methode Nothing zurück und .Row von Nothing gibt nun mal den Fehler 91 - Object variable not set.
Gruß
Nepumuk
Anzeige
AW: VBA Find
08.06.2017 17:45:39
Dominik
Dankeschön :-)
;

Forumthreads zu verwandten Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
maximum finden in VBA
Lars

Hallo zusammen,
ich habe in Excel eine Tabelle, in der in der ersten Zeile Überschriften stehen (B1, B2, B3, ...). Darunter befinden sich die dazugehörigen Werte. Über eine Abfrage suche ich mir nun bestimmte Überschriften (z.B. B1,B3,B4,B7) heraus und lasse mir deren Spalte jeweils in eine...
13.11.2008 07:22:00
Thread-ID: 1024016
6 Beiträge
VBA Range Definition
Karen

Hallo Forum,
ich habe ein kleines Problem in meinem Makro.
Ich möchte eine Range abbilden, leider überträgt das Makro aber immer nur die Zeile 6.
For i = 2 To 256
If Cells(3, i).Value = datum Then
Range(Cells(6, i), Cells(40, i)).Copy
Selection.Copy
Cells(6, i + 1)...
22.12.2008 16:21:00
Thread-ID: 1034798
14 Beiträge
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge
VBA Zelle finden und einfügen
Einzel

Hallo,
ich hab mal wieder ein kleines VBA Problem
Ich habe in Tabelle 1 unter E3 bis E7 Werte eingetragen.
Nun möchte ich das sie mit einen Code ausgelesen werden und den jeweiliegen Tagen in Tabelle 2 (neben den Tag rechts) eingefügt wird. Und zwar nur der Wert nicht die Formel.
15.07.2009 09:50:12
Thread-ID: 1088685
4 Beiträge
Anzeige
Finden in VBA
dierkrat

Guten Tag,
ich werde leider aus den vorhandenen Einträgen nicht schlau, so daß ich leider nachfragen muß. Ich habe in einer Zelle folgenden String 'abcdefg (huhu)'. Ich möchte hier jetzt nur 'huhu' ausschneiden und insofern nach dem Zeichen '(' suchen, um anschließen die Länge zu adjustiere...
29.09.2009 12:47:53
Thread-ID: 1106179
9 Beiträge
Range Bezüge in VBA von fix auf relativ umstellen
fix

Hallo Herber Fans,
ich ermittle einen Range:
Set rgGPTMember_Source = Intersect(rgGPTMemberAugmentation.Rows(1).Find("GPT Member", LookIn:=xlValues, LookAt:=xlWhole).EntireColumn, rgGPTMemberAugmentation)
Dessen Adresse lautet dann: $G$5:$G$34
Dieser Range wird nun in eine Namen...
07.01.2010 21:06:12
Thread-ID: 1128031
7 Beiträge
VBA range definieren
Benjamin

Guten Tag an alle,
ich habe ein Problem, bei dem ich zur Zeit kläglich scheitere.
Ich möchte eine Formel nach unten ausfüllen und zwar genau so oft, wie ich in einer Spalte Werte habe.
Also, wenn ich Z.b. in Spalte H1:H4 werte habe, soll die formeln auch von z.B. A1:C4 kopiert werde...
25.02.2010 14:42:10
Thread-ID: 1141514
5 Beiträge
VBA: Range eindimensionell an Funktion übergeben
axel_k

Hi,
ich möchte aus einer Tabelle Werte aus einer Spalte in eine Funktion einlesen: Function bla(daten) End Function
Wenn ich das tue, liegt daten als (n,1)-Matrix zweidimensional vor.
Kann ich daten irgendwie so einlesen, dass ich einen eindimensionalen Vektor (daten(n)) erhalte?...
31.05.2010 12:02:47
Thread-ID: 1159570
7 Beiträge
Range.Find findet falschen Wert
Kerstin

Hallo,
ich suche in einer Spalte (W:W), ob eine Zeichenkette (Adresse) vorhanden ist oder nicht
Dim Adresse As String 'merken der Ursprungsadresse
Adresse = Range("F1") 'z.B. "57=2"
Set gZelleNeu = WSMonat.Range("W:W").Find(Adresse)
...
03.09.2010 12:16:57
Thread-ID: 1175609
3 Beiträge
VBA Button finden im Internetexplorer + sendkeys
chris

Hallo VBA Experten,
ich benötige wieder einmal eure Hilfe. Würde mich sehr freuen wenn es eine Lösung für mich gibt ?!
Ich will mal wieder Excel VBA Missbrauchen für eine andere Anwendung.
Den InternetExplorer oder OPERA.
Ich will mit VBA z.b alle 15 Minuten einen Button drücken...
09.09.2010 20:56:24
Thread-ID: 1176503
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

VBA Find: Fehlerbehebung und praktische Anwendungen

Schritt-für-Schritt-Anleitung

  1. Variablen deklarieren: Stelle sicher, dass alle benötigten Variablen korrekt deklariert sind. Zum Beispiel sollte Ergebnis2 als Range deklariert werden, wenn du die .Row-Eigenschaft verwenden möchtest.

    Dim Ergebnis2 As Range

  2. Suchdatum festlegen: Hole dir den Wert, den du suchen möchtest, aus einer Zelle.

    Dim Suchdatum As Date
Suchdatum = Worksheets("Controlling").Cells(2, 12).Value

  3. Die Find-Methode anwenden: Verwende die Find-Methode, um den Wert in einem bestimmten Bereich zu suchen.

    Set Ergebnis2 = Worksheets("Controlling").Range("B:B").Find(What:=Suchdatum, LookIn:=xlValues)

  4. Überprüfen, ob das Ergebnis gefunden wurde: Stelle sicher, dass du überprüfst, ob Ergebnis2 Nothing ist, bevor du versuchst, die .Row-Eigenschaft zu verwenden.

    If Ergebnis2 Is Nothing Then
   MsgBox "Nicht gefunden"
Else
   MsgBox Ergebnis2.Row
End If

Häufige Fehler und Lösungen

  • Laufzeitfehler 91: Dieser Fehler tritt auf, wenn das gesuchte Objekt nicht gefunden wird und du versuchst, die .Row-Eigenschaft eines Nothing-Objekts zu verwenden. Stelle sicher, dass du die Variable Ergebnis2 überprüfst, bevor du darauf zugreifst.

  • Objektvariable nicht festgelegt: Wenn du versuchst, eine Variable zu setzen, die nicht deklariert ist oder nicht korrekt zugewiesen wurde, erhältst du diesen Fehler. Achte darauf, dass du die korrekten Datentypen verwendest.

Alternative Methoden

  • Verwendung von Cells.Find: Anstatt nur Range.Find zu verwenden, kannst du auch Cells.Find verwenden, um in einem spezifischen Bereich zu suchen.

    Set Ergebnis2 = Worksheets("Controlling").Cells.Find(What:=Suchdatum, LookIn:=xlValues)

  • Suchoptionen anpassen: Du kannst zusätzliche Parameter wie LookAt, SearchOrder und MatchCase nutzen, um die Suche zu verfeinern.

    Set Ergebnis2 = Worksheets("Controlling").Range("B:B").Find(What:=Suchdatum, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)

Praktische Beispiele

  1. Einfaches Finden:

    Sub BeispielEinfachFinden()
   Dim Ergebnis2 As Range
   Set Ergebnis2 = Worksheets("Controlling").Range("B:B").Find(What:="Testwert", LookIn:=xlValues)
   If Not Ergebnis2 Is Nothing Then
       MsgBox "Wert gefunden in Zeile: " & Ergebnis2.Row
   End If
End Sub

  2. Suchen und Ersetzen:

    Sub BeispielSuchenErsetzen()
   Dim Suchwert As String
   Dim Ergebnis2 As Range
   Suchwert = "Altwert"
   Set Ergebnis2 = Worksheets("Controlling").Range("B:B").Find(What:=Suchwert, LookIn:=xlValues)
   If Not Ergebnis2 Is Nothing Then
       Ergebnis2.Value = "Neuwert"
   End If
End Sub

Tipps für Profis

  • Fehlerbehandlung: Füge Fehlerbehandlungsroutinen hinzu, um sicherzustellen, dass dein Code robust ist.

    On Error Resume Next
Set Ergebnis2 = Worksheets("Controlling").Range("B:B").Find(What:=Suchdatum, LookIn:=xlValues)
On Error GoTo 0

  • Performance optimieren: Begrenze den Suchbereich, wenn möglich, um die Performance zu steigern, anstatt die gesamte Spalte zu durchsuchen.

FAQ: Häufige Fragen

1. Was ist der Unterschied zwischen Set und nicht Set bei der Find-Methode?
Set wird verwendet, wenn du ein Objekt (z.B. Range) zuweisen möchtest. Wenn du nur einen Wert zuweisen willst, benötigst du Set nicht.

2. Wie kann ich die Suche auf Groß- und Kleinschreibung achten lassen?
Setze das Argument MatchCase auf True in der Find-Methode.

3. Was passiert, wenn der gesuchte Wert nicht gefunden wird?
Die Find-Methode gibt Nothing zurück, und du solltest deinen Code so gestalten, dass er dies berücksichtigt, um Laufzeitfehler zu vermeiden.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige