Ich habe folgendes Problem!
Ich habe ein Macro geschrieben, das wenn sich etwas auf dem Blatt ändert ein Bereich auf einen Anderen Platz kopiert. Aber es funktioniert nicht immer einwandfrei! Wo liegt mein Fehler?
Sub Change()
' Löscht eine Zelle im "Hilfe"
Sheets("Hilfe").Select
Range("f6").Select
Selection.ClearContents
'Kopiert nur werte aus einer Zelle in eine andere
Range("E6").Select
Selection.Copy
Range("F6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
On Error Resume Next
' Kopiert Werte aus einer Tabele in die andere
Sheets("Tabelle1").Select
Range("D7:R303").Select
Selection.Copy
' Geht zum Blatt mit dem Namen aus der Zelle im "Hilfe"
' und Kopiert Werte
Sheets(Range("Hilfe!f6").Value).Select
Range("E10:S306").Select
Selection.Paste
' Setzt Fokus an einen anderen Platz
Application.CutCopyMode = False
Range("A1").Select
End Sub
Soweit ist alles klar. Es wird ein Bereich markiert und kopiert, dann geht es her und markiert ein anderes im Blatt x. Und dann sollte es die Werte einfügen - macht aber nicht! Shit!
Bin ich zu dumm?
Ich werde es ausprobieren! :)
10x!
MFG Alex