Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
828to832
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
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA-Bereich durchsuchen-Zellen kopieren

VBA-Bereich durchsuchen-Zellen kopieren
18.12.2006 16:05:02
Joppel
Hi VBA Pro's,
Ich benoetige einen Code mit dem ich einen benannten Bereich "DATA" (200 Zeilen, 13 Spalten) nach zellen durchsuchen kann die nicht leer sind. Wenn dass der Fall ist, sollen die betreffenden Zellen kopiert werden und in ein Tabellenblatt ("OUTPUT")untereinander als Werte eingefuegt werden (Zeile A;2).
Ich danke Euch schon mal wie verrueckt!
Soeren

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-Bereich durchsuchen-Zellen kopieren
18.12.2006 16:29:38
Fritz
Moin Sören,
versuchs mal hiermit

Sub xx()
Dim I&, J&, X&
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet
Set Ws1 = Sheets(1)
Set Ws2 = Sheets(2)
X = 2
For I = 2 To 200    'Zeilen
For J = 10 To 25 'Spalten
If Ws1.Cells(I, J) <> "" Then
Ws2.Cells(X, 1) = Ws1.Cells(I, J)
X = X + 1
End If
Next
Next
End Sub

Anzeige

314 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige