Textfeld füllen - Fehlermeldung
10.12.2014 18:34:26
Andreas
noch ein kleines Problemchen:
Mit folgendem Code fülle ich bei Aufruf des UserForm meine TextBoxen:
In den Zellen AX8 bis AX22 werden per Funktion ( =INDEX(DAT;ZEILE()-7) ) alle *.xlsb-Dateien im gleichen Ordner aufgelistet.
Wenn aber im Ordner weniger Dateien sind kommt in den Zellen dann #BEZUG!. Das stört nicht, weil die Spalte AX ausgeblendet ist.
Mein Problem ist aber, wenn ich mit einer Textbox auf eine Zelle mit #BEZUG! verweise, kommt beim öffnen des UserForm eine Fehlermeldung.
Wie kann ich das umgehen? Habe es so probiert, ist wohl falsch:
If Sheets("Übersicht").Range("AX19") = "#BEZUG!" Then
End If
Else
TextBox15.Text = Sheets("Übersicht").Range("AX19")
Private Sub UserForm_Initialize()
TextBox4.Text = Sheets("Übersicht").Range("AX8")
TextBox5.Text = Sheets("Übersicht").Range("AX9")
TextBox6.Text = Sheets("Übersicht").Range("AX10")
TextBox7 = Sheets("Übersicht").Range("AX11")
TextBox8 = Sheets("Übersicht").Range("AX12")
TextBox9 = Sheets("Übersicht").Range("AX13")
TextBox10 = Sheets("Übersicht").Range("AX14")
TextBox11 = Sheets("Übersicht").Range("AX15")
TextBox12 = Sheets("Übersicht").Range("AX16")
TextBox13.Text = Sheets("Übersicht").Range("AX17")
TextBox14 = Sheets("Übersicht").Range("AX18")
'TextBox15.Text = Sheets("Übersicht").Range("AX19")
'TextBox16 = Sheets("Übersicht").Range("AX20")
'TextBox17 = Sheets("Übersicht").Range("AX21")
'TextBox18 = Sheets("Übersicht").Range("AX22")
End Sub
mfg, Andreas