TextBox / ComboBox aus UserForm entfernen

[schauan]

Hallöchen,

eventuell kannst Du den Code Userform_Initialize oder, wenn nicht vorhanden, Userform_Activate, mal mit F8 zeilenweise durchgehen und schauen, was in der Zeile steht. Selbige kannst Du dann auch hier posten, falls das nicht schon ausreichend hilft.

Eine andere Variante wäre die Ermittlung der Zeile mittels Zeilennummer.
Am Anang des Userform_Initialize schreibst Du

On Error Goto Errorhandler

und vor dem Ende
errorhandler:
If err.number <> 0 then msgbox erl

Um die Zeilennummern in den Code zu bekommen, kannst Du Dir mal diesen Beitrag von meiner Seite anschauen:
http://www.xltips.de/ftxt/lnk-dow/VBAZeilennr.htm

[nedial]

Sorry für die späte Reaktion. War leider noch anderweitig beschäftigt.
Danke dir für die Info und die Datei.

In Zeile 90 soll ein Fehler sitzen. Verstehe aber nicht warum.
Zur Info: Auf die entspr. Werte/Positionen der ComboBox2 in UF1 werden die eingegebenen Daten der in UF2 in ein separates Blatt gespeichert

Code:

   Private Sub UserForm_Initialize()
30  On Error GoTo errorhandler
   Dim arr As Variant
   Dim arrTemp() As Variant
   Dim i As Long, z As Long
   Dim letzte As Long
   
90  Me.Caption = Me.Caption & " " & UserForm1.ComboBox2.Text  'Positionscombobox
    
110 letzte = Worksheets("Aktivitäten").Cells(Rows.Count, 1).End(xlUp).Row
120 arr = Worksheets("Aktivitäten").Range("A2:G" & letzte)
   ReDim arrTemp(1 To 8, 1 To 1)
   
150 With Worksheets("Setup")
160 letzte = .Cells(Rows.Count, 1).End(xlUp).Row
170 ComboBox1.RowSource = .Name & "!" & .Range("A2:A" & letzte).Address
180 letzte = .Cells(Rows.Count, 2).End(xlUp).Row
190 ComboBox2.RowSource = .Name & "!" & .Range("B2:B" & letzte).Address
200 letzte = .Cells(Rows.Count, 3).End(xlUp).Row
210 ComboBox3.RowSource = .Name & "!" & .Range("C2:C" & letzte).Address
220 End With
   
240 For i = LBound(arr) To UBound(arr)
250     If arr(i, 1) = UserForm1.ComboBox2.Text Then
260         z = z + 1
           If z > 1 Then ReDim Preserve arrTemp(1 To 8, 1 To z)
280         arrTemp(1, z) = i
290         arrTemp(2, z) = arr(i, 1)
300         arrTemp(3, z) = arr(i, 2)
310         arrTemp(4, z) = arr(i, 3)
320         arrTemp(5, z) = arr(i, 4)
330         arrTemp(6, z) = arr(i, 5)
340         arrTemp(7, z) = arr(i, 6)
350         arrTemp(8, z) = arr(i, 7)
360     End If
370 Next i
   
390 If arrTemp(1, 1) <> "" Then ListBox1.Column = arrTemp
   
410 Call UncheckAll
420 errorhandler:
430 If Err.Number <> 0 Then MsgBox Erl
   End Sub

[Crazy Tom]

Hallo

und das ist der Code von Userform1?
und die Combobox2 aus Userform2 willst du entfernen?
 dann ist doch schon klar welche Codeteile du bearbeiten musst
und in Zeile 250 wird auch auf die Combobox2 verwiesen

MfG Tom

[nedial]

Hey,
hätte mich klarer ausdrücken müssen.

Das ist der Code von UserForm2 :/
TextBox2 soll entfernt werden mit entspr. Label

Grüße

[schauan]

Hallöchen,

wenn in Zeile 90 ein Fehler kommt, könnte es sein, dass die Combobox fehlt. Könnte das ein Syntaxfehler sein? Du schreibst mal von Combobox und mal von TextBox. Das sind ja zwei unterschiedliche Dinge ...

[nedial]

Hallöchen,

wenn in Zeile 90 ein Fehler kommt, könnte es sein, dass die Combobox fehlt. Könnte das ein Syntaxfehler sein? Du schreibst mal von Combobox und mal von TextBox. Das sind ja zwei unterschiedliche Dinge ...

Hallöchen,
ich hatte mehrere Elemente, die es zu löschen galt. Combobox und Commandbutton konnte ich mit etwas Glück entfernen :)
Oben hatte ich versucht zu erklären, wie meine Datei über die Combobox arbeitet bzw zuordnet. Íst wohl nicht gelungen ^^

Aktuell hapert es jetzt nurnoch an besagter Textbox.
Die blende ich dann wohl jetzt einfach aus. Ist zwar nicht die sauberste Lösung aber nicht sooooooo tragisch.

Grüße

[Kuwer]

Hallo,

Aktuell hapert es jetzt nurnoch an besagter Textbox.

Du brauchst doch nur in ein Codemodul gehen, strg+f drücken, TextBox2 eingeben, Suchen in aktuellem Projekt wählen und dann einfach suchen.

Gruß Uwe

[nedial]

Hallo,
das ist korrekt, bin auch schon vorm Erstellen dieses Threads so vorgegangen.
Finde aber nichts.
Gruß

[Gast 123]

Hallo nedial

"und denkst du mal es geht nicht mehr, kommt irgendwo ein Lichtlein her ..."

Anbei eine schon aeltere Beispieldatei aus meinem privaten Archiv zum Thema:  "Makros auflisten"
Damit kannst du einen Ordner auflisten und dir von jeder Datei die Tabellendaten und Makros auflisten lassen.
Würde mich freuen  wenn dir das weiterhilft deinen Fehler zu finden.  Rückmeldung waere nett ...

Sollte dieses Beispiel den Kollegen gefallen könnt ihr ja bei aehnlichen Anfragen darauf verweisen.
 
mfg  Gast 123

[Sipel]

Hallo Gast 123,

coole datei besten dank.


MFG Thomas