Supportnet / Forum / Tabellenkalkulation
EXCEL Autofilterproblem wenn Text und Zahl in gleicher Spalte
Frage
Habe folgendes Problem mit dem EXCEL Autofilter:
In einer Spalte stehen in getrennten Zellen sowohl numerische als auch alphanumerische Werte. z.B 1K1;100; 120; 500;1K2;1L3 etc. In dieser Spalte gibt es keine Leerzellen. Ich wollte mit dem benutzerdefinierten Kriterium "beginnt mit" 1 alle Werte bekommen, die mit 1 beginnen. Leider funktionierte dies nur für Texteinträge. Die reinen Zahlenwerte 100; 120 etc. waren jedoch nicht dabei.
Ich habe dann in meiner Not mit der Funktion =LINKS(A1;3) die Werte in eine andere Spalte übertragen. Jetzt hat obiger benutzerdefinierter Filter funktioniert, weil alle Daten zu Text formatiert wurden. Auch das Kopieren der Daten und einfügen der reinen Werte (ohne Formel) hat die Textformatierung voll belassen - alles schien in Ordnung.
Jetzt aber kommts ! Die normale Formatierung der Felder als "Text" (Format-Zellen-Text) hatte nicht die gleiche Wirkung wie die Funktion =LINKS(). Offensichtlich gibt es hier Unterschiede.
Wie kann ich ohne Einsatz von =LINKS() trotzdem benutzerdefiniert autofiltern, auch wenn in der Spalte sowohl Text- als auch numerische Daten enthalten sind ? Danke für Eure Hilfe.
Antwort 1 von nighty
hi walter :)
wie gewünscht :))
gruss nighty
Sub such()
Dim eingabe As String
Dim zaehler1 As Long
With ActiveSheet
eingabe = InputBox("Bitte geben Sie den Suchbegriff ein !")
If Range("A1:A65535").EntireRow.Hidden = True Then
Range("A1:A65535").EntireRow.Hidden = False
Else
For zaehler1 = 1 To .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
If IsNumeric(Range("A" & zaehler1)) Then zelle = Str(Range("A" & zaehler1))
If Mid(Range("A" & zaehler1), 1, Len(eingabe)) <> eingabe And Mid(zelle, 1, Len(eingabe)) <> eingabe Then
Range("A" & zaehler1 & ":A" & zaehler1).EntireRow.Hidden = True
End If
Next zaehler1
End If
End With
End Sub
wie gewünscht :))
gruss nighty
Sub such()
Dim eingabe As String
Dim zaehler1 As Long
With ActiveSheet
eingabe = InputBox("Bitte geben Sie den Suchbegriff ein !")
If Range("A1:A65535").EntireRow.Hidden = True Then
Range("A1:A65535").EntireRow.Hidden = False
Else
For zaehler1 = 1 To .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
If IsNumeric(Range("A" & zaehler1)) Then zelle = Str(Range("A" & zaehler1))
If Mid(Range("A" & zaehler1), 1, Len(eingabe)) <> eingabe And Mid(zelle, 1, Len(eingabe)) <> eingabe Then
Range("A" & zaehler1 & ":A" & zaehler1).EntireRow.Hidden = True
End If
Next zaehler1
End If
End With
End Sub
Antwort 2 von nighty
hi all :)
oh beschreibung :)
gruss nighty
zeilenfilter in wechselwirkung der zahlen wie text berücksichtigt auf dem aktiven sheet
automatische abtastung auf zeilenender
gesucht wird ausschliesslich in spalte a
der gesuchte begriff geht immer von der ersten pos einer zelle aus
gruss nighty
oh beschreibung :)
gruss nighty
zeilenfilter in wechselwirkung der zahlen wie text berücksichtigt auf dem aktiven sheet
automatische abtastung auf zeilenender
gesucht wird ausschliesslich in spalte a
der gesuchte begriff geht immer von der ersten pos einer zelle aus
gruss nighty