Hallo!
Ich könnte wieder mal Hilfe bei einem kleinen VBA-Problem brauchen. Ich habe einen Makro erstellt, der das aktuelle Tabellenblatt nach allen Einträgen eines bestimmten Datums durchsuchen soll. Wenn er fündig wird, soll die gesamte Zeile in ein anderes Tabellenblatt übertragen werden (oft stehen 20 oder mehr Einträge des selben Datums auf dem Tabellenblatt, dann sollen natürlich alle übertragen werden!).
Hier mein Makro (der nicht wirklich funktioniert):
For i = ActiveSheet.UsedRange.Rows.Count
If InStr (LCase(Cells(i, 1).Value), LCase(Me.Kalenderelemtent1.Value)) > 0 Then
Range(lst_KategorieSuchen.Column(3)).Activate
Range(ActiveCell, ActiveCell.Offset(0, 71)).Select
Selection.Copy
Sheets("Kategorienverteiler").Cells(Rows.Count, 3).End(xlUp).Offset(1).PasteSpecial xlValues
Else
End If
Ich hoffe irgendjemand kann mir hier weiterhelfen, vielen Dank auf alle Fälle für die Mühen!
Mfg Mathias |