Sheet auswählen mit Varianten
26.01.2004 10:42:41
Peter
Kaum ist das Wochenende schon wieder vorbei, prasseln die Probleme auf einen nieder. Ich steh vor folgendem Problem und hoffe, Ihr könnt mir weiterhelfen: Ich möchte in ein Datenblatt Daten von einer "externen" Excel-Datei hineinkopieren. Dabei ist die externe Arbeitsmappe in 12 Sheets unterteilt (Jan, Feb usw). Nun soll per Makro abhängig von dem Wert, der z.B. in Zelle "B2" steht (in diesem Fall bereits die Monatskürzel) automatisch in der externen Arbeitsmappe auf das gleichnahmige Sheet zugegriffen werden. Hat einer von Euch eine Idee wie man das verwirklichen könnte?
Ein Ansatz, der aber leider nicht funktioniert:
Dim monatsabkuerzung As Variant
Range("B2") = monatsabkuerzung
Windows("Sales Report.xls").Activate
Sheets(monatsabkuerzung).Select
Range("A4:AA769").Select
Selection.Copy
Windows("Mappe2").Activate
Range("A4").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("A3").Select
Vielen Dank im Voraus für Eure Bemühungen
Peter