Untereinander einsortieren

Bild

Betrifft: Untereinander einsortieren
von: Thomas
Geschrieben am: 21.02.2005 21:52:50
Hallo
Hab´mal wieder was kniffliges (vermute ich wenigstens)
Zwei Zellhaufen sollen markiert und kopiert werden. Geht z.B. so:
Range("C6:C10,E6:E10").Select
Selection.Copy
(Also in verschiedenen Spalten)
Danach sollen sich diese beiden Haufen in "einer" Spalte untereinander
einsortieren.
Wie nennt sich sowas, das ich in der Recherche fündig werde, oder hat jemand
einen Vorschlag dazu.
Beste Dank schon mal
Gruß Thomas

Bild

Betrifft: Bereiche in eine Spalte untereinander kopieren
von: Beate Schmitz
Geschrieben am: 21.02.2005 23:52:38
Hallo Thomas,
wie schon im Betreff ersichtlich: "Zellhaufen" = "Bereiche".
Ich füge mal eine Beispieldatei bei, in der ich das eingebaut habe:
https://www.herber.de/bbs/user/18484.xls
Makrolösung, Makrostart über Button, fügt die Bereiche in Spalte A untereinander, Makro liegt in Modul 1:

Sub Bereiche_in_SpalteA_kopieren()
Range("C6:C10").Copy Range("A65536").End(xlUp).Offset(1, 0)
Range("E6:E10").Copy Range("A65536").End(xlUp).Offset(1, 0)
End Sub

Gruß,
Beate
Bild

Betrifft: AW: Untereinander einsortieren
von: Josef Ehrensberger
Geschrieben am: 21.02.2005 23:54:12
Hallo Thomas!
Probier das mal aus.


Option Explicit
Option Base 1
Sub Uebertrag()
Dim eingabe As Worksheet, DB As Worksheet
Dim lastRow As Long, i As Integer
Dim arr() As Variant
Dim rng As Range
Dim zellen As String
'hier alle Zellen des Eingabebereiches angeben
zellen = "B10,D11,E15,F4:F6,I3"
Set eingabe = Sheets("Eingabe")  'Tabellenname anpassen!
Set DB = Sheets("Archiv")            'Tabellenname anpassen!

'ermitteln der ersten leeren Zeile in "DB"
lastRow = IIf(DB.Range("A65536") <> "", _
   65536, DB.Range(
"A65536").End(xlUp).Row) + 1
      
   
'Array mit Daten füllen
   With eingabe
      
For Each rng In .Range(zellen)
         i = i + 1
      
ReDim Preserve arr(1, i)
         arr(1, i) = rng.Value
      
Next
   
End With
   
   
'Array an "DB" übergeben
   With DB
      .Range(.Cells(lastRow, 1), .Cells(lastRow, 
UBound(arr, 2))) = arr
   
End With
End Sub 

     Code eingefügt mit Syntaxhighlighter 3.0


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Untereinander einsortieren"