wie kann man den Wert einer Variablen in folgenden Code einfügen?
Dim iRow As Integer
With Cells.Find(what:="*", after:=Range("A1"), searchdirection:=xlPrevious)
iRow = .Row
End With
MsgBox "Anzahl Zeilen: " & iRow
Range("A1:C949").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Tabelle1!R1C1:R949C3").CreatePivotTable TableDestination:="",
......
im obigen Code soll die Zahl 949 (Anzahl von Zeilen im Sheet) durch den Wert der Variablen iRow ersetzt werden, die mir die Anzahl der vorhandenen Zeilen ermittelt.
Danke
Volker