Hi,
ich habe eine Userform, darauf sind ein paar Textboxen und ein paar Comboboxen. Wenn ich die Textbox'n ausgefüllt habe, zB so:
Combobox12 = "EIN"
Textbox5 = "12,-"
Textbox6 = "EUR"
Combobox13 = "Bemerkung"
und ich auf den Button klicke, dann soll in meinem Sheet "Daten" an der zeile 24 in der Spalte D "12,-" und in der Spalte E "EUR" stehn.
klicke ich nochmal drauf, soll das gleiche in der zeile 25 passieren. Die bedingung dabei ist, das in der Combobox12 "EIN" steh.
Steht in der Combobox dagegen "AUS", soll der Inhalt aus Textbox5 in der spalte F und Textbox6 in G landen. also versetzt
Also, bei jedem Klick auf den Button soll ein neuer Datensatz unterhalb des bereits bestehenden
angelegt werden mit dem Unterschied, wenn "EIN" dann in D und E und bei "AUS" in F und G.
Aber irgend wie funktioniert das nicht richtig.
Hier mal der Code, vielleicht ist es ja nur ein kleiner Fehler. Wenn es zu kompliziert ist, kann ich auch eine Besipieldatei basteln.
Danke mal
Joachim
Private Sub CommandButton1_Click()
Dim ii As Long
With Worksheets("Daten")
ii = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
If ii < 24 Then
ii = 24
.Cells(ii, 2) = ComboBox9.Value 'Spalte B
.Cells(ii, 3) = TextBox4.Value 'Spalte C
.Cells(ii, 4 - (ComboBox12 = "EIN")) = TextBox5.Value 'Spalte D
.Cells(ii, 5 - (ComboBox12 = "EIN")) = ComboBox6.Value 'Spalte E
.Cells(ii, 6 - (ComboBox12 = "AUS")) = TextBox5.Value 'Spalte F
.Cells(ii, 7 - (ComboBox12 = "AUS")) = ComboBox6.Value 'Spalte G
.Cells(ii, 8) = ComboBox13.Value 'Spalte H
End If
If ii >= 25 Then
.Cells(ii, 2) = ComboBox9.Value 'Spalte B
.Cells(ii, 3) = TextBox4.Value 'Spalte C
.Cells(ii, 4 - (ComboBox12 = "EIN")) = TextBox5.Value 'Spalte D
.Cells(ii, 5 - (ComboBox12 = "EIN")) = ComboBox6.Value 'Spalte E
.Cells(ii, 6 - (ComboBox12 = "AUS")) = TextBox5.Value 'Spalte F
.Cells(ii, 7 - (ComboBox12 = "AUS")) = ComboBox6.Value 'Spalte G
.Cells(ii, 8) = ComboBox13.Value 'Spalte H
End If
End With
End Sub