Set Range nocheinmal
13.02.2003 17:14:06
Wolfgang
Ihr habt eben meine Fragen präzise beantwortet. Leider habe ich mein Problem falsch beschrieben. Typisch Anfänger! Ich glaube der Ansatz muß später erfolgen. Konkret geht es mir darum, dass beim kopieren von Zeilen die Werte aus rng nur bis zum letzten Eintrag übertragen werden. Ich hatte geglaubt, dass man dieses vorher zuweisen kann. Leider stehen aber auch dann die Leerzeilen mit einem Wert in der neuen Tabelle. Könnt Ihr mir deshalb sagen wie ich den copy-code ändern muß:
Set rng1 = Worksheets("Tabelle1").Range("A1:D300").CurrentRegion
rng1.Copy
Range(Cells(intRow, 4).Address).PasteSpecial Paste:=xlValues
Danke
Gruß
Wolfgang
Anzeige