Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
884to888
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Erster des Monats in 1. Zeile. Korrektur des Modul

Erster des Monats in 1. Zeile. Korrektur des Modul
13.07.2007 14:25:48
Josef
Hallo zusammen,
kann man das unten stehenden Modul so abändern, dass ausser dem Format: TT.MM.JJJJ, auch das Format: TTT. TT.MM.JJJJ zum laufen zu bringen? Wenn ja, kann mir dann bitte jemand bei der Korrektur des Moduls, behilflich sein?
Sub Monatsanfang()
'Private Sub Workbook_Open()
Dim wks As Worksheet
Dim iRow As Long
Dim d As Variant
Dim Datum1, Jahr1, Monat1
Monat1 = Month(Date)
Jahr1 = Year(Date)
Datum1 = DateSerial(Jahr1, Monat1, 1)
For Each wks In Worksheets
If wks.Name Like "MA#*" Then
Set d = wks.Columns(1).Find(What:=Datum1, LookIn:=xlValues, LookAt:=xlWhole)
If Not d Is Nothing Then
iRow = d(1, 1).Row
Application.GoTo wks.Cells(iRow, 1), True
Else
MsgBox "Nix gefunden"
End If
End If
Next wks
Danke im voraus
Gruß Josef

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Danke, hat sich erledigt.
13.07.2007 18:22:44
Josef
.
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige