Office: VBA Einzeiler Syntaxproblem

Hallo zusammen,

mein heutiges problem ist verleichsweise einfach hat mich aber unzählige nerven gekostet. Ich schaffe es einfach nicht die Syntax richtig hinzubekommen. Nichtmal mit dem Internet und alten Forumsbeiträgen. Nun gut.

Hier ist mein Code

Code:

Dim KndAnz As Variant
    Dim KndNr As Integer
    
    
Set w5 = Worksheets("Auftragsdatenbank")
 '-------------------------------------------------------------
    
    'Filter Zurücksetzen
    Sheets("Auftragsdatenbank").Select
    ActiveSheet.ListObjects("ListeAuftrag").Range.AutoFilter Field:=1
    
 'Filter um den richtigen Kunden zu identifizieren
    KndNr = txtKundennummer
    'ActiveSheet.ListObjects("ListeAuftrag").Range.AutoFilter Field:=1, Criteria1:="=" & CLng(KndNr)


'_____ Bis hierher kein problem

 'Zählen wie viele Kundeneinträge sind vorhanden
 Sheets("Auftragsdatenbank").Select
 
  KndAnz = Application.WorksheetFunction.CountIf(Range("ListeAuftrag[Kundennummer]"), "CLng(KndNr)")
  
  
 MsgBox (KndNr & "_" & KndAnz)

End Sub

Sooo!
Es geht um die vorletzte Zeile:

Code:

  KndAnz = Application.WorksheetFunction.CountIf(Range("ListeAuftrag[Kundennummer]"), "CLng(KndNr)")

Ich schaffe es einfach nicht dass mir Excel die Zellen zählt die eine bestimmte Kundennummer haben. Die Kundennummer kommt von einer Userform und bis dahin passt auch alles.
Mein bester Gedanke war bisher: Es funktioniert nicht richtig weil ich mich in einer angelegten Liste befinde. Jedoch halte ich diese Begründung für schwach.

Mein erster Gedanke war erstmal rumprobieren -> ohne Erfolg
Der zweite Gedanke war, Nach der Nummer zu filtern und dann "CountA" als Befehl zu verwenden um die leeren Zeilen die nach dem Filtern entstehen zu überbrücken. Dann ist mir aber gekommen die sind ja gar nicht leer sondern einfach nur ausgeblendet. Also wieder kein Erfolg

Ein weiteres problem ergibt sich bei dem Befehl ".End(xlUp)" da geht auch nix mehr.
Habt ihr also vielleicht eine Idee wie ich meine Range definiere und die Variable "KndNr" als Suchkriterium verwende?

Über eure Hilfe würde ich mich sehr freuen

Gruß

 

Hi,

weshalb schreibst du in der fraglichen Zeile "CLng(KdnNr)" in Anführungszeichen? Das würde doch bedeuten, du suchst nach dem String, also Text "CLng(KdnNr)" und nicht nach CLng(KdnNr).

Bis später,
Karin

 

Hallo Karin,

vielen Dank für den Tipp. Jetzt funktioniert alles wunderbar.
Wenn ich darf würde ich gleich noch eine Frage zum Folgeproblem stellen.

Ich habe bis zum jetzigen Punkt die relevante Kundennummer und die Anzahl an Einträgen dieser Kundennummer in meiner Liste bestimmt. Basierend auf der Anzahl der relevanten Kundenummern würde ich jetzt gerne Multipages generieren. Wenn z.B. die KndNr "777" -> 4 mal vorkommt sollen 4 Multipages in meiner userform erstellt werden. Nun weiß ich wieder nicht recht ob die syntax richtig ist. Denn es passiert nichts, es kommt aber auch keine Fehlermeldung.
Achso der erste Reiter von dem Steuerelement "Multipage" ist bereits vergeben und heißt Neu. Mit den anderen Multitabs versuche ich nun eine art Kundenhistorie von Rechnungen zu erstellen. D.h. die Multipage wird geladen und enthält die Informationen aus der entsprechenden Zeile.

macht das sinn?
Wenn nein dann hilft hoffentlich die Beispieldatei

Hier mein gesammter Code:

PHP:

  Dim x As Variant
    Dim KndAnz As Variant
    Dim KndNr As Variant
    Dim RelevanteZeile As Integer
    
    
Set w5 = Worksheets("Auftragsdatenbank")

 '-------------------------------------------------------------
    
    'Filter Zurücksetzen
    Sheets("Auftragsdatenbank").Select
    ActiveSheet.ListObjects("ListeAuftrag").Range.AutoFilter Field:=1
    
 'Filter um den richtigen Kunden zu identifizieren und die Startzeile
    KndNr = txtKundennummer
    ActiveSheet.ListObjects("ListeAuftrag").Range.AutoFilter Field:=1, Criteria1:="=" & CLng(KndNr)

 'Zählen wie viele Kundeneinträge sind vorhanden
    Sheets("Auftragsdatenbank").Select
    KndAnz = Application.WorksheetFunction.CountIf(Range("ListeAuftrag[Kundennummer]"), CLng(KndNr))
'Kontrolle
    MsgBox (KndNr & "_" & KndAnz)
 
 '_____ Bis hierher kein problem

 '-------------------------------------- Eigentliches Multipage Problem
 
 'Wo Endet die Schleife?
'Erstellungsschleife für die Reiter: Erstellen, Benennen, Positionieren Ansatz-1
    'For i = 1 To KndNr
     '   If w5.Range("ListeAuftrag").Cells(i, 1) <> "" Then
      '      x = 0 + i
       
        'Festlegung um welche Zeilen es geht ---> über: If w5.Range("ListeAuftrag").Cells(i, 1) = KndNr Then???
            For Each c In Worksheets("Auftragsdatenbank").Range("ListeAuftrag[Kundennummer]").Cells
            If Abs(c.Value) = KndNr Then
            'RelevanteZeile = Abs(c.Value).Range(rowscount, 3)

        ' Versuch 1 - hat nicht geklappt
       ' For Each cell In Range("A:A")
       ' If w5.Range("ListeAuftrag").Cells = KndNr Then
            
                
                'Anlegen der Zusätzlichen Reiter in Abhängikeit der Einträge in Spalte A ---> (Vorher war überall Multipage1)
                MultiPage1.Pages.Add.Caption = w5.Range("ListeAuftrag").Cells(i, 3) '--> Bei For-Next-Schleife relevante Row bestimmen?
                 MultiPage1.Pages(0).Controls.Copy
                MultiPage1.Pages(x).Paste

                'Positionsfeststellung des originalen Reiters (Reiter "Neu")
                For Each ctl In MultiPage1.Pages(0).Controls
                    If TypeOf ctl Is MSForms.Frame Then         'Bezeichnung des frames?
                        l = ctl.Left
                        r = ctl.Top
                        Exit For
                    End If
                Next
            
                'Ausrichtung des kopierten und eingefügten Reiters
                  For Each ctl In MultiPage1.Pages(x).Controls
                      If TypeOf ctl Is MSForms.Frame Then
                          ctl.Left = l
                          ctl.Top = r
                          Exit For
                      End If
                  Next
                
            Exit For
            End If
            Next
                
  'Beschriftung der Textfelder im "x'ten" tab
  
   ' End If
'Next


'Filter wieder zurücksetzen
    Sheets("Auftragsdatenbank").Select
    ActiveSheet.ListObjects("ListeAuftrag").Range.AutoFilter Field:=1

End Sub



Gruß