Programmablauf im Makro erst nach Datenvergleich
02.12.2013 09:10:07
Howard
Hallo,
nachdem ich nun mit Eurer Hilfe endlich ein funktionsfähiges Makro für meine Zwecke
zusammen habe, fehlt noch der letzte Schritt.
Hier zunächst das Makro:
Sub Aktualisieren()
Dim a As Range
For Each a In Range("KonfigurationI!B6:KonfigurationI!B29")
Select Case a
Case Is = Range("D32"), Range("E32"), Range("F32"), Range("G32"), Range("H32"), Range("I32")
a.Offset(, 1) = 0
Case Else
a.Offset(, 1) = a.Offset(, 1) + 1
End Select
Next
For Each a In Range("KonfigurationI!K6:KonfigurationI!K30")
Select Case a
Case Is = Range("D32"), Range("E32"), Range("F32"), Range("G32"), Range("H32"), Range("I32")
a.Offset(, 1) = 0
Case Else
a.Offset(, 1) = a.Offset(, 1) + 1
End Select
Next
End Sub
Wenn das Datum in Feld A2 >= A1 ist, sollen die Daten alle unverändert bleiben und
lediglich in Feld C30 soll die Meldung "Daten sind bereits aktualisiert" erscheinen.
Wenn aber A2 1.) Datumsangabe in A2 durch das aktuelle Datum (=HEUTE()) ersetzt werden
2.) In Feld C30 soll die Meldung "Daten wurden erfolgreich aktualisiert" erscheinen.
Hab es mit If versucht, aber ständig Fehlermeldungen bekommen "Typen unverträglich", z.B. Dim Range("A2") As Date