Hi leute,
Ich will quasi von Tabelle 1 nach 2 kopieren. Aber ohne die ganze Formatierungen.
Evtl kann mir auch noch jemand sagen wie ich das ganze nach dem Text in Combobox2 filtern kann.
Mein Code bisher:
Private Sub CommandButton1_Click()
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
With Tabelle1
ZeileMax = .UsedRange.Rows.Count
n = 3 'Zeilen werden von Tabelle 1 in Tabelle 2 kopiert, START 2. Zeile beim Einfügen
End With
For Zeile = 2 To ZeileMax
If Tabelle1.Cells(Zeile, 1).Value = ComboBoxMonatVon.Text Then 'Sucht nach dem Wort in ComboBoxMonatVon in Tabelle1
Tabelle1.Rows(Zeile).Copy Destination:=ThisWorkbook.Worksheets("Zeittabelle").Rows(n) 'Kopiert alle Zeilen mit dem Wert ComboBoxMonatVon in Tabelle Zeittabelle
n = n + 1
End If
Next Zeile
End Sub
Vielen Dank :)
|