Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

kleines Makro ? | Herbers Excel-Forum


Betrifft: kleines Makro ? von: Steffi
Geschrieben am: 26.08.2008 15:13:06

Hallo liebe Spezialisten,

in einer Tabelle sind in der Spalte „E“ alle Jahrestage nach Datum aufgelistet.
Ich benötige ein Makro, mit dem ich immer die Zelle des aktuellen HEUTE() Datum finde.

Ich würde mich riesig über Eure Hilfe freuen!

Danke und Gruß
Steffi

  

Betrifft: columns("E").find(date).activate oT von: Backowe
Geschrieben am: 26.08.2008 15:20:44




  

Betrifft: AW: columns("E").find(date).activate oT von: Steffi
Geschrieben am: 26.08.2008 15:29:43

Sorry habe leider nur Erfahrungen mit dem Makrorecorder ;-(
So klappt es leider nicht:

Sub Heutige_Datum_finden()
Columns("E").Find(Date).Activate oT
End Sub



Wie muss das richtig aussehen?

Gruß
Steffi


  

Betrifft: AW: ohne oT von: Karla
Geschrieben am: 26.08.2008 15:31:45




  

Betrifft: oT weglassen, das heißt ohne Text! ;o) oT von: Backowe
Geschrieben am: 26.08.2008 15:32:57




  

Betrifft: Sorry, zu schnell geklickt! :) oT von: Backowe
Geschrieben am: 26.08.2008 15:35:06




  

Betrifft: AW: columns("E").find(date).activate oT von: Luschi
Geschrieben am: 26.08.2008 16:02:07

Hallo Steffi,

versuch es mal so:

Sub Heutige_Datum_finden()
    Dim rg As Range
    Set rg = ActiveSheet.Columns("E:E").Find(Date, , xlFormulas)
    If Not rg Is Nothing Then
       rg.Activate
       set rg = Nothing
    End If
End Sub

Gruß von Luschi
aus klein-Paris


  

Betrifft: AW: columns("E").find(date).activate oT von: Karla
Geschrieben am: 26.08.2008 16:08:38

wenn schon, denn schon:

Sub Heutige_Datum_finden()
    Dim rg As Range
    Set rg = ActiveSheet.Columns("E:E").Find(Date, , xlFormulas)
    If Not rg Is Nothing Then
       rg.Activate
    Else
        MsgBox "Datum " & Date & " leider nicht gefunden"
    End If
       Set rg = Nothing
End Sub



Karla


  

Betrifft: AW: columns("E").find(date).activate oT von: Luschi
Geschrieben am: 26.08.2008 16:37:46

Hallo Karla,

im Prinzip JAAAA, aber...
wenn das Datum im angegebenen Bereich nicht gefunden wird, dann wird der Objektvariablen rg von Excel-Vba der 'Wert' Nothing zugewiesen.
So steht's in der Excel-Vba-Hilfe zu Find: "Gibt Nothing zurück, wenn keine Übereinstimmung gefunden wird."
Trotzdem könnte ich auch mit Deinem Vorschlag leben.

Gruß von Luschi
aus klein-Paris

PS: arbeite gerade als externer Mitarbeiter für eine Firma, in der jede geschriebene Programmzeile nochmals gegengeprüft wird; und da ist man pingelig wie ein Erbsenzähler.


  

Betrifft: DANKE von: Steffi
Geschrieben am: 26.08.2008 16:09:16

Hallo Luschi, hallo Backowe,

Vielen Dank beide Versionen funktionieren, bei der Version von Backowe durfte das Datum aber nur das ganz normale TT.MM.JJ Format haben.

1000 Dank an alle Gruß
Steffi