Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
380to384
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige