nun bin ich so gut, wie fertig mit meinem Projekt..leider ist mir noch aufgefallen, dass ich noch ein weiteres Tabellenblatt einbauen muss, was neben zwei anderen ebenfalls Daten aus der Eingabe in die UserForm ziehen muss.
Auf dem ersten Tabellenblatt ist die Rechnung, auf dem dritten werden alle NewsletterAbonennten angezeigt und auf dem dritten sollen nochmal Daten gezogen werden. Nun habe ich einfach folgenden Code nochmal verwendet und es sieht so aus:
Private Sub CommandButton1_Click()
If OptionButton5 = True Then
Abonnement = Worksheets(3).Used.Rows.Count
Abonnement = Abonnement + 1
Worksheets(3).Cells(Abonennment, 1) = Buchungsbestätigung2
Worksheets(3).Cells(Abonennment,2) = Email
End If
Belegung = Worksheets("Belegung".Used.Rows.Count
Belegung = Belegung + 1
Worksheets("Belegung").Cells(Belegung, 1) = Veranstaltung
Worksheets("Belegung").Cells(Belegung, 1) = Kalenderwoche
Worksheets("Belegung").Cells(Belegung, 1) = Anzahl1 + Anzahl2 + Anzahl3
Nun taucht aber immer beim Klicken des CommandButtons noch die Rechnungsdaten aus Tabellenblatt1 in Tabellenblatt 3 und 4 auf.
Ich freue mich über jeden Tipp.
Viele Grüße