Ich verzweifle hier noch ...
Wie kann ich die Daten (ohne Formeln) aus Worksheet(CBMonat).Range("A2:A32") in die Tabelle Worksheet("Auswertung").Range("K33:K63") kopieren ?
Erklärung zu ´CBMonat´:
Es existieren 13 Tabellen. Für jeden Monat eine, plus die Tabelle "Auswertung". Es wird erst ein Monat angewählt, um daraus die Daten zu kopieren (damit sie in einer ComboBox als Auswahl zur Verfügung stehen können).
Private Sub UserForm_Initialize()
For i = 1 To Worksheets.Count
CBMonat.AddItem (Worksheets(i).Name)
Next i
End Sub
Private Sub CBMonat_Change()
Worksheets(CBMonat.Text).Activate
'Hier sollte die Kopierfunktion stehen
CBDatum.Visible = (CBMonat.Value <> "") 'CBDatum ist eine ComboBox zum anwählen des Datums
End Sub
Für Eure hilfe im Voraus vielen Dank
Gruß
Udo