Herbers Excel/VBA-Archiv

VBA;Alle Zellen in Spalte A untereinander | Herbers Excel-Forum

• VBA;Alle Zellen in Spalte A untereinander von Günter vom 09.12.2009 14:59:09
• AW: VBA;Alle Zellen in Spalte A untereinander - von welga am 09.12.2009 15:14:12
  • AW: VBA;Alle Zellen in Spalte A untereinander - von Günter am 09.12.2009 16:53:34
    • AW: VBA;Alle Zellen in Spalte A untereinander - von Günter am 10.12.2009 07:10:12
      • AW: VBA;Alle Zellen in Spalte A untereinander - von welga am 10.12.2009 07:27:37
        • AW: VBA;Alle Zellen in Spalte A untereinander - von Günter am 10.12.2009 11:24:24
          • AW: VBA;Alle Zellen in Spalte A untereinander - von welga am 10.12.2009 13:31:27
            • AW: VBA;Alle Zellen in Spalte A untereinander - von Günter am 10.12.2009 13:51:42
• AW: VBA;Alle Zellen in Spalte A untereinander - von welga am 12.12.2009 18:03:30

Betrifft: VBA;Alle Zellen in Spalte A untereinander von: Günter
Geschrieben am: 09.12.2009 14:59:09

Schönen guten Tag,

habe schon einiges recherchiert. Aber folgendes finde ich nicht:

Ein Makro soll mir alle vorhandenen Zellen (ab Spalte B)
in Spalte A kopieren. Alles müßte in Spalte A untereinander stehen.

Vielen Dank
Gruß
Günter

Betrifft: AW: VBA;Alle Zellen in Spalte A untereinander von: welga
Geschrieben am: 09.12.2009 15:14:12

Hallo,

vielleicht hilft dir das:

Dim i As Long
Dim a As Long
With ThisWorkbook.Sheets(1)
a = .Cells(1, 256).End(xlToLeft).Columns
For i = 2 To a
.Cells(i, 1).Value = .Cells(1, i).Value
Application.Cells(1, i).ClearContents
Next i
End With


Gruß
welga

Betrifft: AW: VBA;Alle Zellen in Spalte A untereinander von: Günter
Geschrieben am: 09.12.2009 16:53:34

Vielen Dank welga.



Probiere...



Schönen Gruß

günter

Betrifft: AW: VBA;Alle Zellen in Spalte A untereinander von: Günter
Geschrieben am: 10.12.2009 07:10:12

Hallo welga,

beim Test passiert überhaupt nichts.
Habe eine "sub" draus gemacht, aber ohne Erfolg.

Sub test()
Dim i As Long
Dim a As Long
With ThisWorkbook.Sheets(1)
a = .Cells(1, 256).End(xlToLeft).Columns
For i = 2 To a
.Cells(i, 1).Value = .Cells(1, i).Value
Application.Cells(1, i).ClearContents
Next i
End With
End Sub

Gruß

Günter

Betrifft: AW: VBA;Alle Zellen in Spalte A untereinander von: welga
Geschrieben am: 10.12.2009 07:27:37

Hi Günter,

bei mir funkt es . Hier mal eine Beispieldatei. Oder hatte ich dich falsch verstanden?

https://www.herber.de/bbs/user/66470.xls

Betrifft: AW: VBA;Alle Zellen in Spalte A untereinander von: Günter
Geschrieben am: 10.12.2009 11:24:24

Hallo welga,

danke für die Rückmeldung.

Funtioniert jetzt bei mir insofern, dass eine Zeile untereinander
geschrieben wird.

Mein Problem ist, dass alle vorhandenen Zellwerte (egal
wo sie stehen) untereinander in Spalte A geschrieben
werden sollten.

Hier eine Beispieldatei:
https://www.herber.de/bbs/user/66479.xls

Schönen Gruß

Betrifft: AW: VBA;Alle Zellen in Spalte A untereinander von: welga
Geschrieben am: 10.12.2009 13:31:27

Hallo,

alles klar. Dann versuch mal deisen Code:

Sub test()
Dim i As Long
Dim a As Long
Dim e As Integer
Dim ii As Integer
Dim iii As Integer

iii = 0
With ThisWorkbook.Sheets(1)
e = .Cells.Find(What:="*", After:=Range("A1"), _
            SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

For ii = 1 To e

a = .Cells(ii, Columns.Count).End(xlToLeft).Column
For i = 2 To a
If Cells(ii, i).Value <> "" Then
iii = iii + 1
.Cells(iii, 1).Value = .Cells(ii, i).Value

Application.Cells(ii, i).ClearContents
End If
Next i
Next ii
End With
End Sub

Gruß
welga

Betrifft: AW: VBA;Alle Zellen in Spalte A untereinander von: Günter
Geschrieben am: 10.12.2009 13:51:42

Hallo welga,
folgendes passiert beim Ablauf:

Sub Marken_untereinander()
Dim i As Long
Dim a As Long
Dim e As Integer
Dim ii As Integer
Dim iii As Integer

iii = 0
With ThisWorkbook.Sheets(1)
e = .Cells.Find(What:="*", After:=Range("A1"), _
            SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

For ii = 1 To e

a = .Cells(ii, Columns.Count).End(xlToLeft).Column
For i = 2 To a
If Cells(ii, i).Value <> "" Then
iii = iii + 1
.Cells(iii, 1).Value = .Cells(ii, i).Value

Application.Cells(ii, i).ClearContents
End If
Next i
Next ii
End With
End Sub

...bekommt Fehlermeldung bei folgender Zeile mit Laufzeitfehler '91! stehen:

e = .Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

Gruß
Günter

Betrifft: AW: VBA;Alle Zellen in Spalte A untereinander von: welga
Geschrieben am: 12.12.2009 18:03:30

Hallo Günter,

probier mal:

Sub Marken_untereinander()
Dim i As Long
Dim a As Long
Dim e As Integer
Dim ii As Integer
Dim iii As Integer

iii = 0
With ThisWorkbook.Sheets(1)
.UsedRange.Select
e = Selection.Cells.SpecialCells(xlLastCell).Row
For ii = 1 To e

a = .Cells(ii, Columns.Count).End(xlToLeft).Column
For i = 2 To a
If Cells(ii, i).Value <> "" Then
iii = iii + 1
.Cells(iii, 1).Value = .Cells(ii, i).Value

Application.Cells(ii, i).ClearContents
End If
Next i
Next ii
End With
End Sub

Gruß
welga

Beiträge aus den Excel-Beispielen zum Thema "VBA;Alle Zellen in Spalte A untereinander"