Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
aktuelles Datum suchen
zurück: Ausgeblendeten Spalten Format zuweisen? weiter: Zeilen löschen wenn summe gleich 1. Zeile Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Mordread
Im Profil kannst Du frei den Rang ändern


Verfasst am:
21. Apr 2010, 10:49
Rufname:

aktuelles Datum suchen - aktuelles Datum suchen

Nach oben
       Version: Office 2007

Hallo Leutz,

ich probiere mal meine frage aufzuteilen:

in zeile 7 meiner tabelle läuft von links nach rechts das datum. ich möchte nun für das aktuelle datum die entsprechende spalte finden.

zusätzlich ist jeder monat in einem eigenen sheet abgelegt (aber immer in der 7. Zeile das komplette datum.

ich dachte mir, dass das makro mit einer schleife über alle sheets das aktuelle datum sucht, aber das scheint mir sehr umständlich. ausserdem weiss ich nicht, wie man bei makros auf andere sheets zugreift.

Falls mir jemand bei meinen Problemen helfen kann, wäre ich sehr dankbar.
Kaulquappe
ewiger Amateur


Verfasst am:
21. Apr 2010, 11:50
Rufname:


AW: aktuelles Datum suchen - AW: aktuelles Datum suchen

Nach oben
       Version: Office 2007

Hi,

zu aufwändig ist das gar nicht, ein paar Mal eine Zeile durchgehen dürfte ziemlich schnell gehen:
Code:

Sub xx()
    Dim ws As Worksheet
    Dim c As Long
    For Each ws In ThisWorkbook.Worksheets
        For c = 1 To ws.UsedRange.SpecialCells(xlCellTypeLastCell).Column
            If ws.Cells(7, c) <> "" Then
                If IsDate(ws.Cells(7, c)) Then
                    If CDate(ws.Cells(7, c)) = Date Then
                        ws.Select
                        ws.Columns(c).Select
                        Exit Sub
                    End If
                End If
            End If
        Next c
    Next ws
    MsgBox "Nicht gefunden"
End Sub



Man könnte sicher einiges Optimieren, dazu müsstest Du genauere Angaben machen, in welchem Format steht das Datum in den Zellen, wie heißen die Sheets, aber evt. geht es so schon ganz gut.

Gruß
Michael
Mordread
Im Profil kannst Du frei den Rang ändern


Verfasst am:
21. Apr 2010, 14:51
Rufname:

AW: aktuelles Datum suchen - AW: aktuelles Datum suchen

Nach oben
       Version: Office 2007

Danke das hilft mir sehr weiter.

Schönen Tag noch ^^
Tom72
Möchtegern


Verfasst am:
10. Jun 2011, 17:48
Rufname: Tom
Wohnort: Mexiko

AW: aktuelles Datum suchen - AW: aktuelles Datum suchen

Nach oben
       Version: Office 2010

Hallo an alle,

Das ist im Grunde fast genau was ich gebrauchen könnte.

Bei mir steht das Datum aber immer in der Spalte B. (Auf Datum formatiert)
Von B15:B33 und ich habe 5 Tabellen, bezeichnet mit Woche1 - Woche5.

Wenn beim öffnen der Datei das aktuelle Datum gesucht wird
wäre das perfekt.

Vielen Dank schon mal im voraus.


Mfg Tom
Tom72
Möchtegern


Verfasst am:
11. Jun 2011, 08:00
Rufname: Tom
Wohnort: Mexiko

AW: aktuelles Datum suchen - AW: aktuelles Datum suchen

Nach oben
       Version: Office 2007

Hallo an alle,

Hat keiner eine Idee oder einen Tipp für mich?

Es gibt so viele Code-Schnippsel um ein Blatt zu durchsuchen aber nicht für mehrere.

z.B. von Klaus-Dieter Oppermann

Code:

Private Sub CommandButton1_Click()

' sucht das aktuelle Tagesdatum in einer Spalte
' (hier B) und selektiert es
Dim dat As Date                     ' Variable deklarieren
Z = 15                              ' Startzeile festlegen (hier 1)
dat = Format(Now(), "dd/mm/yyyy")   ' Datumformat definieren
Do While Cells(Z, 2) <> dat         ' Datum suchen
    Z = Z + 1                       ' Schleifenzähler um 1 erhöhen
Loop                                ' Wendepunkt für Schleife
Cells(Z, 2).Select                  ' Datum selektieren
End Sub


Bin aber zu Dumm um den Code umzuschreiben.

Würd mich freuen wenn mir einer von Euch Profis helfen könnte.

So, vielen Dank schon mal im voraus.

Euch allen einen schönen Tag mir eine angenehme Nachtruhe.

Mfg Tom
r.mueller
Gast


Verfasst am:
11. Jun 2011, 08:44
Rufname:

AW: aktuelles Datum suchen - AW: aktuelles Datum suchen

Nach oben
       Version: Office 2007

Hallo

Code in den Code von: "DieseArbeitsmappe" !!

Code:

Private Sub Workbook_Open()
Dim wks As Worksheet
Dim lngZeile As Long

For Each wks In ThisWorkbook.Worksheets
 ' B15:B33
 For lngZeile = 15 To 33
  If IsDate(wks.Cells(lngZeile, 2)) Then
   If wks.Cells(lngZeile, 2) >= Date Then
    If wks.Cells(lngZeile, 2) < (Date + 1) Then
     wks.Activate
     wks.Rows(lngZeile).Select
     Exit Sub
    End If
   End If
  End If
 Next
Next
MsgBox "Nix gefunden"
End Sub


Gruß
r.mueller
Zero
Formeln, Diagramme und ein bisschen VBA


Verfasst am:
11. Jun 2011, 08:47
Rufname: Dennis
Wohnort: NDS

AW: aktuelles Datum suchen - AW: aktuelles Datum suchen

Nach oben
       Version: Office 2007

Hallo

Erst steht dein Datum in Zeile 7 und jetzt in Spalte B.
... Verständlich das Michaels Code nicht mehr funktioniert.

Code:
Sub xx()
Dim ws As Worksheet
Dim c As Long

For Each ws In ThisWorkbook.Worksheets
    For c = 15 To 33
        If ws.Cells(c, 2) = Date Then
            ws.Activate
            Cells(c, 2).Select
            Exit Sub
        End If
    Next c
Next ws
MsgBox "Nicht gefunden"
End Sub

_________________
Gruß zero
Tom72
Möchtegern


Verfasst am:
12. Jun 2011, 19:29
Rufname: Tom
Wohnort: Mexiko


AW: aktuelles Datum suchen - AW: aktuelles Datum suchen

Nach oben
       Version: Office 2007

Hallo an alle,

Vielen Dank für Eure Hilfe.

Funktioniert bestens. Super Arbeit Danke.

@ Zero

Zitat:

Erst steht dein Datum in Zeile 7 und jetzt in Spalte B.
... Verständlich das Michaels Code nicht mehr funktioniert.


Das mit der Zeile 7 ist nicht der Beitrag von mir sondern von Kaulquappe.

Nochmals vielen Dank für Eure Hilfe.

Mfg Tom
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Wert in einer Matrix suchen und den Nachbarwert zurückgeben 1 michl 3098 08. Feb 2005, 12:06
steve1da Wert in einer Matrix suchen und den Nachbarwert zurückgeben
Keine neuen Beiträge Excel Formeln: Wenn gleiches Datum... 6 Gekko 2258 06. Feb 2005, 14:07
Gast Wenn gleiches Datum...
Keine neuen Beiträge Excel Formeln: Datum Abfragen 8 kuschlmuckl 2472 31. Dez 2004, 13:45
Arnim Datum Abfragen
Keine neuen Beiträge Excel Formeln: Datum 9 Benoit 2289 30. Dez 2004, 15:21
ae Datum
Keine neuen Beiträge Excel Formeln: Suchen nach bestimmten Formatierungen 1 *** Lydia *** 517 20. Dez 2004, 11:21
ae Suchen nach bestimmten Formatierungen
Keine neuen Beiträge Excel Formeln: Datum Sortieren 1 Gidi 1546 03. Dez 2004, 14:11
ae Datum Sortieren
Keine neuen Beiträge Excel Formeln: Vertragssumme ausr. bez. auf Datum heute und Datum Zukunft 7 Tristan68 1841 25. Nov 2004, 19:48
Arnim Vertragssumme ausr. bez. auf Datum heute und Datum Zukunft
Keine neuen Beiträge Excel Formeln: Problem mit Suchen/Ersetzen 1 Benni 730 24. Nov 2004, 23:04
Reinhard Problem mit Suchen/Ersetzen
Keine neuen Beiträge Excel Formeln: Meine Lotto Zahlen suchen lassen 1 Wilfried 5880 09. Nov 2004, 23:47
ae Meine Lotto Zahlen suchen lassen
Keine neuen Beiträge Excel Formeln: Rechnen mit Datum & Uhrzeit 2 ChrisED 2190 13. Okt 2004, 12:00
ChrisED Rechnen mit Datum & Uhrzeit
Keine neuen Beiträge Excel Formeln: inhalt einer zelle suchen und wiedergeben 2 winni 5568 23. Sep 2004, 16:47
winni inhalt einer zelle suchen und wiedergeben
Keine neuen Beiträge Excel Formeln: Wert in einem Bereich suchen. 5 khummel 16979 16. Sep 2004, 19:54
khummel Wert in einem Bereich suchen.
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel-Formeln