Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
18.04.2024 08:06:05
Power Query Tabelle aus jeder Spalte erweitern?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1560to1564
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
AW: VBA Find
08.06.2017 17:45:39
Dominik
Dankeschön :-)

122 Forumthreads zu ähnlichen 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
Anzeige
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 leere Zelle finden und obere Inhalte einfügen
Carmen

Hallo Zusammen,
leider habe ich so ganz wenig Ahnung von VBA, weiß aber auch nicht wie ich mir sonst normal mit
Excel weiterhelfen könnte da es zuviele Daten sind.
Hab folgendes Problem, ich möchte gerne dass alle leeren Zellen in den Spalten B-D mit dem Inhalt der Zellen eine Zeile...
08.12.2008 17:08:41
Thread-ID: 1031133
5 Beiträge
Anzeige
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
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
VBA - Letzte Tabelle Finden und Formel einfügen
André

Hallo Forum,
ich habe jetzt ein paar VBA Funktionen gefunden und in meine Datei eingebaut,
komme aber trotzdem nicht zum Schluss.
Ich habe 5 Tabellenblätter (1 - 5). Für die KW 6 will ich per VBA ein neues Blatt
einfügen und in A1 der Tabelle6 mittels Makro die Funktion
"vo...
07.12.2009 13:31:49
Thread-ID: 1122185
5 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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
2
5
4
13
2
3
8
4
6
4
3
6
2
2
2
6
12
3
10
5
8
2
6
5