Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Auflistung in VBA

Auflistung in VBA
18.04.2007 15:32:27
Adrian1977
Hallo zusammen,
ich möchte alle Zahlen aus einem Bereich in einer Liste auflisten.
Bsp: In der Range("A1:e10") befindet sich in der Zelle "A3" der Wert 5, in Zelle "c1" der Wert 1 und in Zelle "e9" der Wert 8.
Auf einem anderen Tabellenblatt sollen nun die Werte 5, 1 und 8 in Spalte A nacheinander aufgelistet werden.
Kann mir jemand weiterhelfen?
Vielen Dank!
Grüße
Adrian

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auflistung in VBA
18.04.2007 15:47:00
Peter
Hallo Adrian,
so könnte es gehen:
Option Explicit

Public Sub ZahlenFinden()
Dim Bereich  As Range
Dim Zelle    As Range
Dim lZeile   As Long
Set Bereich = Range("A1:E10")
With Worksheets("Tabelle1")
For Each Zelle In Bereich
If Not Zelle.Value = "" Then
If IsNumeric(Zelle.Value) Then
lZeile = lZeile + 1
Worksheets("Tabelle2").Range("A" & lZeile).Value = Zelle.Value
End If
End If
Next Zelle
End With
End Sub


Gruß Peter

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige