Zeilen ausblenden in Funktion einbauen
18.09.2014 16:41:42
Andreas
Hallo Excelprofis,
mit folgender Funktion trage ich Werte aus einem UserForm in die nächste leere Zeile der Zeilen 4:19 (Danke an das Forum). Die Zeilen sind ausgeblendet und werden vorher einegblendet.
Nach dem Eintragen der Werte möchte ich die Zeilen 4 bis 19 in denen in A nichts steht wieder ausblenden. Habe mal meinen Versuch auskommentiert weil nichts passiert.
Kann mir bitte Jemand weiterhelfen.
Function WerteEintragen1()
Dim I As Long
Rows("4:19").Hidden = False
Range("A1").Select
If Not wks Is Nothing Then
For I = 4 To 19
If wks.Cells(I, 1).Value = "" Then
wks.Cells(I, 1).Value = Me.ComboBox2.Value
wks.Cells(I, 2).Value = Me.ComboBox3.Value
wks.Cells(I, 3).Value = Me.ComboBox4.Value
wks.Cells(I, 10).Value = Me.ComboBox6.List(ComboBox6.ListIndex, 0)
wks.Cells(I, 4).Value = Me.TextBox1.Text
wks.Cells(I, 5).Value = Me.TextBox2.Text
wks.Cells(I, 6).Value = Me.ComboBox23.Value & " " & Me.TextBox4.Text
wks.Cells(I, 7).Value = Me.ComboBox5.Value
wks.Cells(I, 8).Value = Me.ComboBox22.Text 'Ort
wks.Cells(I, 9).Value = Me.ComboBox7.Value & " " & Me.ComboBox8.Value & " " & _
Me.ComboBox9.Value & " " & Me.ComboBox10.Value & " " & Me.ComboBox11.Value & " " & Me.ComboBox12.Value & " " & Me.ComboBox13.Value & " " & Me.ComboBox14.Value & " " & Me.ComboBox15.Value & " " & Me.ComboBox16.Value & " " & Me.ComboBox17.Value & " " & Me.ComboBox18.Value & " " & Me.ComboBox19.Value & " " & Me.ComboBox20.Value & " " & Me.ComboBox21.Value & " " & Me.TextBox6.Text & " " & Me.TextBox7.Text & " " & Me.TextBox8.Text & " " & Me.TextBox9.Text & " " & Me.TextBox10.Text
wks.Cells(I, 11).Value = Me.TextBox11.Text
wks.Cells(I, 16).Value = "x"
Exit For
End If
Next I
End If
'If wks.Cells(I, 1).Value = "" Then
'Rows.EntireRow.Hidden = True
'Else
'Rows.EntireRow.Hidden = False
'End If
End Function
Danke fürs lesen und die Hilfe!
mfg, Andreas