ich möchte mit dem Klick auf Eintrag die geschriebene Texte im unteren Textfeld (Screen) in Zeile B35 -B42 anzeigen lassen.
Hier mein Versuch:
Dim zeile As Long
zeile = Cells(Rows.Count, "B").End(xlUp).Row + 1
If zeile Cells(zeile, "B").Value = TextBox1 'erste freie Zelle in SpalteB ab Zeile 35
TextBox1 = "" 'leert die textbox
In diesen Code muss es hinzugefügt werden.
Private Sub cmbEintragen_Click()
Dim iList As Integer, zeile As Long, Zeile_A As Long
Dim Zeile_1 As Long, Zeile_L As Long
Zeile_1 = 11 '1. Zeile in die eingetragen werden soll
Zeile_L = 35 'Letzte Zeile in die eingetragen werden soll
With wksData
'letzte Zeile mit Eintrag in Spalte B
zeile = .Cells(Zeile_L + 1, 2).End(xlUp).Row
'letzte Zeile mit Eintrag in Spalte A
Zeile_A = .Cells(Zeile_L + 1, 1).End(xlUp).Row
If zeile Me.cbxVorhaben.Value Then
Zeile_A = zeile + 1
.Cells(Zeile_A, 1).Value = Me.cbxVorhaben.Value
End If
End If
End With
'gewählte Listeneinträge einfügen
With Me.lbxText
For iList = 0 To .ListCount - 1
If .Selected(iList) Then
zeile = zeile + 1
wksData.Cells(zeile, 2).Value = .List(iList, 0)
End If
'Prüfen, ob letzte Zeile des Einfügebereichs ausgefüllt ist
If zeile = Zeile_L Then
Do
iList = iList + 1
If .Selected(iList) Then
MsgBox "Alle Zeilen für Untervorhaben sind ausgefüllt!", _
vbOKOnly, "ausgewählte Werte in Tabellenblatt eintragen"
Exit For
End If
Loop Until iList = (.ListCount - 1)
End If
Next
End With
ActiveWindow.ScrollRow = Zeile_A
' Me.Hide
End Sub
Kann mir einer Helfen?