Macro läuft nicht mehr

Sub neuesDatumEinfügen() Dim lZ As Long lZ = 353 If [C353] = "" Then lZ = Cells(353, 3).End(xlUp).Row If Cells(lZ, 3).Value = "" Then Do lZ = lZ - 2 Loop While Cells(lZ, 3).Value = "" Cells(lZ + 2, 3) = Date End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub neuesDatumEinfügen() Dim lZ As Long lZ = 353 With Workbooks(DeineMappe).Sheets(DeinBlatt) If .[C353] = "" Then lZ = .Cells(353, 3).End(xlUp).Row If .Cells(lZ, 3).Value = "" Then Do lZ = lZ - 2 Loop While .Cells(lZ, 3).Value = "" .Cells(lZ + 2, 3) = Date End If End With End Sub

Hallo Peter
Wie soll ich genauer beschreiben ?
Matrixtabelle mit ca 40 Schaltfächen
ca 35 dieser Schalflächen sind dazu da je eine
zugewiesene Tabelle 001.xls bis 035.xls zu öffnen
zuerst läuft ein makro (beim öffnen)von z.B. 025.xls
um den richtigen Monat zu finden(Zelle A17 verbunden bis A32)


Sub MSindt()
Workbooks.Open ("c:\Sbücher2003\025.xls")
Dim Monat As String
Monat = Format(Date, "MMMM")
Sheets("025").Select
Cells.Find(what:=Monat, LookIn:=xlValues).Activate
End Sub

das klappt auch.
anderes Makros ein oder ausblenden von zeilen (über Schaltfläche)


Sub Ausblenden()
Rows("6:11").Select
Selection.RowHeight = 0
Range("F12").Select
End Sub

klappt auch.
makro zum speichern und schließen der datei (über Schaltfläche)


Sub SpeichernUndVerlassen()
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("aktive").Activate
End Sub

klappt auch.
mehr Makros die in der Arbeitstabelle benutzt werden,
ausser
Option Explicit


Sub neuesDatumEinfügen()
Dim lZ As Long
lZ = 353
If [C353] = "" Then lZ = Cells(353, 3).End(xlUp).Row
If Cells(lZ, 3).Value = "" Then
Do
lZ = lZ - 2
Loop While Cells(lZ, 3).Value = ""
Cells(lZ + 2, 3) = Date
End If
End Sub

gibt es nicht.
Das Datum einzufügen hat ein jahr lang gefunzt aber
jetzt eben nicht mehr es tut sich einfach nichts.
Schrieb schon ich habe es in einer nicht geänderten Tabelle
versucht auszuführen, aber leider ohne Erfolg !
ich bekomme keine Fehlermeldung!
ich weiß leider nich mehr !
Gruß Gery

ein freundliches hallo noch einmal an alle !

Einen kleinen schritt bin ich weiter.
ohne irgend etwas an dem Makro oder in
der tabelle geändert zu haben!
Ich habe das erste Datum in C13 mal versuchsweise
von hand eingetragen, danach funzte in der tabelle das Makro
Datum wieder entfernt makro funzt wieder nicht !!
Das heisst wann auch immer eine dieser Tabellen
aufgerufen wird, das erste Datum ist von Hand
einzutragen, danach geht es über den Button.
naja nicht schön aber vielleicht hat ja jemand von euch
eine Lösung zumal ich jetzt weiss das makro läuft,---

wenn in der ersten zelle (c13) ein Datum steht.
c0 bis c12 sind einzelne zellen ab c13 sind immer
2 zellen verbunden ( c13:c14 usw.)
viele Grüße
Gery

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread