Ich bekam gestern von Ramses einen Löasungsvorschlag, bei dem beim ersten Mal alles funktionierte.Wenn ich jedoch die Datei speicherte und schloss und nachher wieder aufrief so bekam ich folgenden Fehler:
Laufzzeitfehler 1004
Anwendungs- oder objektdefinierter Fehler und die Zeile
cboListe.AddItem Cells(intCounter, 2)
wird gelb markiert.
Hier ein Auszug aus dem Code:
UserForm:
Private Sub UserForm_Initialize()
With frmInTextBox
.Height = Application.Height
.Width = Application.Width
End With
Dim intCounter As Integer
For intCounter = frmCounter To frmCounter2
cboListe.AddItem Cells(intCounter, 2)
Next intCounter
cboListe.ListIndex = 0
For intCounter = frmCounter To frmCounter2
cboListe1.AddItem Cells(intCounter, 5)
Next intCounter
cboListe1.ListIndex = 0
For intCounter = frmCounter To frmCounter2
cboListe2.AddItem Cells(intCounter, 1)
Next intCounter
cboListe2.ListIndex = 0
For intCounter = frmCounter To frmCounter2
cboListe3.AddItem Cells(intCounter, 23)
Next intCounter
cboListe3.ListIndex = 0
End Sub
In einem Modul:
Public frmCounter As Integer
Public frmCounter2 As Integer
Public frmCounter3 As Integer
sowie:
z.B:
Private Sub CommandButton12_Click()
Unload UserForm5
Unload frmInTextBox
frmCounter = 2
frmCounter2 = 1677
frmCounter3 = 2
frmInTextBox.Frame82.Visible = False
frmInTextBox.Frame72.Visible = True
frmInTextBox.Frame58.Visible = False
frmInTextBox.Frame64.Visible = False
frmInTextBox.Frame77.Visible = False
frmInTextBox.Show
End Sub
Dieser Fehler erfolgt nur bei neuerlichem Öffnen der Datei.
Wenn nach dem Anlegen des VBA Textes die Makros ausgeführt werden funktioniert alles bestens. Nach dem Speichern und schliessen der Datei geht nichts mehr.
Woran kann dies bitte liegen?
Danke
Josef