Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1408to1412
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

Zellen auslesen und wegschreiben

Zellen auslesen und wegschreiben
09.02.2015 12:42:52
ch
Hallo!
Ich habe ein nicht allzu schweres Problem.
Ich möchte mit VBA in einem Tabellenblatt jede gefüllte Zelle auslesen und auf einem zweiten Tabellenblatt diese dann in einer Spalte untereinander wegschreiben lassen.
Die Zellen sind jeweils mit einem Wort befüllt oder halt eben leer.
Hat jemand eine Idee für mich?

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen auslesen und wegschreiben
09.02.2015 13:09:02
Daniel
HI
wenns nicht auf Geschwindigkeit und die Reihenfolge ankommt:
dim Zelle as Range
for Each Zelle in Sheets("Tabelle1").Usedrange.SpecialCells(xlcelltypeconstants, 3)
Sheets("Tabelle2").Cells(Rows.count, 1).End(xlup).Offset(1, 0).Value = Zelle.Value
Next
oder so:
dim Spalte as Range
for Each Spalte In Sheets("Tabelle1").UsedRange.columns
Spalte.copy Destination:=Sheets("Tabelle2").Cells(Rows.count, 1).End(xlup).Offset(1, 0)
Next
Sheets("Tabelle2").Columns(1).SpecialCells(xlcelltypeblanks).Delete Shift:=xlup
Gruß Daniel

Anzeige
AW: Zellen auslesen und wegschreiben
09.02.2015 14:12:11
ch
Danke, genau das wars!
:o)

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige