Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1728to1732
1728to1732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
Spaltenwerte ausgewählter Tabellen kopieren
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Zur weiteren Verwendung möchte ich nur die Ergebnisse der markierten Tabellenblätter in eine neu...
07.09.2008 08:42:00
Thread-ID: 1007926
2 Beiträge
aus kompletter Mappe NUR WERTE kopieren
Lauren

Hallo zusammen,
das ist wohl etwas simples aber ich bin nicht dahintegekommen.
Ich will eine Kopie einer Excel-Mappe mit ca. 80 Tabellenblättern erstellen aber es sollen NUR DIE WERTE kopiert werden also ohne Formeln usw. nur die Werte.
Dann in allen Tabellenblättern in der Kopierte...
17.09.2008 11:04:00
Thread-ID: 1010287
5 Beiträge
Anzeige
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Werte aus einer anderen xls-File kopieren
Horst

Hallo zusammen,
folgendes Problem stellt sich mir:
Ich will aus einer anderen Mappe mehrere Zeilen und Zellen kopieren. Je nachdem welche Mappe der Benutzer haben will, wird diese geöffnet und die gewünschten Daten kopiert.
Hier mein Ansatz:
Code:
Sub Kopieren()
Di...
08.10.2008 10:43:00
Thread-ID: 1014931
2 Beiträge
Minus-Zeit als Ergebnis einer Formel
Rico

Hallo liebe Ex(cel)perten
Ich kommen langsam aber stetig voran und ich entschuldige mich jetzt schon da ich weiss, dass diese Probleme viel besprochen werden in diesem genialen Forum aber ich hab leider auf mein Problem keine Lösung gefunden in der Recherche.
Gemäss Beispielmappe: https...
09.10.2008 11:31:11
Thread-ID: 1015298
3 Beiträge
Formel ganz ausblenden wenn Werte fehlen !?
nathan

Einen schönen Nachmittag,
kann ich ein Ergebnis in einer Formel solange ausblenden lassen, bis die benötigten Werte eingegeben wurden?
Beispiel:
E3 = 5
E4 = 7
E5 = (E3+E4)
Angezeigt wird: 12
E3 = 5
E4=
E5 = (E3+E4)
Nichts wird angezeigt.
oder
"We...
09.10.2008 15:18:01
Thread-ID: 1015360
2 Beiträge
in Ergebnis einer Formel Text mit ausgeben
Walter

Nochmals Hallo,
leider die Lösung vergessen, wie man in einer Berechnungsformel, nen fest fixierten Text ausgeben kann.
Beispielergebnis: 12 Bananen (12 ist errechnet, Bananen ist der feste Text.
War, glaube ich, ganz einfach :-(((
Danke + Gruß
Walter
23.10.2008 23:15:29
Thread-ID: 1018831
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
4
1
4
2
5
1
2
1
6
6
2
17
6
6
6
6
2
3
5
6
7
2
4
2