Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1908to1912
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Combobox Userform vergleichen, kopieren

Combobox Userform vergleichen, kopieren
06.12.2022 12:47:06
Markus
Hallo,
ich habe folgendes Problem, welches ich einfach nicht zusammenbringe. Ich habe eine Userform KalenderDruck, wenn ich sie aufmache, dann soll die Combobox1 mit den Jahreszahlen im Tabellenblatt Feiertage V1:BN1 gefüllt werden. Wenn ich dann die Jahreszahl auswähle, dann soll er mir die Jahreszahl nach Tabellenblatt Einstellungen_Kalender in die Zelle C4 schreiben. Jetzt möchte ich das er vom Tabellenblatt Feiertage die Zellen unter der ausgewählten Jahreszahl nach Blatt Einstellungen_Kalender O7 kopiert oder verschiebt. Sollte ich dann in meiner Userform was ändern und auf Commandbutton8(Speichern) drücken, soll er es wieder in die Tabelle Feiertage unter dem jeweiligen Jahr speichern.
Kurz und knackig. Jahr auswählen, darunterliegende Daten in ein anderes Tabellenblatt kopieren/verschieben und beim speichern wieder zurückkopieren/schieben.
Ich hoffe das ich es nicht zu kompliziert geschrieben habe.
Im Anhang habe ich noch die Testdatei.
https://www.herber.de/bbs/user/156551.xlsx
Ich bedanke mich schon im Voraus für eure vielen Anregungen und Lösungsvorschlägen.
LG
Max

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Combobox Userform vergleichen, kopieren
06.12.2022 13:08:26
Rudi
Hallo,
wäre schlau gewesen, eine Datei mit Userform zur Verfügung zu stellen.

Private Sub UserForm_Initialize()
Dim a(1 To 23), i
For i = 1 To 23
a(i) = Sheets("feiertage").Cells(1, i * 2 + 20)
Next
ComboBox1.List = a
End Sub
Private Sub ComboBox1_Change()
Sheets("Einstellungen_Kalender").Range("C4") = ComboBox1
Sheets("Feiertage").Cells(5, 2 * ComboBox1.ListIndex + 22).Resize(53, 2).Copy _
Sheets("Einstellungen_Kalender").Range("O7")
End Sub
Unter dem letzten Punkt kann ich mir nichts vorstellen.
Gruß
Rudi
AW: Combobox Userform vergleichen, kopieren
06.12.2022 13:52:36
Markus
Hallo Rudi,
dies funktioniert perfekt. Userform ist aber in der Datei vorhanden.
Der letzte Punkt: Wenn ich CommandButton8 drücke, dann soll er mir die Daten von Blatt Einstellungen_Kalender O7:P59 kopieren und dem jeweiligen Jahr im Blatt Feiertage einfügen. Da heißt auswählen, ändern und wenn gewünscht wieder in Quellbereich zurückkopieren.
DANKE
Anzeige
AW: Combobox Userform vergleichen, kopieren
06.12.2022 14:01:06
Rudi

Userform ist aber in der Datei vorhanden.
in einer .XLSX kann keine Userform enthalten sein.
Gruß
Rudi
keine UF, keine Makros
06.12.2022 14:15:59
Rudi
bin raus

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige