Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.06.2024 19:56:24
17.06.2024 19:39:46
Anzeige
Archiv - Navigation
1728to1732
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

nur zellen mit Inhalt kopieren und auflisten

nur zellen mit Inhalt kopieren und auflisten
20.12.2019 10:50:50
Flo
Hallo ihr Excelianer
und zwar steh ich irgend wie auf den Schlauch....
ich habe in meinem Arbeitsblatt "Eingabe" in den Bereich C175:C220 eine Formelstehen die entweder das
Ergebnis ""
oder ein Text der aus einer Verkettung entsteht ausgibt.
jetzt möchte ich gerne die Zellen mit Ergebnisse (also nur die Werte) OHNE die leeren Zellen (bzw."") in den Bereich C300 bis Cx mittels VBA kopieren.
ich komm da irgendwie nicht weiter, beziehungsweise weis ich nicht mal wie ich anfangen soll...
vielen Dank in vorraus
Flo

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nur zellen mit Inhalt kopieren und auflisten
20.12.2019 10:53:49
Hajo_Zi
Benutze Autofilter und Kopiere den sichtbarenb bereich, Bearbeiten, Suchen, Gehe zu, Inhalte, sichtbare Zellen.
Excel hat auch einen Makrorecorder.

AW: nur zellen mit Inhalt kopieren und auflisten
20.12.2019 11:01:53
Torsten
Hallo Flo,
ich denke, da wirds ne Schleife Tun, die alle Zellen durchgeht und nur kopiert, wenn was drin steht.
So:

Option Explicit
Sub kopieren()
Dim Zelle As Range, Bereich As Range
Dim Zeile As Long
Zeile = 300
Set Bereich = Sheets("Sheet1").Range("C175:C220")     'Tabellenname anpassen
For Each Zelle In Bereich
If Zelle  "" Then
Zelle.Copy
Sheets("Sheet1").Cells(Zeile, 3).PasteSpecial xlPasteValues   'Tabellenname anpassen
Application.CutCopyMode = False
Zeile = Zeile + 1
End If
Next Zelle
End Sub

Gruss Torsten
Anzeige
AW: nur zellen mit Inhalt kopieren und auflisten
20.12.2019 11:49:06
Flo
Danke Torsten deine wäre natürlich die beste Variante....
ich hab es jetzt ein wenig unkonventionell gelöst:

Sub ausgeben()
Range("RangeUF1").Copy
Range("RangeTextUF1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Range("RangeTextUF1").AutoFilter Field:=1, Criteria1:=""
End Sub
Gruß Flo
AW: nur zellen mit Inhalt kopieren und auflisten
20.12.2019 11:55:41
Torsten
Mit deiner Variante kopierts du ja alle und filterst dann die leeren raus. OK. Aber wenn du mit dem Filter arbeitest, waere es andersrum besser. Erst Filtern und dann nur die sichtbaren Zellen kopieren mit

Range("RangeUF1").SpecialCells(xlCellTypeVisible).Copy

Gruss Torsten
Anzeige
AW: nur zellen mit Inhalt kopieren und auflisten
20.12.2019 12:01:05
Flo
Habe deinen Code getestet.... der ist wirklich viel viel eleganter als meiner.
Danke nochmal!
Bitte bitte,
20.12.2019 12:02:10
Torsten

329 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige