kyrillischen Text auslesen und im Code verwenden
25.06.2019 09:10:46
Dave
ich habe eine Tabelle, in die per Copy&Paste kyrillische Text eingefügt werden. Per Klick auf eine Schaltfläche will ich die Spalte nach dem aktuell gewähltem Feld filtern. Der Code funktioniert in einer anderen Tabelle problemlos.
Hier in der kyrillischen Datei aber nicht, weil ich beim Abfragen des Selection-Values nur eine Menge Fragezeichen "?" erhalte, für jedes kyrillische Zeichen eins. Weiterverarbeitung ist da natürlich unmöglich.
Ich vermute, ich muss dem irgendwie vorher "sagen", dass der Text eine andere Codierung hat, weiß aber nicht wie.
Hier vorsichtshalber noch der Code (obwohl der prinzipiell wie gesagt in Ordnung ist):
Private Sub Filter_an_Click()
Dim Filter As String, Filter_Spalte As Byte
With ActiveSheet
If Selection.Count > 1 Then
MsgBox "nur eine Zelle auswählen"
ElseIf Selection.Value = "" Then
MsgBox "Gewählte Zelle ist leer"
ElseIf Selection.Column 7 Then
MsgBox "Funktion nur für Spalten D bis G möglich"
Else
Filter = Selection.Value
Filter_Spalte = Selection.Column
If Not .AutoFilterMode Then .Range("$A$3:$N$2000").AutoFilter Field:=Filter_Spalte, _
Criteria1:=Filter
End If
End With
End Sub
Gruß
Dave