Zwergensuse
Grünschnabel
Hallo liebe Experten,
Ich habe jetzt schon gegoogelt und in vielen Beträgen gesucht. Leider habe ich nicht das richtige gefunden.
Es wäre nett, wenn Ihr mir helfen könntet. In meiner Tabelle kommt kein Datum vor, das schon mal vor weg.
In meinem Makro muss ein Fehler sein und ich kann ihn nicht finden. Meine Tabelle die gefiltert wird als Text formatiert. Nun zum meinem Problem :
In einer Spalte habe ich folgende Werte 363668, 959673, die Werte werden gefilter steht da aber
8462354.1 , 12445.2 also mit Punkt wird nicht gefilter.
Ich hänge hier mal meinen Code an:
Für Hilfe wäre ich sehr Dankbar
Susanne
Ich habe jetzt schon gegoogelt und in vielen Beträgen gesucht. Leider habe ich nicht das richtige gefunden.
Es wäre nett, wenn Ihr mir helfen könntet. In meiner Tabelle kommt kein Datum vor, das schon mal vor weg.
In meinem Makro muss ein Fehler sein und ich kann ihn nicht finden. Meine Tabelle die gefiltert wird als Text formatiert. Nun zum meinem Problem :
In einer Spalte habe ich folgende Werte 363668, 959673, die Werte werden gefilter steht da aber
8462354.1 , 12445.2 also mit Punkt wird nicht gefilter.
Ich hänge hier mal meinen Code an:
Code:
Sub Tabellenergebnis()
' Tabellenergebnis Makro
Dim lngLastRow As Long
Dim lngLastRowM As Long
Dim lngLastRowS As Long
lngLastRow = Sheets("Ergebnis").cells(Rows.Count, 1).End(xlUp).Row
lngLastRowM = Sheets("Tabelle1").cells(Rows.Count, 1).End(xlUp).Row
lngLastRowS = Sheets("suchen").cells(Rows.Count, 1).End(xlUp).Row
Sheets("Ergebnis").Select
Range("A1").Select
Sheets("Tabelle1").Range("A6:J" & lngLastRowM).AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Sheets("suchen").Range("A2:J" & lngLastRowS), CopyToRange:= _
Range("A1"), Unique:=False
lngLastRow = Sheets("Ergebnis").cells(Rows.Count, 1).End(xlUp).Row
Sheets("Ergebnis").Select
End Sub
Susanne
Zuletzt bearbeitet von einem Moderator: