Bereich kopieren

Hi,
ich habe ein Problem:
Ich möchte mit einer if..then Anweisung einen Zellbereich von Tabellenblatt1 nach Tabellenblatt 2 kopieren...unter der Bedingung, dass die Zellen nur kopiet werden, wenn in Zelle H9 auf TB1 ein Wert <>0 steht
Dabei sollen die Formaterngen (Border, Font) etc. mitkopiert werden...
Ich versuche das über:
Sub Bereich()
On error Goto fehler

With Worksheets("Tabelle2")
If Worksheets("Tabelle1").Range("H9") <> 0 Then
Worksheets("Tabelle1").Range("K34:L34").Copy
Range("J12:K12").PasteSpecial Paste:=xlAll
End If
End With

fehler:
aw = MsgBox(Err.Description, vbCritical, "Fehler ")
Err.Clear
End Sub

Und natürlich ist da ein Fehler, die Message kommt aber ohne Beschreibung....
Ich habe also keine Ahnung, warum der Bereich nicht kopiert wird...

Ich hoffe einer von euch hat eine Idee woran es liegen kann...bei einem anderen Zellbereich klappt das...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Bereich kopieren

06.02.2003 19:07:19

Hajo_Zi

Re: Bereich kopieren

06.02.2003 19:14:17

Jörg

Re: Bereich kopieren

06.02.2003 19:16:59

Hajo_Zi

Paste

06.02.2003 19:24:41

Jörg

Re: Paste

06.02.2003 19:30:43

Hajo_Zi

Test...

06.02.2003 19:44:12

Jörg

Re: Test...

06.02.2003 19:53:59

Hajo_Zi

an Hajo_Zi :(

06.02.2003 21:35:00

Jörg

Kann ich verstehen...
habe auch keine Lust, 50 mal zu posten anstatt einmal richtig.

Allerdings sollte man auch vielleicht mal berücksichtigen, dass nicht nur die Leute, die hier Fragen beantworten Menschen sind, sondern auch die, die sie stellen..und wie sagt man...errare humanum est, gell...

speziell zu meinem Fall:
Wenn mir bekannt gewesen wäre, dass es nur an dem Zelleninhalt liegt, dann hätte(!) ich das geschrieben...habe allerdings die Möglichkeit erwähnt,dass es so sein könnte (dachte es liegt an cdbl von wegen keine Zahl sondern Textinhalt etc...)
Und zu der 2ten Frage die daraus dann resultierte (vgl. wie die Zelle doch kopiert werden kann)
bevorzugt man da gleich neues posten?? Macht für mich auch keinen sinn, 1 Problem zig mal behandeln zu lassen...

Denke, da wäre ein sinniger Kompromiß angebracht....generell mag es ja sein, dass man sich da komplett neu einarbeiten muss, deshalb widerspreche ich nicht im allgemeinen, aber wieder auf meinem Fall bezogen...die Lösung war so banal, dass selbst ich alleine darauf gekommen bin, zwar mit mehr zeitaufwand als solche Profis wie hier, aber immerhin...

oder muss man sich für:

="f[y="&$H9&"]" = falsch
="f[y="&Tabelle1!$H$9&"]" = richtig

so hart einarbeiten ??

Ich weiss ja nicht nach welchem Prinzip das hier läuft, aber wenn ich jemanden "freiwillig" Hilfe anbiete, dann motze ich nicht rum, nur weil dem ein Fehler unterläuft...

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread