Tabelle Kopieren mit Monatsabfrage Combobox

[Daniel Albert]

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

[Kuwer]

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

[Daniel Albert]

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

[Kuwer]

Hallo Daniel,

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

[Daniel Albert]

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!
]

[Kuwer]

Hallo Daniel,

da muss ich passen.

Gruß Uwe

[Daniel Albert]

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!
]

[Kuwer]

Hallo Daniel,

probiere es mal mit

ComboBox1.Value

Gruß Uwe

[Daniel Albert]

Geht leider immer noch nicht. Hier mal die Tabelle vielleicht findet man so den Fehler. Pw: 1234

[Kuwer]

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