Ich hab mal wieder ein Problem bei dem ich mit meinen bescheidenen VBA-Kenntnissen nicht weiter komme.
Mit folgendem Code (Auszug) trage ich Werte aus einem UserForm in verschiedene Zellen des Blattes "Abholung" ein.
Jetzt habe ich das Problem, dass je nach dem ob ChechBox1 oder CheckBox2 aktiviert ist, in das Blatt "Abholung" oder in das Blatt "Lieferung" geschrieben werden soll.
Also,
wenn die CheckBox1 auf True steht dann "Set wks = Sheets("Abholung")"
wenn die CheckBox2 auf True steht dann "Set wks = Sheets("Lieferung")"
Dim zeile As Long, objControl As Control, intI As Integer, wks As Worksheet
zeile = 21
Set wks = Sheets("Abholung")
wks.Range("B22:B43").ClearContents
For intI = 21 To 40
Set objControl = Me.Controls("Combobox" & Format(intI, "0"))
If objControl.Text "" Then
zeile = zeile + 1
wks.Cells(zeile, 2) = objControl.Text
End If
Next
wks.Range("C11") = ComboBox2.Text 'Datum
wks.Range("F11") = ComboBox3.Text 'Zeit
wks.Range("G11").Value = "bis" 'bis
wks.Range("H11") = ComboBox4.Text 'Zeit
wks.Range("B14").Value = Me.TextBox1.Text 'Name
wks.Range("B20").Value = Me.TextBox2.Text 'Telefon
wks.Range("B16").Value = Me.TextBox3.Text 'Strasse + Nummer
wks.Range("F16").Value = Me.TextBox4.Text 'Etage
wks.Range("B18").Value = Me.TextBox5.Text 'Ort
wks.Range("B46").Value = Me.TextBox7.Text 'Bemerkungen
wks.Range("A4").Value = Me.TextBox19.Text 'Auftragsnummer
Kann mir bitte Jemand weiterhelfen.mfg, Andreas