da ich momentan etwas am verzweifeln bin, dachte ich mir, ich hole mir kompetente Unterstützung :)
Ich habe eine Mappe mit verschiedenen Register/ Tabellenblätter. Eine davon heißt "Kunde" und das ist mein "Masterblatt", da ich per Makro dieses Masterblatt kopieren kann und meine zu umsetzende Idee auf allen duplizierten Tabellenblätter funktionieren sollte, habe ich mir überlegt, mit der ActiveSheet funktion zu arbeiten. Aber nun zu meinen eigentlichen Anliegen:
Ich möchte aus Tabellenblatt "Kunde" (aber mit Bezug auf dieses active Sheet) die Zellen E5 C9 G9 E9 C11 C12 C17 C18 in Tabellenblatt "Übersicht" Sortiert mit folgender Zuweisung E5>F19 C9>I19 G9>H19 E9>G19 C11>J19 C12>K19 C17>N19 C18>M19 kopiert werden, soweit so gut, aber mein Problem, ich möchte bei der nächsten Makroausführung NICHT das die Daten überschrieben werden, also sollte das Makro irgendwie einen Zellenbereich prüfen (die oben genannten Spalten ab Zeile 19 bis 1000 z.B.) und die oberste leere zelle in diesen Bereich befüllen. folgendes habe ich schon gemacht bzw zusammengeschustert, mit X meine ich dass ich ab da ausgestiegen bin :(
Sub speichern()
Dim iRow As Long
ActiveSheet.Range("E5, C9, G9, E9, C11, C12, C17, C18").Copy
With Sheets("Übersicht")
iRow = .Cells(.Rows.Count, X).End(xlUp).Row + 1
End With
End Sub
Kann jemand helfen?Danke