Von |
mgeschke |
eMail |
|
Am |
04. März 2008 um 14:42:51 |
Frage |
Hallo VBA Experten,
ich habe folgendes Problem. Mit diesem Makro setze ich in einer Tabelle mit Autofilter, den Filter auf den in der Zwischenablage befindlichen Wert.
Das Makro funktioniert auch bestens wenn der Inhalt der Zwischenablage z.B. aus dem Editor kopiert wurde.
Wird allerdings eine excel zelle in die Zwischenablage kopiert funktioniert es nicht. Werden da eventuell nicht sichtbare Steuerzeichen kopiert? Wie kann ich nur den puren Text aus der Zelle kopieren?
!!! Benötigt einen Verweis auf die Microsoft Forms 2.0 Objektlibrary !!!
Sub Filter_Active_Zelle() Dim SpNr As Integer Dim Such As String Dim oData As New DataObject oData.GetFromClipboard AutoFilterMode = False SpNr = ActiveCell.Column Such = CStr("=*" & oData.GetText(1) & "*") Selection.AutoFilter Field:=SpNr, Criteria1:=Such, Operator:=xlAnd
End Sub |
|