VBA-Bereich durchsuchen-Zellen kopieren

• VBA-Bereich durchsuchen-Zellen kopieren von Joppel vom 18.12.2006 16:05:02
• AW: VBA-Bereich durchsuchen-Zellen kopieren - von Fritz Hellbach am 18.12.2006 16:29:38

Betrifft: VBA-Bereich durchsuchen-Zellen kopieren
von: Joppel

Geschrieben am: 18.12.2006 16:05:02
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

Betrifft: AW: VBA-Bereich durchsuchen-Zellen kopieren
von: Fritz Hellbach

Geschrieben am: 18.12.2006 16:29:38
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

Excel-Beispiele zum Thema "VBA-Bereich durchsuchen-Zellen kopieren"
Blätter in andere Arbeitsmappen kopieren	Module von Mappe zu Mappe kopieren
Arbeitsblatt 40 mal kopieren	Schriftgröße beim Kopieren verdoppeln
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen	Tabellencode nach Kopieren des Blattes löschen
Arbeitsmappe blitzschnell kopieren	VBE-Namen der Blattmodule beim Kopieren festlegen
Blattinhalt von einer zur anderen Arbeitsmappe kopieren	Formel bis zur letzten Zeile der Nebenspalte kopieren