Office: (Office 2013) Ausgeblendete Zeilen nicht kopieren Makro

Sven1234 · 8. Dezember 2019

Hallo,

Ich habe folgendes Makro in meine Tabelle eingefügt und das funktioniert soweit auch, ich würde aber gern dafür sorgen, dass ausgeblendete Zeilen nicht in die Übersicht kopiert werden. Wie mache ich das Ganze? Danke im Vorfeld für die Hilfe.

Beste Grüße

Sven

Code:

Option Explicit
Sub InÜbersichtübertragen()
Dim variable As String
variable = [A6]
With Sheets(variable).UsedRange
.AutoFilter 11, "nein", xlOr, "unklar"
.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
End With
Sheets("Übersicht").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Sheets(variable).UsedRange.AutoFilter
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Mase · 9. Dezember 2019

Hi Sven,

Suchfunktion liefert u.a. jenes:
https://www.ms-office-forum.net/foru...celltypvisible

Lasse Kreativität walten und kombiniere ...*wink.gif*

Sven1234 · 9. Dezember 2019

Hallo Marco,

ich muss ehrlich gestehen ich stehe ziemlich aufm Schlauch... oder es funktioniert nicht... *biggrin.gif*

Sicher, dass ich damit mein Problem lösen kann? Ich will ja wie gesagt nicht, dass meine ausgeblendeten Daten mit übertragen werden...

sorry bin nicht so fit darin, war schon froh, dass ich das geschafft hab...

Beste Grüße

Sven

Mase · 9. Februar 2021

von Sven1234

Hallo Marco,

ich muss ehrlich gestehen ich stehe ziemlich aufm Schlauch... oder es funktioniert nicht... *biggrin.gif*

Sicher, dass ich damit mein Problem lösen kann? Ich will ja wie gesagt nicht, dass meine ausgeblendeten Daten mit übertragen werden...

sorry bin nicht so fit darin, war schon froh, dass ich das geschafft hab...

Beste Grüße

Sven
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Versuch dich mal hierbei:
Code:

Sub InÜbersichtübertragen()
Dim variable As String
Dim rng As Range
variable = [A6] 'würde ich überdenken; setze Bezug auf das gewollte Worksheet; nicht das aktive Worksheet
'
With Worksheets(variable)
.UsedRange.AutoFilter 11, "nein", xlOr, "unklar"
Set rng = Intersect(.UsedRange, .UsedRange.Offset(1, 0), .UsedRange.SpecialCells(xlCellTypeVisible))
rng.Copy
End With
'
With Worksheets("Übersicht")
.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End With
'
Worksheets(variable).UsedRange.AutoFilter
Application.Goto Reference:=Worksheets(variable).Range("A1"), Scroll:=True
'
Set rng = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sven1234 · 10. Dezember 2019

Hallo Marco,

erstmal vielen Dank für die Unterstützung aber es werden nach wie vor die ausgeblendeten mit kopiert und ich komm auf keine Lösung... *frown.gif*

Mase · 10. Dezember 2019

Halte Ich für ein Gerücht, Sven *wink.gif*

Mach doch mal ne anonymisierte Kopie Deiner Mappe - inkl. Makro - und stell diese zum Download bereit, dann schauen wir da mal rein.

Sven1234 · 10. Dezember 2019

Hallo nochmal,

da ist das Gerät zwar größten teils ohne Beschriftung aber das sollte ja egal sein oder?

Ich habe dazu noch eine Frage, in den Zellen (T2:V5) ist eine Tabelle angegeben, ich würde die Formeln in der Tabelle gerne so angeben, dass manuell ausgeblendete Zeilen nicht mitgezählt werden ich habe das schon mit Teilergebnis versucht allerdings werden die ausgeblendeten Zeilen trotzdem mitgezählt.... woran liegt das die formel ist war richtig....

danke nochmal für die Unterstützung!!!!

Beste Grüße

Mase · 10. Dezember 2019

Ok, schau Dir an, wie Deine Liste vorbereitet sein muss, sodass es wie gewünscht funktioniert.

(Keine verbundenen Zellen oder sonstig unnötiger Schnickschnack)

Beispiel:
Bauteil B + parken

-> Benutze den Button

Wenns funktioniert,
dann darfst Du das zweite Arbeitsblatt exakt so vorbereiten.

Sven1234 · 10. Dezember 2019

Hallo Marco,

Danke für die tatkräftige Unterstützung, die Zeilen werden aber nach wie vor mitkopiert.... ich werd mir da was anderes einfallen lassen das ist mir zu blöd *biggrin.gif* Vielleicht ne Kontrollfläche oder eine weitere Bedingung ich kann mir nicht erklären warum das nicht geht....

Mit besten Grüßen

Sven

Mase · 10. Dezember 2019

Moin,

von welchen Zeilen redest du denn?

Office: (Office 2013) Ausgeblendete Zeilen nicht kopieren Makro

Ausgeblendete Zeilen nicht kopieren Makro

Ausgeblendete Zeilen nicht kopieren Makro

Ausgeblendete Zeilen nicht kopieren Makro

Ausgeblendete Zeilen nicht kopieren Makro

Ausgeblendete Zeilen nicht kopieren Makro - Similar Threads - Ausgeblendete Zeilen kopieren

ersten 1200 Zeilen einer großen Datei sind ausgeblendet

ausgeblendete Zeilen nicht berücksichtigen

[VBA] Letzte zelle (Ignorieren von Filter und ausgeblendete Zeilen)

Ausgeblendete Werte in berechnetem Feld berücksichtigen

Ausgeblendete Zeilen für Druck einblenden

Ausgeblendete Zeilen

Ausgeblendete Zeilen NICHT mit kopieren!!! (Excel 2010)