Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Gefilterte Zeilen in Werte kopieren


Betrifft: Gefilterte Zeilen in Werte kopieren von: lutz
Geschrieben am: 11.04.2017 16:41:19

Liebe Excel-Spezialisten,

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

  

Betrifft: AW: Gefilterte Zeilen in Werte kopieren von: Hajo_Zi
Geschrieben am: 11.04.2017 16:44:39

Hallo Lutz,

warum geht das nicht?
Kopiere den sichtbaren Bereich. Gehe zu, Inhalte.
Das kann man auch mit dem Makrorecorder aufzeichnen.


GrußformelHomepage


  

Betrifft: AW: Gefilterte Zeilen in Werte kopieren von: lutz
Geschrieben am: 11.04.2017 17:21:36

Sorry Hajo - ich dachte, ich hätte Dir geantwortet; hatte das nicht aus der Mail sondern direkt aus dem Browser gemacht; tut mir leid.
Gruß Lutz



Hallo Hajo,

sorry bei mir sagt er dann (wenn ich die Liste per Autofilter gefiltert habe)

Bei einer Markierung von nicht angrenzenden Zellen ist die Ausführung dieses Befehlts nicht möglich.

Mir sind leider auch deine Schritte nicht ganz klar:
Kopiere den sichtbaren Bereich (nur Strg+C oder über den Button/Befehl sichtbare Zellen markieren?)
Dann gehe zu (F5-Taste), dann in dem Fenster auf Inhalte - und dann geht ein weiteres Fenster auf - und dann?

Ich will ja die markierten Zellen von einer Formel in den Wert umwandeln den die Formel ergibt die jetzt in der Zelle szteht.

Viele Grüße Lutz


  

Betrifft: AW: Gefilterte Zeilen in Werte kopieren von: lutz
Geschrieben am: 11.04.2017 17:21:37

Sorry Hajo - ich dachte, ich hätte Dir geantwortet; hatte das nicht aus der Mail sondern direkt aus dem Browser gemacht; tut mir leid.
Gruß Lutz



Hallo Hajo,

sorry bei mir sagt er dann (wenn ich die Liste per Autofilter gefiltert habe)

Bei einer Markierung von nicht angrenzenden Zellen ist die Ausführung dieses Befehlts nicht möglich.

Mir sind leider auch deine Schritte nicht ganz klar:
Kopiere den sichtbaren Bereich (nur Strg+C oder über den Button/Befehl sichtbare Zellen markieren?)
Dann gehe zu (F5-Taste), dann in dem Fenster auf Inhalte - und dann geht ein weiteres Fenster auf - und dann?

Ich will ja die markierten Zellen von einer Formel in den Wert umwandeln den die Formel ergibt die jetzt in der Zelle szteht.

Viele Grüße Lutz


  

Betrifft: AW: Gefilterte Zeilen in Werte kopieren von: Peter Kloßek
Geschrieben am: 17.04.2017 16:27:49

Hallo Lutz,

anstelle von Autofilter solltest Du den Spezialfilter verwenden. Dazu muss zunächst der Datenblock mit den Formeln als reiner Werteblock (am besten in einer eigenen Tabelle) gespeichert werden. Dieser Datenblock stellt den "Listenbereich" dar. Jede Spalte in diesem Datenblock benötigt eine Überschrift. In einer weiteren (bisher freien) Tabelle richtest Du den "Kriterienbereich" mit genau denselben Überschriften ein. Unterhalb der Überschriften kann man dann die gewünschten Filterkriterien eintragen.

Es empfiehlt sich, zunächst das Ganze manuell - mit Makroaufzeichnung - durchzuführen. Mit Excel 2007: "Daten" - Gruppe "Sortieren und Filtern" - "Erweitert". Aktion "an eine andere Stelle kopieren" auswählen. Ausführliche Hilfe bekommst Du, wenn Du in dem Kasten "Spezialfilter" auf das "?" klickst. Mit einer höheren Excel-Version dürfte es ähnlich oder genauso funktionieren.

Unterhalb des Kriterienbereiches ist dann Platz für den Ausgabebereich.

Mit freundlichem Gruß
Peter Kloßek


  

Betrifft: AW: Gefilterte Zeilen in Werte kopieren von: Lutz
Geschrieben am: 17.04.2017 22:45:36

Hallo Peter,

vielen Dank - das funktioniert.

Ich wünsche Dir noch einen schönen Abend.


Viele Grüße Lutz


  

Betrifft: AW: Gefilterte Zeilen in Werte kopieren von: lutz
Geschrieben am: 11.04.2017 17:01:16

Hallo Hajo,

sorry bei mir sagt er dann (wenn ich die Liste per Autofilter gefiltert habe)

Bei einer Markierung von nicht angrenzenden Zellen ist die Ausführung dieses Befehlts nicht möglich.

Mir sind leider auch deine Schritte nicht ganz klar:
Kopiere den sichtbaren Bereich (nur Strg+C oder über den Button/Befehl sichtbare Zellen markieren?)
Dann gehe zu (F5-Taste), dann in dem Fenster auf Inhalte - und dann geht ein weiteres Fenster auf - und dann?

Ich will ja die markierten Zellen von einer Formel in den Wert umwandeln den die Formel ergibt die jetzt in der Zelle szteht.

Viele Grüße Lutz


  

Betrifft: AW: Gefilterte Zeilen in Werte kopieren von: Hajo_Zi
Geschrieben am: 11.04.2017 17:13:04

Meine Antwort hat Dir also nicht gefallen, vielleicht Antwortet Dir der auf den Du geantwortet hast.
Lesen muss man schon können.

Gruß Hajo


Beiträge aus den Excel-Beispielen zum Thema "Gefilterte Zeilen in Werte kopieren"