Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1324to1328
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anwendungs- oder definierter Fehler
02.08.2013 18:26:21
VB
Hallo zusammen,
Habe mir eine Userform (für ein einfaches Haushaltsbuch) mit zwei Textboxen und zwei Kombiboxen gebastelt. Mit der ersten Kombibox soll das Datum erfasst werden, mit der zweiten der Verwendungszweck/Kostenstelle.
Das ganze hat erst bestens funktioniert und nach dem erneuten aufrufen der Tabelle und Eingabe von Daten bekam ich dann plötzlich die o.g. Meldung, obwohl ich am Code nichts verändert hatte.
Hier der Code:
Option Explicit

Private Sub speichern_Click()
Dim erste_freie_Zeile As Integer
erste_freie_Zeile = Sheets("Übersicht").Range("A65536").End(xlUp).Offset(1, 0).Row
Sheets("Übersicht").Cells(erste_freie_Zeile, 1) = CDate(ComboBox_Datum.Value)
Sheets("Übersicht").Cells(erste_freie_Zeile, 2) = CDbl(TextBox1_Betrag.Value)
Sheets("Übersicht").Cells(erste_freie_Zeile, 3) = (ComboBox_Kostenstelle.Text)
Sheets("Übersicht").Cells(erste_freie_Zeile, 4) = (TextBox_Bemerkungen.Text)
End Sub
Private Sub UserForm_Initialize()
Dim Wiederholungen As Integer
For Wiederholungen = 2 To Sheets("Hilfstab").Range("A65536").End(xlUp).Row
ComboBox_Kostenstelle.AddItem Sheets("Hilfstab").Cells(Wiederholungen, 1)
Next
For Wiederholungen = 2 To Sheets("Hilfstab").Range("C65536").End(xlUp).Row
ComboBox_Datum.AddItem Sheets("Hilfstab").Cells(Wiederholungen, 3)
Next
End Sub

Kann mir da bitte jemand weiterhelfen? Wo liegt der Fehler?

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
evtl. Blattschutz? o.T.
02.08.2013 18:31:36
ChrisL
Gruss
Chris

AW: evtl. Blattschutz? o.T.
02.08.2013 18:35:58
VB
Oh danke dir. Auf die einfachsten Sachen kommt man meist zuletzt. :-)

gerne... geschlossen oT
02.08.2013 18:52:59
ChrisL
cu
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige