Hallo Forum,
muss hier etwas machen, bei dem ich einfach nicht weiterkomme. Ich schildere mal mein Problem:
ich habe eine ComboBox, die enthält Jahre von 2008 bis 2020. Wenn ich die ComboBox nun anwähle und etwas anderes als den momentanen Wert wähle (also momentan steht da 2008, ich wähle 2009), dann soll folgendes passieren:
eine msgbox soll aufpoppen, die fragt ob man sich sicher ist, dass man ein neues Jahr auswählen will, wenn man ja drückt, soll das neue Jahr zugelassen werden (in unserem Beispiel 2009) und sonst noch Sachen passieren (dazu später mehr), wenn man nein drückt, soll der letzte Wert wieder in der ComboBox stehen, so als wäre eben nichts passiert (in unserem Beispiel eben 2008).
1. Frage: Wie schaffe ich das, dass der alte Wert wieder hergestellt wird, wenn ich nein drücke.
Wenn ich nun ja drücke soll folgendes passieren:
es soll ein Workbook (nennen wir es Workbook 2) geöffnet werden, das sich im gleichen Verzeichnis wie das aktuelle Workbook (Workbook 1) befindet, in diesem Workbook 2 soll ein neues Worksheet mit dem Namen des alten Wertes (im Beispiel 2008) erstellt werden und in dieses neue Worksheet soll der Inhalt eines der Worksheets des Workbooks 1 kopiert werden.
2. Frage: wie kann ich aus der ComboBox den alten Wert (2008) weiterbenutzen, nachdem ja schon ein neuer ausgewählt wurde? (ähnliche Frage wie 1)
3. Frage: Weiss jemand, wie ich ein Workbook, dessen Namen ich weiss und das sich im gleichen Verzeichnis wie mein aktuelles Workbook befindet öffnen kann?
4. Frage: Ich weiss, wie ich ein neues Worksheet erstelle und ihm einen Namen gebe, das Problem liegt beim reinkopieren der Daten: Ich kopiere nur einen Teil des Inhaltes vom alten in das neue Worksheet, deswegen ist der BEfehl .copy nicht anwendbar. Ich habe es so versucht:
wbk2.Sheets(NewSheetName).Range("A1").Resize(14259, 10).Value = wbk1.Sheets("Liste").Range("A1:J14259").Value
Meine Daten erstrecken sich von A1:J14259.
Der Befehl oben klappt auch, nur leider werden die Zellen des neuen Sheets nicht größenmäßig angepasst, sondern behalten im neuen Sheet ihre Standardgröße. Ich dachte, dass dafür resize da wäre, aber anscheinend nicht.
Weiß also jemand, wie ich die Daten ins neue Sheet bekomme und gleichzeit die Zellengröße wie beim alten Sheet anpasse?
So, das ist mal ein ganz schön dicker Block an Fragen, hoffe irgendjemand ist so nett und opfert ein bisschen Zeit für die Antwort, wäre demjenigen sehr dankbar.
Danke schonmal,
Gruß, Ben.