In geschlossener Datei nach Text suchen

Hallo ihr,
ich habe ein kleines Problem.
Ich habe eine Datei("Urlaub.xlsm") für Urlaub mit 12 Blättern (Januar-Dezember)
In der Zeile "2", also B2:AF2, steht immer ein Datum (immer vom ersten bis letzen Tag des Monats im Format TT.MM.JJJJ). Diese Urlaubsdatei ist im Regelfall geschlossen, aber immer im selben Verzeichnis hinterlegt.
In einer anderen Datei wird in einer Textbox (TextBox1) ein Datum eingetragen.
Sobald ein CommandButton gedrückt wird, soll das Makro jetzt in der geschlossenen Urlaubsdatei nach dem Datum suchen und bei Fund die entsprechende Zelle (oder noch besser die ganze Spalte) als Variable zur weiteren Bearbeitung speichern.
Ich habe schon x Foren durchforstet und versucht die VBA Codes anzupassen, habe aber keinen Erfolg.
Kann mich einer von euch erleuchten?
Und ist es möglich dynamisch zu suchen, heist wenn Datum zb TT.02.JJJJ ist, dass er automatisch nur im Blatt Februar sucht?
LG und schon mal Danke für eure Mühen!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Das stimmt, ok dann füge ich einfach einen Code zum Öffnen und danach einen zum Schließen an.
Jetzt habe ich nur noch das Problem, dass ich nicht drauf komme, wie ich die ganze Arbeitsmappe, beziehungsweise nur die Reihe 2 danach durchsuchen kann.
Mein Code klappt nicht so ganz:


Private Sub CommandButton1_Click()
Dim wkb As Workbook
Dim geoeffnet As Boolean
Dim wkbName As String, wkbPath As String
Dim bereich As Range
wkbName = "Urlaub.xlsm"
wkbPath = "XYZ"
' feststellen, ob Datei schon geöffnet
For Each wkb In Application.Workbooks
If wkb.Name = wkbName And wkb.Path = wkbPath Then geoeffnet = True
Next wkb
' entsprechend reagieren
If geoeffnet Then
Workbooks(wkbName).Activate
Else
Workbooks.Open Filename:=wkbPath & "\" & wkbName, UpdateLinks:=0
End If
Set bereich = Workbooks(wkbName).Rows(2).Find("TextBox1.value", LookAt:=xlWhole)
If bereich Is Nothing Then
MsgBox "Jahr nicht gefunden"
Else
MsgBox "Jahr in Spalte " & bereich.column & " gefunden"
End If
Workbooks(wbkName).Close
End Sub

for i= 1 to 12 Set bereich = Workbooks(wkbName).sheets(i).Rows(2).Find("TextBox1.value", LookAt:=xlWhole) If bereich Is Nothing Then MsgBox "Jahr nicht gefunden" Else MsgBox "Jahr in Blatt "& Workbooks(wkbName).sheets(i).name & " Spalte " & bereich.column & _ " gefunden" Workbooks(wbkName).Close exit for end if next i end sub

Beliebteste Forumthreads (12 Monate)

In geschlossener Datei nach Text suchen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

In geschlossener Datei nach Text suchen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread