AW: vermutlicher Laufzeitfehler
01.06.2005 08:52:51
Clemens
Hallo Waltraud,
vielen Dank für Deine Antwort.
Kannst Du mal den Code anschauen ?
Denn der nachfogende Code funktioniert auf allen Rechnern einwandfrei.
Nur auf den Dell-Rechnern gibt es die beschriebenen Probleme.
Das Makro (Makro_Mo())wird über den Smiley gestartet und liest dann zuerst den Inhalt der
Zelle (M5) in die Variable ein. In der Zelle (M5) steht der Name des gewünschten Tabellenblattes dessen Daten in ein vorgegebenes Formblatt eingetragen werden sollen.
Über das Makro (Makro_MO_Lo()) werden später nur die Inhalte des Formblattes wieder gelöscht um daraufhin ein anderes Tabellenblatt einzulesen.
Ich verstehe nicht, weshalb dieser Code nicht auf Dell-Rechnern funktionieren sollte.
Viele Gruesse
Clemenes
Sub Makro_Mo()
Dim Var1 As String
Application.Goto Reference:="Start_Sachm"
Var1 = Range("M5").Value
Sheets(Var1).Select
Range("C2").Select
Selection.Copy
Application.Goto Reference:="Start_Sachm"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'ActiveSheet.Paste
Application.Goto Reference:="Start_Hilfsm"
Var1 = Range("M5").Value
Sheets(Var1).Select
Range("C3").Select
Selection.Copy
Application.Goto Reference:="Start_Hilfsm"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'ActiveSheet.Paste
'Application.Goto Reference:="Start_Fix"
'Var1 = Range("M6").Value
'Sheets(Var1).Select
'Range("C20:H29").Select
'Selection.Copy
'Application.Goto Reference:="Start_Fix"
'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'ActiveSheet.Paste
Application.Goto Reference:="Start_Text"
Var1 = Range("M5").Value
Sheets(Var1).Select
Range("B15:G48").Select
Selection.Copy
Application.Goto Reference:="Start_Text"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'ActiveSheet.Paste
Application.Goto Reference:="Start_Text_2"
Var1 = Range("M5").Value
Sheets(Var1).Select
Range("B49:G83").Select
Selection.Copy
Application.Goto Reference:="Start_Text_2"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'ActiveSheet.Paste
Range("M16").Select
End Sub
Sub Makro_MO_Lo()
Application.Goto Reference:="Start_Sachm"
ActiveCell.Range("A1").Select
'ActiveWindow.LargeScroll Down:=-2
Selection.ClearContents
Application.Goto Reference:="Start_Hilfsm"
ActiveCell.Range("A1").Select
'ActiveWindow.LargeScroll Down:=-2
Selection.ClearContents
'Application.Goto Reference:="Start_Fix"
'ActiveCell.Range("A1:F12").Select
'ActiveWindow.LargeScroll Down:=-2
'Selection.ClearContents
Application.Goto Reference:="Start_Text"
ActiveCell.Range("A1:F37").Select
'ActiveWindow.LargeScroll Down:=-2
Selection.ClearContents
Application.Goto Reference:="Start_Text_2"
ActiveCell.Range("A1:F43").Select
'ActiveWindow.LargeScroll Down:=-2
Selection.ClearContents
Range("M16").Select
End Sub