Microsoft Excel

Herbers Excel/VBA-Archiv

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

gehe zu HEUTE

    Betrifft: gehe zu HEUTE von: Alyssia Mc Kay
    Geschrieben am: 27.08.2003 10:33:16

    Dear all

    it's me again - ich möchte gern eine Lösung oder Erweiterung zu folgendem Problem:

    Habe dieses Makro, um zu HEUTE zu jumpen:

    Sub GeheZuHeute2()
    ActiveSheet.UsedRange.Select
    For Each Zelle In Selection
    If Zelle.Value = Date Then
    ' MsgBox "Gefunden"
    Zeile = Zelle.Row
    Spalte = Zelle.Column
    Cells(Zeile, Spalte).Select
    Exit For
    End If
    Next
    'MsgBox "Heute"
    End Sub
    


    wie muss ich es ändern, um zum HEUTE in einer anderen Tabelle zu gelangen?

    Thanx a lot for help.

    regards Alyssia
      


    Betrifft: AW: gehe zu HEUTE von: Nike
    Geschrieben am: 27.08.2003 10:41:26

    Hi,

    Sub GeheZuHeute2()
    worksheets("Tabelle2").activate
    ActiveSheet.UsedRange.Select
    For Each Zelle In Selection
    If Zelle.Value = Date Then
    ' MsgBox "Gefunden"
    Zeile = Zelle.Row
    Spalte = Zelle.Column
    Cells(Zeile, Spalte).Select
    Exit For
    End If
    Next
    'MsgBox "Heute"
    End Sub
    


    Bye

    Nike


      


    Betrifft: AW: gehe zu HEUTE von: Alyssia Mc Kay
    Geschrieben am: 27.08.2003 10:49:24

    Hi Nike

    it works - thank you

    rgd Alyssia


      


    Betrifft: AW: gehe zu HEUTE von: Nike
    Geschrieben am: 27.08.2003 10:53:20

    Hi,
    glad to have been of assistance ;-)
    Bye

    Nike