WorksheetFunctions Subtotal
Gegga
Habe mit eurer Hilfe und vielem Nachfragen eine Excelliste gebastelt, die ansich gut funktioniert...
Seit heute macht diese aber Zicken und habe rausgefunden an was es liegt :
'If WorksheetFunction.Subtotal(3, Range("D7:D65000")) = 1 Then
An dieser Stelle springt es sofort zum End If und führt die dazwischen liegenden Sätze nicht mehr aus.
Meine Frage ist, dai ch diesen Satz nicht kenne und die Hilfe ned wirklich was aufschlüssiges darüber her gibt, will ich einfach nur wissen was mit dieser Worksheetfunktion eigentlich abgefragt wird, z.b. auch was die 3 bedeutet...
Kann mir mal jemand erklären was hier genau geschieht bei der Verwendung?
Habe mal die ersten paar Zeilen meines (eures) Codes mit angehängt, falls es erforderlich sien sollte
Sheets("Startsheet").Select
'If WorksheetFunction.Subtotal(3, Range("D7:D65000")) = 1 Then
Dim lngRSTART As Long
Dim durchsuchen_START
bAction = False
With Sheets("Startsheet")
'
Set durchsuchen_START = .Range("D:D").Find(what:=TB_TEILENUMMER_KUNDE.Text, lookat:=xlWhole)
'
If Not durchsuchen_START Is Nothing Then
'
lngRSTART = durchsuchen_START.Row
.Cells(lngRSTART, 2) = TB_TEILEFAMILIE.Value
[...]
End if [...]
Gruss Gegga