Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Probleme mit AutoFill

Forumthread: Probleme mit AutoFill

Probleme mit AutoFill
12.02.2004 15:02:27
Thomas
Hallo,
hab folgenden Code:
Range("AB2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-15],'[Kopie von VTP.xls]SPL'!R2C1:R65536C1,1,FALSE)),""Nicht in Staffelpreisliste"",""In Staffelpreisliste"")"
Range("AB2").Select
Selection.AutoFill Destination:=Range("AB2:AB65000"), Type:=xlFillDefault
Nun möchte ich aber nicht bis AB65000 Sverweis eintragen, sonder bis zur festgestellen Zeilenanzahl die in der Variablen j eingetragen ist. Ich haba versucht den Bereich folgendermaßen zu manipulieren_
Range(Cells(2,28);Cells(j,28)
Funktioniert aber nicht. Wie geht es denn ?
Thomas
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Probleme mit AutoFill
12.02.2004 15:35:14
Heinz A. Wankmüller
Hallo Thomas,
Range(Cells(2,28),Cells(j,28) ist OK, also kein Semikolon sondern ein Komma im Code.
Außerdem ist es einfacher statt
Range("AB2").Select
Selection.AutoFill Destination:=Range("AB2:AB65000"), Type:=xlFillDefault
den Code
Range("AB2:AB65000").FillDown
zu schreiben
Gruß
Heinz
Anzeige
AW: Probleme mit AutoFill
12.02.2004 16:14:59
Thomas
Danke, hat geklappt. Eine Klammer fehlte jetzt novh und dann gign es: Vielleciht kann mir auch jemad erklaren, wie ich im folgenden die Zahl 65000 durch j ersetzen kann
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Grunddaten!R1C1:R65000C28").CreatePivotTable TableDestination:="", TableName _
:="PivotTable1", DefaultVersion:=xlPivotTableVersion10
Gruß

Thomas
Anzeige
AW: Probleme mit AutoFill
12.02.2004 19:30:20
Heinz A. Wankmüller
Hallo Thomas,
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Grunddaten!R1C1:R" & j & "C28").CreatePivotTable TableDestination:="", TableName _
:="PivotTable1", DefaultVersion:=xlPivotTableVersion10
Gruß
Heinz
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige