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
Anzeige