Gefilterte Zeilen in Werte kopieren
11.04.2017 16:41:19
lutz
ich komme leider trotz diverser Tests nicht weiter:(
Ich möchte in einer Liste per Autofilter Daten filtern und diese gefilterten Zeilen dann in Werte kopieren.
Im standard geht das leider nicht und ich habe mir ein Makro mit Internetsuche gebastelt von dem ich der Meinung war/bin, dass es letzte Woche auch funktioniert hat.
Das ist das Makro:
Sub Daten_in_gefilterte_Zeilen_einfügen()
Dim SPL1 As Variant
Dim SPL2 As Variant
Dim lngZ As Long
Dim lngZZ As Long
Dim intI As Integer
Dim intS As Integer
Dim strText As String
Dim objZA As New DataObject
'On Error GoTo NotText
objZA.GetFromClipboard
strText = objZA.GetText
If Err.Number 0 Then
MsgBox "Es wurden keine Daten kopiert!"
Exit Sub
End If
lngZZ = ActiveCell.Row
intS = ActiveCell.Column
SPL1 = Split(strText, Chr(10))
For lngZ = 0 To UBound(SPL1) - 1
For lngZZ = lngZZ To 65536
If Cells(lngZZ, intS).EntireRow.Hidden = False Then
SPL2 = Split(SPL1(lngZ), Chr(9))
For intI = 0 To UBound(SPL2)
Cells(lngZZ, intS + intI).Value = LTrim(RTrim(WorksheetFunction.Proper(Replace(SPL2(intI), Chr( _
13), ""))))
Next
lngZZ = lngZZ + 1
Exit For
End If
Next
Next
NotText:
'don't want anything to happen.
End Sub
Weiß jemand Rat waurm das nicht (mehr) funktioniert?
Der Ablauf sollte so sein, dass man die erste Zeile die in Werte umgeformt werden soll markiert, auf bearbeiten kopieren geht und dann den Gesamtbereich selektiert der umngewandelt werden soll.
Dann auf Makro ausführen gehen und alle markierten Zeilen sind in Werte umgewandelt.
Vielen Dank für Eure Hilfe
Viele Grüße Lutz
Anzeige