Herbers Excel-Forum - das Archiv

VBA-Bereich durchsuchen-Zellen kopieren

Bild

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
Bild

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

 Bild
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