Excel-Fragen Volume 4!

Excel-Fragen Volume 4!

Impressum | Werbung

Geizhals » Forum » Programmierung »

Excel-Fragen Volume 4! (21 Beiträge, 131 Mal gelesen)

Top-100 | Fresh-100

Du bist nicht angemeldet. [ Login/Registrieren ]

Hi Leute!

Ich wollte fragen, wie ich es bei Excel XP mache das, immer wenn ich eine bestimmte datei aufmache, dass er dann automatisch auf die Zelle mit dem Heutigem Datum springt.....?? geht das überhaupt???
danke schonmal für eure bemühungen!

pkheder
look @ my page:
http://www.pkheder.tk

Du kannst ein Makro schreiben, das beim Öffnen ausgeführt wird...

In dem Makro lässt Du dann die Zelle mit Datum "now()" suchen und dorthin springen.

Yamaha FZ6-S Fazer BlueStone
Technische Daten:
98PS bei 12.000U/min
0-100 ca. 3,5sec.

Erstanmeldung 15.03.2004, dzt. 10159km

tud leid, aber mit makros kenn ich mich nicht aus....

pkheder
look @ my page:
http://www.pkheder.tk

Öffne die Mappe...

Dann machst Du den VisualBasic-Editor auf (Alt+F11)
Ins Modul "Diese Arbeitsmappe" kopierst Du folgenden Code:

Private Sub Workbook_Open()
    Cells.Select
    Selection.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas _
        , LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=True).Select
End Sub

That's it!

Yamaha FZ6-S Fazer BlueStone
Technische Daten:
98PS bei 12.000U/min
0-100 ca. 3,5sec.

Erstanmeldung 15.03.2004, dzt. 10159km

danke! werds gleich ausprobieren!!

pkheder
look @ my page:
http://www.pkheder.tk

"Laufzeitfehler 91:
Objektvariable oder With-Blockvariable nicht festgelegt"

pkheder
look @ my page:
http://www.pkheder.tk

hi,

Private Sub Workbook_Open()
    With Worksheets(1).Range("B:B")
        .Find(Date, LookIn:=xlValues).Activate
    End With
End Sub

worksheet festlegen - durchnummeriert, von 1 beginnend...
column festlegen - b:b entspricht spalte B

lg,
hariw

Rotkäppchen: "Aber Wolf, warum hast du denn so große Augen?"
Wolf: "Verflixt noch mal, kann man hier nicht mal in Ruhe kacken!"

http://search.msn.at/results.aspx?FORM=SMCRT&q=worst%20search%20engine
http://search.msn.at/results.aspx?FORM=SRCHWB&q=beste%20suchmaschine

kann ich bei den worksheets mehrere auswählen? zb: 1,2,3 ?

pkheder
look @ my page:
http://www.pkheder.tk

hi,

ned so einfach...
kommt das datum auf unteren sheet´s vor?

lg,
hariw

Rotkäppchen: "Aber Wolf, warum hast du denn so große Augen?"
Wolf: "Verflixt noch mal, kann man hier nicht mal in Ruhe kacken!"

http://search.msn.at/results.aspx?FORM=SMCRT&q=worst%20search%20engine
http://search.msn.at/results.aspx?FORM=SRCHWB&q=beste%20suchmaschine

hi,

soda:

Private Sub Workbook_Open()
    For a = 1 To 3
        With Worksheets(a).Range("B:B")
            Set mydate = .Find(Date, LookIn:=xlValues)
            If Not mydate Is Nothing Then
                b = mydate.Address
                Worksheets(a).Activate
                Range(b).Activate
            End If
        End With
    Next a
End Sub

durchsucht 1 - 3...
und hat ein errorhandling

Rotkäppchen: "Aber Wolf, warum hast du denn so große Augen?"
Wolf: "Verflixt noch mal, kann man hier nicht mal in Ruhe kacken!"

