Laufzeitfehler 13
14.02.2017 07:49:20
Peter
Guten Morgen Ihr Excelspezialisten,
Onur hat mir vor einigen Tagen eine sehr gute Hilfe geleistet.
Leider ergibt sich jedoch jetzt ein Laufzeitfehler 13 Typen unverträglich.
Die Situation: im normalen Betrieb ist die letzte befüllte Zelle in Spalte A ein Datum. Nur beim Monatwechsel ist die letzte beschriebene Zelle ein Text.
Wenn ich in die Zelle unter diesem Text ein Datum eintrage funktioniert der Code einwandfrei.
Hier mal den Code den mir Onur geschrieben hat:
Sub workbook_open()
Dim z As Long
Dim mon, monakt As Variant
For z = 2 To 1000 ' wenn deine daten ab zeile 1 beginnen, dann "for z=1 to ......."
If Tabelle1.Cells(z, 1) = "" Then 'Hier Namen (nicht Bezeichnung) der Tabelle eintragen
Exit For
End If
Next z
mon = Month(Tabelle1.Cells(z - 1, 1))'Hier Namen (nicht Bezeichnung) der Tabelle eintragen
monakt = Month(Date)
If monakt > mon Then
Call MyMakro ' Hier Namen deines Makro´s eingeben
End If
End Sub
An der Stelle an welcher mon= steht kommt der Fehler. Leider weiss ich nicht wie ich das bewerkstelligen kann.
Danke für Eure Hilfe im Voraus.
Gruss
Peter