Guten Tag liebe Makro Experten
Ich bin momentan echt ratlos. Zudem sind meine Makro Fähigkeiten begrenzt.
Mein Ziel ist es, ein bestimmer Bereich zu kopieren und in ein anderes Tabellenblatt einzufügen
Ausgangslage:
Im Tabellenblatt "Tabelle3" filtert es bestimmte Kunden nach "Kunde nicht vorhanden" und kopiert diese anschliessend. (funktioniert)
Nun soll es ins Tabellenblatt "Overview" wechseln (funktionert)
Jetzt soll es in der Spalte A nach der ersten freien Zelle suchen und den kopierten Bereich einfügen.
------------------------------------
Bestehendes Makro (funktioniert)
Sub Makro1()
'
' Makro1 Makro
Range("A11").Select
ActiveCell.FormulaR1C1 = "=RC[3]&"" ""&RC[5]"
Range("B11").Select
ActiveCell.FormulaR1C1 = "=IFERROR(IF(VLOOKUP(RC[-1],Overview!c1,1,)>0,"""",""Kunde nicht vorhanden""),""Kunde nicht vorhanden"")"
Range("C11").Select
ActiveCell.FormulaR1C1 = "=IF(LEN(MONTH(R7C6))=1,""0""&MONTH(R7C6),MONTH(R7C6))&"""""
Range("A11:C11").Select
Selection.AutoFill Destination:=Range("A11:C5487")
Range("A11:C5487").Select
Range("A10").Select
Selection.AutoFilter
ActiveSheet.Range("$A$9:$P$5487").AutoFilter Field:=2, Criteria1:= _
"Kunde nicht vorhanden"
Range("A11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Overview").Select
End Sub
|