http://search.msn.at/results.aspx?FORM=SMCRT&q=worst%20search%20engine
http://search.msn.at/results.aspx?FORM=SRCHWB&q=beste%20suchmaschine

aha! das pfunziwunzifunztatatut jetzt danke!!

kann ich bei " for a = 1 to 3"
das 3 auf 12 hochsetzen? sodass er 12 blätter durchsucht??

pkheder
look @ my page:
http://www.pkheder.tk

hi,

wenn´s auch 12 gibt - ja

Bauernregel:

Liegt der Bauer auf der Lauer, ist Herr Lauer äußerst sauer.

hm...komisch...genau das hab ich gemacht, aber anstatt auf den 16. Jänner zu springen, springt er auf den 16.11. !

pkheder
look @ my page:
http://www.pkheder.tk

hi,

hmmm..., hast beachtet, dass in meinem code nur die spalte b durchsucht wird...
ansonst liegt´s ev. am datumsformat?
hab´s grad auf 12 sheet´s mit "16.01.2005" erfolgreich getestet

ansonst müsst ich´s sehen

Bauernregel:

Liegt der Bauer auf der Lauer, ist Herr Lauer äußerst sauer.

ja! das mit dem b:b hab ich auf a:a geändert....

und nein es funkt bei mir trotzdem nicht

pkheder
look @ my page:
http://www.pkheder.tk

hi,

hmm, könnt dir anbieten, dass ich´s mir mal anschau...
ich schick dir mal ein mail...

lg,
hariw

Bauernregel:

Liegt der Bauer auf der Lauer, ist Herr Lauer äußerst sauer.

Nehm' mal an, dass das Datum nicht gefunden wurde...

Fehlerbehandlung hab' ich auf die Schnelle natürlich keine eingebaut...

Yamaha FZ6-S Fazer BlueStone
Technische Daten:
98PS bei 12.000U/min
0-100 ca. 3,5sec.

Erstanmeldung 15.03.2004, dzt. 10159km

Fehlerbehandlung hab' ich auf die Schnelle natürlich keine eingebaut...

CLICK HERE TO SAVE THE CHEESEBURGER TS

lieblings-user: DoggHound, weil er mir karten fürs fm4=10 fest besorgt hat!

Bisschen Arbeit sollt' er sich doch schon damit machen...

Yamaha FZ6-S Fazer BlueStone
Technische Daten:
98PS bei 12.000U/min
0-100 ca. 3,5sec.

Erstanmeldung 15.03.2004, dzt. 10159km

So, mehr aufwand als gedacht

Option Explicit
'hier die Anzahl der Sheets eingeben (0 der größer als Anzahl der Sheets=alle)
'es wird ab dem ersten gezählt nach links, überspringen ist nicht möglich
Const INTSHEETS = 12
'true eintragen wenn ein Hinweis erscheinen soll, dass keine Zelle mit Datum vorhanden ist
'false wenn einfach weitergemacht werden soll (kein Hinweis)
Const BOLFEHLER = True
Private Sub Workbook_Open()
Dim intCounter As Integer, intTmp As Integer, intSheetCount As Integer
Dim wks As Worksheet
Set wks = ActiveSheet
Application.ScreenUpdating = False
intSheetCount = INTSHEETS
On Error GoTo fehler:
If INTSHEETS > ActiveWorkbook.Worksheets.Count Or INTSHEETS = 0 Then intSheetCount = ActiveWorkbook.Worksheets.Count
For intCounter = 1 To intSheetCount
    intTmp = findCell(ActiveWorkbook.Worksheets(intCounter))
    If intTmp = 0 And BOLFEHLER = True Then
        MsgBox ("Tabelle: " & ActiveWorkbook.Worksheets(intCounter).Name & " enthält keine Zelle mit dem aktuellen Datum, Tabellenblatt übersprungen!")
    End If
