Kopieren von Zellewerten
10.08.2014 17:16:20
Mercedesmann
Hallo Leute,
ich habe eine Mappe, wo ich über ein Makro Werte aus bestimmten Zellen in ein anderes Blatt kopiere. Das funktioniert auch soweit sehr gut. Nun möchte ich aber das MAkro so ändern, dass die Daten nicht wie bisher aus "Tabelle2" sondern aus dem gerade aktiven Blatt übernommen werden. Alle Versuche, das mit "Active.Sheet" zu lösen sind gescheitert, leider habe ich zu wenig Ahnung.
Habt ihr eine Lösung?
Gruß Willi
Sub plan_mon()
Dim wsZ As Worksheet
Set wsZ = Sheets("Tabelle1")
With Sheets("Tabelle2")
wsZ.Range("c2") = .Range("f1")
wsZ.Range("G4") = .Range("E2")
wsZ.Range("E4") = .Range("E4")
wsZ.Range("H4") = .Range("G2")
wsZ.Range("F4") = .Range("G4")
wsZ.Range("K4") = .Range("G8")
wsZ.Range("L4") = .Range("G3")
End With
End Sub