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
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
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
Hey,
hätte mich klarer ausdrücken müssen.
Das ist der Code von UserForm2 :/
TextBox2 soll entfernt werden mit entspr. Label
Grüße
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 ...
(20.12.2016, 18:29)schauan schrieb: [ -> ]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
Hallo,
(21.12.2016, 09:36)nedial schrieb: [ -> ]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
Hallo,
das ist korrekt, bin auch schon vorm Erstellen dieses Threads so vorgegangen.
Finde aber nichts.
Gruß
Hallo nedial
Zitat:"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
Hallo Gast 123,
coole datei besten dank.
MFG Thomas