Next intCounter
wks.Activate
Exit Sub
Application.ScreenUpdating = True
fehler:
MsgBox Err.Description
Application.ScreenUpdating = True
End Sub
Private Function findCell(wks As Worksheet)
Dim rng As Excel.Range
On Error GoTo Ende:
wks.Activate
If Not wks.Cells.SpecialCells(xlCellTypeFormulas, xlNumbers) Is Nothing Then
    For Each rng In wks.Cells.SpecialCells(xlCellTypeFormulas, xlNumbers)
        If rng.Value = Date Then
            rng.Select
            findCell = 2
            Exit Function
        End If
    Next
ElseIf Not wks.Cells.SpecialCells(xlCellTypeConstants, xlNumbers) Is Nothing Then
    If rng Is Nothing Then
        For Each rng In wks.Cells.SpecialCells(xlCellTypeConstants, xlNumbers)
            If rng.Value = Date Then
                rng.Select
                findCell = 2
                Exit Function
            End If
        Next
    End If
End If
Ende:
findCell = 0

End Function

Das Programm musst du im VBA-Editor (Alt+F11), Doppelklick auf die Arbeitsmappe die du willst, Doppelklick auf Arbeitsmappen-Objekte, Doppelklick auf dieseArbeitsmappe einfügen.

Du kannst sowohl die Anzahl der Sheets einstellen (beginnt beim ersten von links zu zählen, zählt Charts etc. nicht dazu), wenn du 0 wählst werden alle durchsucht.
Du kannst weiters auswählen, ob du einen Hinweis möchtest, wenn kein Datumsfeld mit aktuellem Datum drinnen ist oder nicht.

Viel spass

Option Explicit
'hier die Anzahl der Sheets eingeben (0 der größer als Anzahl der Sheets=alle)
'es wird ab dem ersten gezählt nach links, überspringen ist nicht möglich
Const INTSHEETS = 12
'true eintragen wenn ein Hinweis erscheinen soll, dass keine Zelle mit Datum vorhanden ist
'false wenn einfach weitergemacht werden soll (kein Hinweis)
Const BOLFEHLER = True
Private Sub Workbook_Open()
Dim intCounter As Integer, intTmp As Integer, intSheetCount As Integer
Dim wks As Worksheet
Set wks = ActiveSheet
Application.ScreenUpdating = False
intSheetCount = INTSHEETS
On Error GoTo fehler:
If INTSHEETS > ActiveWorkbook.Worksheets.Count Or INTSHEETS = 0 Then intSheetCount = ActiveWorkbook.Worksheets.Count
For intCounter = 1 To intSheetCount
    intTmp = findCell(ActiveWorkbook.Worksheets(intCounter))
    If intTmp = 0 And BOLFEHLER = True Then
        MsgBox ("Tabelle: " & ActiveWorkbook.Worksheets(intCounter).Name & " enthält keine Zelle mit dem aktuellen Datum, Tabellenblatt übersprungen!")
    End If
Next intCounter
wks.Activate
Exit Sub
Application.ScreenUpdating = True
fehler:
MsgBox Err.Description
Application.ScreenUpdating = True
End Sub
Private Function findCell(wks As Worksheet)
Dim rng As Excel.Range, rngSearch As Excel.Range
On Error Resume Next
If wks.Cells.SpecialCells(xlCellTypeFormulas, xlNumbers) Is Nothing Then
    If wks.Cells.SpecialCells(xlCellTypeConstants, xlNumbers) Is Nothing Then
        findCell = 0
        Exit Function
    Else
        Set rngSearch = wks.Cells.SpecialCells(xlCellTypeConstants, xlNumbers)
    End If
Else
    Set rngSearch = wks.Cells.SpecialCells(xlCellTypeFormulas, xlNumbers)
End If
wks.Activate
On Error GoTo Ende:
For Each rng In rngSearch
    If rng.Value = Date Then
        rng.Select
        findCell = 2
        Exit Function
    End If
Next
Ende:
findCell = 0

End Function

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung