Office: VBA: variabler Zellbezug in anderes Arbeitsblatt

Gott sei Dank!
Mir gingen nämlich langsam die Ideen aus... :mrgreen: :roll: :mrgreen:

 

Ein Glück :)

Aber... warum "PKliste!P3"? ..esspielt sich (zufällig) alles in Zeile 4 ab (die Auszufüllende Zeile in Arbeitsblatt 1 und der Beginn des Prüfbereichs in Arbeitsblatt 2).

Ein Problem habe ich noch mit dem Ganzen, aber das kann ich mittels sortieren lösen ;)

 

Hallo!

z ist anfangs 4, das ist richtig.
Aber durch "z = z + i - 1" wird z zu 3, denn i ist 0.

...
z = z + i - 1 ' aktuell zu prüfende Zeile
If ze = 0 Then
' Anfangswert festlegen für den Mittelwertbereich
If Sheets("PKliste").Cells(z, 16) = schluessel Then
...

 

Guten Morgen!

Ah..genau die Zeile aus der For-Schleife, dort war i von 1 bis x definiert. Da hätte es wieder gepasst denke ich.
Ich habe den Code auf der Vorseite gleich mal korrigiert (fehlerhafte Zeile).

 

Ich erstelle mal eine neue Antwort, weil es noch eine Frage zum Thema gibt.

Die hier bereits vorgeschlagene Methode zum Auswählen eines Bereichs in einem anderen Arbeitsblatt scheint nicht so recht zu funktionieren in meinem Fall. Ich habe nun die Sortierfunktion integriert, und dazu:
- Variablen za und ze global initialisiert
- die Sortierfunktion wird aufgerufen nachdem za und ze durch die do-Schleife gesetzt wurden

Code:

Private Sub Sortieren()
Sheets("PKliste").Range(.Cells(za, 2), .Cells(ze, 15).EndxlUp.Offset(0, 15)).Select
Selection.Sort Key1:=Sheets("PKliste").Range(.Cells(za, 13)), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End sub

Ersetze ich die Variablen "ze" und "za" durch feste Werte tritt der Fehler noch immer auf.
"Unzulässiger oder nicht ausreichend definierter Verweis"

Eine zweite Variante, basierend auf einem aufgezeichneten Makro mit entsprechenden Änderungen geht leider auch nicht:

Code:

Private Sub Sortieren()
Sheets("PKliste").Range(.Cells(za, 2), .Cells(ze, 15)).Select
ActiveWorkbook.Worksheets("PKliste").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("PKliste").Sort.SortFields.Add Key:=Sheets("PKliste").Range(.Cells(za, 13), .Cells(ze, 13)) _
     , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("PKliste").Sort
 .SetRange Sheets("PKliste").Range(.Cells(za, 2), .Cells(ze, 15))
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

EDIT
Fehler gefunden:
vor

Code:

Sheets("PKliste").Range(.Cells(za, 13), .Cells(ze, 13))

muss immer nochmal der Sheets-Verweis auftauchen:

Code:

Sheets("PKliste").Range(Sheets("PKliste").Cells(za, 13), Sheets("PKliste").Cells(ze, 13))