20.10.2021, 11:43
Moin Zusammen,
ich habe folgendes Problem bei meinem Arbeitgeber zu lösen.
Wir hatten eine Umstellung von Windows 7 auf Windows 10 (bin halt bei der Stadt tätig, da geht alles etwas langsamer
).
Dabei wurde auch Excel auf 2016 umgestellt. Welche Vorgängerversion wir hatten, weiß ich leider jetzt nicht mehr.
Wir benutzen eine Datenerfassung, in der ich ein UserForm verwende. Dieses funktioniert jetzt nicht mehr. Es gibt anscheind einen "Compilerfehler". Hab dann auch einen Hinweis im Code bekommen.
Der Code ist sehr groß hier nur ein Ausschnitt, was als Feher deklariert wird:
'Startroutine, wird ausgeführt bevor die Eingabemaske angezeigt wird
Hier nochmal ein Bild zu dem Problem als Anzeige:
[attachment=40665]
Es scheind um diesen Befehl "Trim" zu gehen.
Aber ich hab nur wenig Ahnung von VBA´s. Meistens klau ich mir die zusammen und mache meine individuellen Änderungen.
Ich wäre über eine Lösung sehr dankbar.
Mit freundlichen grüßen
Bene
ich habe folgendes Problem bei meinem Arbeitgeber zu lösen.
Wir hatten eine Umstellung von Windows 7 auf Windows 10 (bin halt bei der Stadt tätig, da geht alles etwas langsamer
).Dabei wurde auch Excel auf 2016 umgestellt. Welche Vorgängerversion wir hatten, weiß ich leider jetzt nicht mehr.
Wir benutzen eine Datenerfassung, in der ich ein UserForm verwende. Dieses funktioniert jetzt nicht mehr. Es gibt anscheind einen "Compilerfehler". Hab dann auch einen Hinweis im Code bekommen.
Der Code ist sehr groß hier nur ein Ausschnitt, was als Feher deklariert wird:
'Startroutine, wird ausgeführt bevor die Eingabemaske angezeigt wird
Code:
Private Sub UserForm_Initialize()
Dim lZeile As Long
'Alle TextBoxen leer machen
TextBox1 = ""
TextBox2 = ""
ComboBox1 = ""
ComboBox2 = ""
ComboBox3 = ""
ComboBox4 = ""
ComboBox5 = ""
ComboBox6 = ""
ComboBox7 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
ComboBox8 = ""
ComboBox9 = ""
ComboBox10 = ""
TextBox10 = ""
TextBox11 = ""
ComboBox11 = ""
ComboBox12 = ""
TextBox12 = ""
ComboBox13 = ""
TextBox13 = ""
ComboBox14 = ""
TextBox14 = ""
TextBox15 = ""
TextBox16 = ""
ComboBox15 = ""
ComboBox16 = ""
ComboBox17 = ""
ComboBox18 = ""
ComboBox19 = ""
ComboBox20 = ""
ComboBox21 = ""
ComboBox22 = ""
ComboBox23 = ""
ComboBox24 = ""
ComboBox25 = ""
ComboBox26 = ""
ComboBox27 = ""
ComboBox28 = ""
ComboBox29 = ""
ComboBox30 = ""
ComboBox31 = ""
ComboBox32 = ""
ComboBox33 = ""
ComboBox34 = ""
ComboBox35 = ""
ComboBox36 = ""
ComboBox37 = ""
ComboBox38 = ""
ComboBox39 = ""
ComboBox40 = ""
ComboBox41 = ""
ComboBox42 = ""
ComboBox43 = ""
ComboBox44 = ""
ComboBox45 = ""
ComboBox46 = ""
ComboBox47 = ""
ComboBox48 = ""
ComboBox49 = ""
ComboBox50 = ""
ComboBox51 = ""
'In dieser Routine laden wir alle vorhandenen
'Einträge in die ListBox1
ListBox1.Clear 'Zuerst einmal die Liste leeren
Zeile = 2 'Start in Zeile 2, Zeile 1 sind ja die Überschrifte
'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) <> ""
'Aktuelle Zeile in die ListBox eintragen
ListBox1.AddItem Trim(CStr(Tabelle1.Cells(lZeile, 1).Value))
Zeile = Zeile + 1 'Nächste Zeile bearbeiten
Loop
End Sub[attachment=40665]
Es scheind um diesen Befehl "Trim" zu gehen.
Aber ich hab nur wenig Ahnung von VBA´s. Meistens klau ich mir die zusammen und mache meine individuellen Änderungen.
Ich wäre über eine Lösung sehr dankbar.
Mit freundlichen grüßen
Bene