Hallo zusammen
Sicher für euch Profis kein Problem. Ich will erreichen ds beim übertragen von Userform ins Tabellenblatt nur diejenigen TextBoxen übertragen werden die auch ausgefüllt sind. Hab mal folgenden Code gemacht damit überträgt es mir jedoch auch diejenigen die leer sind.
Dim Loletzte As Long
With Worksheets("Eingabe")
Loletzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
.Cells(Loletzte, 1) = cboNamensliste
.Cells(Loletzte, 2) = ComboBox1
.Cells(Loletzte, 3) = bb
.Cells(Loletzte, 4) = TextBox1
End With
With Worksheets("Eingabe")
Loletzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
.Cells(Loletzte, 1) = cboNamensliste
.Cells(Loletzte, 2) = ComboBox1
.Cells(Loletzte, 3) = bb
.Cells(Loletzte, 4) = TextBox2
End With
Wie muss der Code geändert werden? Geht das überhaupt?
Besten Dank zum voraus.
Gruss
Roger