Guten Morgen zusammen,
ich bin gerade ratlos. Ich fülle die Combobox mit dem Sub Datum_fuellen
(Diese sub wird über Workbook_open geöffnet)
Bei Combobox Änderung soll dann der Wert in die erste freie Zelle geschrieben werden.
Wenn ich alle Befehle im geöffneten Dokument Starte geht es, wenn ich Ecxel schließe und dann Starte bekomme ich Laufzeitfehler 70.
Woran liegt das. (Habe irgendwo gelesen das sich Additem nicht mit der Row Zuweisung im 2. Sub verträgt, habe aber keine andere Lösung.
Bitte helfen.
Günther Sedlmeier
Hier der Code
Sub Datum_fuellen() ' füllt Combobox1 auf (Datum) (Wird von Workbook open Programm in Arbeitsmappe gestartet)
Dim intIndex As Integer
Dim strTag As String, m As Integer
For intIndex = 0 To 8 'Vormonat bis aktueller Monat + 12
strTag = Format(DateSerial(Year(Date), Month(Date), Day(Date) - intIndex), "DDDD, DD.MM")
ComboBox1.AddItem strTag
Next intIndex
ComboBox1.ListIndex = 1 'Vorauswahl des aktuellen Monats
End Sub
Private Sub ComboBox1_Change()
Dim lngErste As Long
With ActiveSheet 'Finde letzte Zeile
lngErste = .Cells(.Rows.Count, 6).End(xlUp).Row + 1 'prüft letzte beschriebne Zeile in Spalte 6'
End With
Cells(lngErste, 1) = ComboBox1 'Tag Macht noch fehlerSchreibt in 1 als Datum(Zahl Spalte das Ergebis der Combo Box'
End Sub
|