VBA von anderer Tabelle aus steuern
24.06.2008 20:27:00
anderer
bisher habe ich in der tabelle "zhlg2" das nach nachstehende Makro arbeiten lassen/Makro aktiviert. Nun möchte ich es gerne von einer anderen tabelle aus zBsp "termin" arbeiten lassen/aktivieren (gleicher Dateiname)
Mit dem Makro aktualisiere ich mtl meine Zahlungsverpflichtungen+Dauerzahlungen.
Was muß ich dazuschreiben/eingeben, damit dies von der Tabelle "termin" möglich wird?
Vielen Dank im Voraus.
Das bisherige Makro für "Zhlg" lautet:
Sub nurWerte()
Worksheets("Zhlg2").Range("a2:n120").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.Save
End Sub
Private Sub CommandButton1_Click()
' Formel e1 in Zhlg2 - Range e2 - 120x (bis Range e120) Zhlg2 auffüllen:
Sheets("Zhlg2").Select
Range("e1").Select
Selection.Copy
Sheets("Zhlg2").Select
Worksheets("Zhlg2").Range("e2").Select
ActiveSheet.Paste
Sheets("Zhlg2").Select
Worksheets("Zhlg2").Range("e2").Select
Selection.AutoFill Destination:=Worksheets("Zhlg2").Range("e2:e120"), Type:=xlFillDefault
nurWerte
Range("A2:n120").Select
Selection.Sort Key1:=Range("e2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A2:n120").Select
Selection.Sort Key1:=Range("d2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A2:n120").Select
Selection.Sort Key1:=Range("e2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveWorkbook.Save
End Sub