sheet("").select?
29.09.2004 13:54:35
Thomas
ich bin absoluter Anfänger in der VBA Programmierung und habe mir bisher nur Grundkenntnisse erworben. Deshalb greife ich ganz gern auf die MakroAufnahmemöglichkeit zurück.
Leider funktioniert das aufgenommene Makro nicht. Er zeigt mir ständig einen Anwendungs- oder objektdefinierter Fehler an obwohl der Befehl drei Zeilen vorher mit der Navigation auf ein anderes Worksheet funktioniert hat.
Also zusammengefasst - er schafft es nicht zwischen den Registern zu wechseln.
Ich wäre super danke für jegliche Antwort.
Danke!
Gruß
verzweifelter thomas
Sub makro(4)
Sheets("Tabelle ""Plan""").Select
Range("A3:G31").Select
Selection.ClearContents
' Die folgende Zeile akzeptiert VBA nicht?
Sheets("test").Select
Range("M16").Select
Selection.Copy
Sheets("Tabelle ""Plan""").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("test").Select
Range("G12:I12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle ""Plan""").Select
Range("B3").Select
ActiveSheet.Paste
Range("E3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("E4").Select
Sheets("test").Select
Range("F12").Select
Selection.Copy
Sheets("Tabelle ""Plan""").Select
Range("F3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "0"
Range("G4").Select
End Sub