Macro funktioniert nicht immer!



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Macro funktioniert nicht immer!
von: Alex
Geschrieben am: 15.05.2002 - 10:33:01

Hi!

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?

nach oben   nach unten

Re: Macro funktioniert nicht immer!
von: Tobi@s
Geschrieben am: 15.05.2002 - 10:53:52

Hallo,
bei mir funktioniert es, wenn man es so macht. Ich hoffe, das ist nach deinem Geschmack.


Sub Change()
' Kopiert Werte aus einer Tabele in die andere
Sheets("Tabelle1").Select
Range("D7:R303").Copy

Sheets("Hilfe").Select
Range("E10").Select
ActiveSheet.Paste

'Kopiert nur werte aus einer Zelle in eine andere
Range("E6").Copy
Range("F6").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

On Error Resume Next

' Setzt Fokus an einen anderen Platz
Application.CutCopyMode = False
Range("A1").Select
End Sub


nach oben   nach unten

Re: Macro funktioniert nicht immer!
von: Alex
Geschrieben am: 15.05.2002 - 11:29:58

Danke Tobi@s! :)

Ich werde es ausprobieren! :)

10x!

MFG Alex

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "2spaltige Listbox füllen"