Re: Makro, um Curser autom. in Zelle A1 zu plazieren
28.03.2003 10:35:37
Axel
Grundlage ist eine Excel Tabelle, bei der auf der ersten Seite der Wechselkurs eingegeben wird und sämtliche Tabellen dahinter dann den eingegebenen Fremdwährunswert mit Hilfe des auf der ersten Seite eingegebenen Kurses umgerechnet wird.Nun, jetzt werdet Ihr sicherlich fragen, warum ich nicht einfach einen Link nehme (=Blatt1/ZelleA1)? Hintergrund ist der, dass ich aus dieser Datei die einzelnen Arbeitsblätter heraustrennen muss und somit der Link dann ins Leere greifen würde. Also hab ich da ein Makro bekommen, dass den Wechselkurs auf jeder Seite fixiert. Aber leider nur genau dort, wo der Cursor gerade auf jeder einzelnen Zelle steht. Und nicht dorthin, wo auf jedem einzelnen Arbeitsblatt zwecks Umrechnung zugegriffen wird.
Anbei das Makro:
Private Sub CommandButton1_Click()
'Daten einfrieren'
'Bildschirm-Update ausschalten'
Application.ScreenUpdating = False
'Blatt 1'
Sheets("Blatt 1").Activate
Sheets("Blatt 1").Range("a1:b5").Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'Blatt 2'
Sheets("Blatt 2").Activate
Sheets("Blatt 2").Range("a1:b5").Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'Zurück zur Ausgangsmaske'
Sheets("Eingabe").Activate
MsgBox "Die Wechselkurse sind nun fix - juhu!"
Range("C6").Select
End Sub
Vielen Dank,
Axel