Makro: Bereich kopieren anhand Suchauswahl

Bild

Betrifft: Makro: Bereich kopieren anhand Suchauswahl
von: Stefan
Geschrieben am: 11.09.2015 11:16:28

Hallo, ich bitte um Eure Unterstützung.
Ich suche ein Makro, einen Zellbereich A10:Z20 nach Output!A10:Z20 kopiert. Dabei gibt es 10 identische Inputtabellen. Anhand des Auswahlkriteriums soll ermittelt werden, aus welcher Tabelle der Bereich kopiert wird. Das Auswahlfeld soll Output!A1 sein (Drop Down Liste).
In Output Zeilen 21 und Folgende stehen Formeln. Sie greifen auf den Inhalt von Output!A10:Z20 zu (gesucht wird alse ein "Werte einfügen", Bezugsfehler vermeiden). Das Makro soll nur den Zielbereich A10:z20 befüllen und darf beim Einfügevorgang nicht die Inhalte der restlichen Zeilen (21 ff.) überschreiben.
Mit dem Makrorekorder bekomme ich es nicht hin. Für die Zusammenstellung der ggf. im Formum vorhandenen Teilbausteine genügen meine Programmierkenntnisse nicht.
Irgenwie so:
Sub_Copy
Range("A10:Z20").Select --- Wie umsetzen: Suche Tabelle aus Output!A1?
Selection.Copy
Sheets("Tabelle_Output").Select
Range(Output!A10).Select
ActiveSheet.Paste --- Wie umsetzen: Inhalte einfügen. und werden Zeilen 21 ff. automatisch nicht überschrieben?
End Sub
Danke Stefan.

Bild

Betrifft: AW: Makro: Bereich kopieren anhand Suchauswahl
von: Rudi Maintaire
Geschrieben am: 11.09.2015 13:02:15
Hallo,

Sub aa()
  With Sheets("Output")
    Sheets(.Range("A1").Value).Range("A10:Z20").Copy
    .Range("A10").PasteSpecial xlPasteValues
  End With
End Sub

Gruß
Rudi

Bild

Betrifft: AW: Makro: Bereich kopieren anhand Suchauswahl
von: Stefan
Geschrieben am: 11.09.2015 13:31:14
Rudi,
1000 Dank. Genau so. Es ist immer wieder verblüffend, wie einfach die Dinge sein können. Stefan

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Makro: Bereich kopieren anhand Suchauswahl"