Hallo,
folgende möchte ich über ein Makro erzeugen.
1. Bestehende Tabelle duplizieren
2. Über Combobox den Monat des aktuellen jahres abfragen "z.B. Oktober 2015"
3. Der Ausgewählte Monat soll in ein Feld der neuen Tabelle eingetragen werden und der Tabellennamen danach benannt werden
4. Zellenbereiche in der neuen Tabellen Inhalt entfernt werden - "Das bekomme ich schon hin" :)
Eine Combobox mit Auswahl würde ich hinbekommen aber nicht wie ich den ausgewählten Wert in die neue Tabelle eintrage.
Kann mir bitte jemand Helfen ?
Gruß Daniel
Hallo Daniel,
folgender Code kommt hinter die ComboBox:
Code:
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > -1 Then
ActiveSheet.Copy Sheets(ActiveSheet.Index + 1)
Range("A1:D8") = ""
Range("A11:F18") = ""
Range("A1").Value = ComboBox1.Value
ActiveSheet.Name = CStr(ComboBox1.Value)
End If
End Sub
Gruß Uwe
Hallo Uwe,
tja bekomme es doch nicht hin so wie ich dachte.
In dem Tabellenblatt "Juni" fängt es an. Die Auswahl klappt schon aus A1 bis A12. Der ausgewählte Monat soll in der neuen Tabelle in Zeile C1 erscheinen und aus der Tabelle Juni soll der bereich F4 bis AH46 kopiert werden. Irgendwas passt nicht.
Was macht eigentlich Range("B11:F18") = ""?
Kannst du bitte helfen ?
Gruß Daniel
Hallo Daniel,
(04.10.2015, 10:43)Daniel Albert schrieb: [ -> ]Was macht eigentlich Range("B11:F18") = ""?
Dadurch wird der angegebene Bereich geleert.
Probiere es mal damit:
Code:
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > -1 Then
ActiveSheet.Copy After:=ActiveSheet
Range("A:E").Clear
ActiveSheet.Buttons(1).Delete
Range("C1").NumberFormat = "mmmm yyyy"
Range("C1").Value = ComboBox1.Text
ActiveSheet.Name = Format(ComboBox1.Text, "mmmm yyyy")
Unload Me
End If
End Sub
Gruß Uwe
Hallo Uwe,
in meiner Test Excel tabelle funktioniert dein System super aber nicht in meiner richtigen Tabelle. Da erhalte ich folgende Fehlermeldung
[
Bild bitte so als Datei hochladen: Klick mich!]
Hallo Daniel,
da muss ich passen.
Gruß Uwe
hallo,
der Fehler kommt wenn der VBA Bereich mit einem Passwort geschütz ist. Verstehe ich aber nicht da die anderen Makros ja auch funktionieren wenn das Passwort aktiv ist.
Aber ich erhalte noch einen Fehler jetzt nachdem ich den Monat ausgewählt habe
[
Bild bitte so als Datei hochladen: Klick mich!]
Hallo Daniel,
probiere es mal mit
ComboBox1.Value
Gruß Uwe
Geht leider immer noch nicht. Hier mal die Tabelle vielleicht findet man so den Fehler. Pw: 1234
Hallo Daniel,
in Deinem Projekt gibt es eine Prozedur namens Format, wodurch es einen Konflikt mit der VBA-Funktion Format gibt!
Auch meinte ich mit
"probiere es mal mit
ComboBox1.Value"
das Du alle ComboBox1.Text damit ersetzen solltest.
Gruß Uwe