Set > copy ohne Formeln

Hallo,
ich bin nervig, aber es ist keine Lösung in Sicht. Melanie, falls Du auch im Forum bist, Deine Lösung ist bestimmt richtig, aber sie bringt mich nicht weiter. Martin sagt die Formel tut was sie soll, auch das ist richtig. Aber ich glaubte mein Problem beschrieben zu haben.
Ich versuchs erneut jetzt mal über die Inhalte der Tabellenblätter:
Im Blatt welches ich übertragen möchte stehen von "D6:D300" Formeln. Diese Formeln erzeugen da wo es passt Werte. Jetzt
möchte ich in ein neues Blatt nur die Werte übernehmen. Mit meinem Code ergänzt durch Anregungen von Euch wird der Zielbereich des neuen Blattes zwar mit den Werten gefüllt, leider aber auch der gesamte Bereich von A1:D300. Jetzt weiß ich nicht genau wie ich es erklären kann, im Moment stehen danach noch intern die Anführungszeichen drin, also "". Bei einer "jungfräulichen" Mappe steht aber sowohl "" als auch "0" drin.
Mein Problem ist es nun, wenn ich die Daten aus der Zieldatei A1:D300 wieder in ein anderes Blatt kopieren möchte, dann füllt er im neuen Blatt den Bereich von A1:D300 aus, obwohl doch nur wenige Werte übergeben wurden.
Hier noch einmal meine Codes:

Set rng1 = Worksheets("Kunden").Range("D6:G300")
Workbooks.Add
rng1.Copy
Range("A1").PasteSpecial (xlPasteValues), Operation:=xlNone, skipBlanks:=True

Hoffentlich bin ich verständlich...
Danke für alle Bemühungen.
Gruß
Wolfgang

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Martin,
Danke vorab für die viele Arbeit die ich mache, werde mich bemühen immer präziser zu werden. Jetzt die Antworten:

1.Tabelle "Kunden"
Beispiel für "D6" analog bis "G300"

=WENN(F6="";"";SUMMEWENN(Tabelle1!H7:H100;F6;Tabelle1!G7:G100))

Ergebnis in "D6" = 5000
Ergebnis in "D7" = 3200
Ergebnis in "D8" = 150
von "D9" bis "G300" keine Summe errechnet deshalb "".

2. Jetzt möchte ich den Bereich "D6:G300" mit Makro in eine neue Arbeitsmappe kopieren.
Set rng1 = Worksheets("Kunden").Range("D6:G300")
Workbooks.Add
rng1.Copy
Range("A1").PasteSpecial (xlPasteValues), Operation:=xlNone, skipBlanks:=True

3. Als nächstes öffnet ein anderer User diese neue Arbeitsmappe ("Mappe1") und per Makro sollen die Werte aus "A1:D300" in seine Zieldatei "Mitarbeiter" übernommen werden ab der ersten freien Zeile.

Workbooks.Open Filename:="Mappe1.xls"
Set rng1 = Worksheets("Tabelle1").Range("A1:D300")
Workbooks("Firma.xls").Activate
Worksheets("Mitarbeiter").Activate
intRow = 1
Do While Left(Cells(intRow, 1), 7) <> ""
intRow = intRow + 1
Loop
rng1.Copy
Range(Cells(intRow, 4).Address).PasteSpecial Paste:=xlValues

4. Sein Arbeitsblatt "Mitarbeiter" sieht nach der Übertragung dann so aus, dass die Ergebnisse nach der letzten Zeile eingefügt wurden, also wie unter 1.) beschrieben mit 5000, 3200, 150

5. Jetzt kommts!!!
In seinem Arbeitsblatt "Mitarbeiter" stehen auch Formeln die die Summen die gerade übergeben wurden weiterverarbeiten. Bis zur o.g. Zahl, 150 als letzte eingefügte, auch alles klar aber danach werden für den Restbereich auch noch die Leerzeilen mit übergeben und die werden bei der Formelauswertung im Arbeitsblatt als Fehler deklariert.

Zusammenfassend für Dich wahrscheinlich eine Kleinigkeit, aber dieses ist mein erstes Makro!!
Ich möchte also erreichen, dass in diesem Beispiel nur die Summen 5000, 3200 und 150 übergeben werden und danach Schluß ist.

Hoffentlich ist es jetzt verständlicher.
Auf jeden Fall vielen, herzlichen Dank für alle Mühen.
Gruß
Wolfgang

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread