Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1112to1116
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
1112to1116
1112to1116
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum mit FIND finden

Datum mit FIND finden
{Boris}
Hi Leute,
ich bekomm grad mal wieder die Krise, ein per Formel ermitteltes Datum mit der Find-Methode in einer Spalte zu finden.
C5: 01.01.2010
C6: =C5+1 und runterkopiert.
Das zu suchende Datum übergebe ich aus einem Calendar-Steuerelement im Datentyp Date.
Aber egal, wonach ich mit Range("C5:C400").Find(...).Row suche:
Datum
CLng(Datum)
und worin:
lookin:=xlformulas
lookin:=xlvalues
Immer kommt: Laufzeitfehler 1004: Die Find-Eigenschaft kann nicht zugeordnet werden.
Wie kann ich das Datum zuverlässig aufspüren? Es ist definitiv im Suchbereich vorhanden. Die Zellinhalte sind auch nicht über die Schutzoption ausgeblendet.
Danke und Grüße
Boris

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Datum mit FIND finden
06.11.2009 13:26:24
Rudi
Hallo,
also das klappt bei mir einwandfrei: 
Private Sub CommandButton1_Click()
Dim dte As Date, r As Range
dte = Calendar1
Set r = Columns(3).Find(dte, LookIn:=xlValues, lookat:=xlWhole)
MsgBox r.Address
End Sub

Gruß
Rudi
AW: Datum mit FIND finden
06.11.2009 13:33:21
Luschi
Hallo Rudi,
stimmt, so klappt es auch bei mir. Wenn man sich allerdings auf den Eintrag in der verknüften Zelle verläßt,
muß es es so machen wie in meinem Beispiel. Denn in der Zelle steht der Datumswert als Text.
Man kann immer wieder nur staunen, welche Fallstricke so herumliegen.
Gruß von Luschi
aus klein-Paris
Anzeige
AW: Datum mit FIND finden
06.11.2009 13:27:25
hary
Hallo Boris
Hab hier Excel ohne Calendersteuerelement. aber so funzt es mit Inputbox. In C1 steht volle Datum, ab C2 (0C1+1) usw.Hilft Dir vieleicht weiter. 

Sub n()
Dim zelles As Range
Dim bereichs As Range
Dim datum As Date
datum = InputBox("Datum eingeben")
Set bereichs = Sheets("Tabelle1").Range("C1:C100")
Set zelles = bereichs.Find(what:=datum, lookat:=xlWhole, LookIn:=xlValues)
If zelles Is Nothing Then
MsgBox "Datum nicht gefunden"
Else
MsgBox "Datum befindt sich in Zelle" & zelles.Address
End If
End Sub
AW: Datum mit FIND finden
06.11.2009 13:27:48
Luschi
Hallo Boris,
Habe das mal nachgebaut mit dem Calender-Steuerelement, und bei mir klappt das so: 

Dim rg1 As Range, rg2 As Range, rg3 As Range
Set rg1 = ActiveSheet.Range("E5") 'verknüpfte Zelle vom Cal.-Steuerelement
MsgBox VarType(rg1.Value)   '8 --> String
Set rg2 = ActiveSheet.Range("C5:C25")
Set rg3 = rg2.Find(CDate(rg1.Value), , xlValues, xlWhole, xlByRows, xlNext)
If Not rg3 Is Nothing Then
MsgBox rg3.Value & vbCrLf & rg3.Address
End If
Set rg1 = Nothing
Set rg2 = Nothing
Set rg3 = Nothing
Gruß von Luschi
aus klein-Paris
Anzeige
Application.Match über Zellbereich...
06.11.2009 14:22:03
Tino
Hallo,
hier eine Möglichkeit ein Datum in einem Zellbereich sicher zu finden.
Option Explicit

Sub Match_Ueber_Zellbereich(Bereich As Range, SuchWert As Variant)
Dim rZellen As Range
Dim LCol As Long, tempCol As Long
Dim varRow

With Sheets(Bereich.Parent.Name)
    For LCol = 1 To Bereich.Columns.Count
       tempCol = 1
       Do While IsNumeric(varRow)
            varRow = Application.Match(SuchWert, Bereich.Columns(LCol).Range(.Cells(tempCol, 1), .Cells(Bereich.Rows.Count, 1)), 0)
               If IsNumeric(varRow) Then
                  If rZellen Is Nothing Then
                   Set rZellen = Bereich(varRow + tempCol - 1, LCol)
                   tempCol = tempCol + varRow
                  Else
                   Set rZellen = Union(rZellen, Bereich(varRow + tempCol - 1, LCol))
                   tempCol = tempCol + varRow
                  End If
               End If
       Loop
    
       varRow = 0
    Next LCol
End With

If Not rZellen Is Nothing Then
 Set Bereich = rZellen
Else
 Set Bereich = Nothing
End If

End Sub

Sub BeispielVerwendung()
Dim ErgebisZellen As Range, vSuchwert

'Suchwert nur ein Teil eines Wortes Platzhalter verwenden Bsp. "Apfel*" 
vSuchwert = CLng(Date)

'Suchbereich 
Set ErgebisZellen = Tabelle1.Range("A1:Z100")

Match_Ueber_Zellbereich ErgebisZellen, vSuchwert

If Not ErgebisZellen Is Nothing Then
 MsgBox "Suchwert '" & vSuchwert & "' wurde in den Zellen " & ErgebisZellen.Address & " gefunden"
Else
 MsgBox "nix gefunden"
End If
End Sub

Gruß Tino
Anzeige
Danke an alle...
06.11.2009 16:16:59
{Boris}
Hi zusammen,
...die Aussage, dass es bei Euch allen funktioniert, hat mir die Erleuchtung gebracht: Das Naheliegenste hatte ich übersehen: Ohne Umwandlung (CLng) in den xlValues suchen.
Problem erledigt!
Besten Dank an alle!
Grüße Boris

43 Forumthreads zu ähnlichen Themen

mit Find (VBA) nach Datum suchen
Werner

Hi!
Ich habe folgendes Problem:
Ich habe eine Spalte mit Datumseinträgen (z.B.:13.04.1953, 17.12.1970, ...)
Suche ich mit
ThisWorkbook.Worksheets("AUSWAHL").Columns("E:E").Find(What:="17")
bekomme ich ein Ergebnis
ThisWorkbook.Worksheets("AUSWAHL").Columns("E:E").Find(W...
13.08.2008 23:54:00
Thread-ID: 1001685
8 Beiträge
Anzeige
Tabellenblätter nach Datum durchsuchen
Markus

Hallo zusammen,
ich habe angefügte Datei erstellt.
Jetzt möchte ich das sich das Blatt "Tabelle1" aus den anderen Blättern mit Daten füllt.
Und zwar soll beispielsweise nach dem Datum in Tabelle1 in A4 in den anderen Blättern gesucht werden. Das Datum steht auf den anderen Blättern...
25.09.2009 10:24:50
Thread-ID: 1105395
2 Beiträge
VBA Datum in INPUTBOX in Tabelle suchen
Klaus

Nachdem ich nun seit einigen Stunden das Forum durchforstet habe, gehen mir langsam die Suchbegriffe aus. Daher frag ich jetzt einfach einmal......
Ich habe (mal wieder) so eine Tabelle mit einer Zinsstaffel. In Spalte B steht immer die Valuta oder eben das Buchungsdatum.
Ich hab mir be...
22.04.2010 16:03:34
Thread-ID: 1153334
2 Beiträge
Anzeige
Nachdatum suchen und in entsprechende Tabelle kopi
Choppy_76

Hallo zusammen,
Ich habe eine Tabelle mit 6 Spalten. In Spalte A wird automatisch immer das heutige Datum eingetragen wenn sich in Spalte B was ändert. Nun sollen die Eingaben ab Zeile 2 der Spalte A,B,C,D,E,F soweit die Zellen befüllt sind, der Tabelle Eingabe nach jeden öffnen anhand von...
09.08.2011 09:01:54
Thread-ID: 1225325
14 Beiträge
Zellen nach Datum durchsuchen
Stefan Thewalt

Hallo,
ich habe folgendes Problem:
In meinem Excelsheet habe ich diverse Zellen,
in denen sowohl Text als auch gleichzeitig ein Datum steht in der Form: "Dokumentation fertig 30.06.2002"
Dabei können in einer Zelle auch mehrere solcher Sachen stehen,also:
"Dokumentation fertig 3...
04.06.2002 15:53:23
Thread-ID: 125813
4 Beiträge
Nach einem Datum suchen
Flo

Hallo zusammen,
Ausgangssituation:In meinem ersten Tabellenblatt habe ich das aktuelle Datum mit der HEUTE-Formel in einer Zelle stehen. Diese Arbeitsmappe enthält jedoch noch weitere 53 Tabellenblätter. In jedem Blatt stehen fünf Datum, also 1 Woche (daher auch die 53 Tabellenblätter).
P...
25.06.2002 10:38:17
Thread-ID: 131160
2 Beiträge
nächstes Datum finden
Franz

Hallo Fachleute,
in Spalte C von C6 bis C55 stehen Datümer, und zwar chronologisch geordnet vergangene und künftige. Nun möchte ich mittels Bed. Format. das nächste Datem nach heute markieren. (Und zwar nicht, indem ich alle vergangenen z. B. abdunkle mit =$C18 Ich hab's damit versucht (da...
16.04.2013 16:40:11
Thread-ID: 1309077
3 Beiträge
nächstes Datum finden
Franz

Hallo Fachleute,
ich habe eine Liste mit unregelmäßigen Datumsangaben. Nun möchte ich aus dieser Liste das nä _ chste Datum finden. Ich hab schon allerlei versucht - u. a.: =MIN(WENN($T$2:$T$129>HEUTE();$T$2:$T$129;9^9)) - komme aber auf keinen grünen Zweig. Drum bitte ich um Eure H...
16.05.2013 15:28:12
Thread-ID: 1313451
5 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton InputBox

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
7
6
1
1
8
13
3
1
2
4
2
4
9
8
7
5
5
2
1
6
3
7
1
3
4