Wert aus Combobox in Zellen mit ausgebl. Zellen
25.09.2014 11:11:28
Andreas
Ich komme mal wieder nicht weiter:
Ich habe ein UserForm mit einer Combobox und einem Textfeld. Die Combobox ist zweispaltig und zeigt mir bestimmte Zellen an, wenn die Zeile nicht ausgeblendet ist.
Dabei hat mir Beverly geholfen.
Mein Problem ist jetzt, das beim zurückschreiben (zum Teil wird nur die Formatierung geändert) der Werte aus der Combobox Fehler auftreten. Ich weiss nicht wie ich die ausgeblendeten Zeilen in den Code bekommen.
Ich hoffe ich habe mich verständlich ausgedrückt.
So wird die Combobox gefüllt:
Private Sub Userform_Initialize()
With ComboBox2
For a = 4 To 43
If a = 20 Then a = 24
If Rows(a).RowHeight > 0 Then
.AddItem ActiveSheet.Cells(a, 4) & " " & ActiveSheet.Cells(a, 6).Value
End If
Next a
End With
End Sub
Private Sub CommandButton1_Click()
If ComboBox2.ListIndex = -1 Then
MsgBox "Bitte wählen"
ComboBox2.SetFocus
Exit Sub
End If
If TextBox1 = "" Then
MsgBox "Bitte den Grund eintragen"
TextBox1.SetFocus
Exit Sub
End If
If ComboBox2 "" Then
With ActiveSheet
a = ComboBox2.ListIndex + 3
If MsgBox("Die Zeile wird als storniert gekennzeichnet!", vbYesNo, "Nachgefragt") = vbYes _
Then
.Cells(a, 1).Resize(1, 9).Font.Strikethrough = True
.Cells(a, 10).Resize(1, 1).ClearContents
.Cells(a, 11).Resize(1, 1).Value = Me.TextBox1.Text
End If
End With
Application.ScreenUpdating = True
End If
Unload AuftrLoeschen02
End Sub
Danke fürs lesen und die Hilfe!
mfg, Andreas
Anzeige