Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 13:54:06
Multiplikation
16.04.2024 12:41:11
Vielleicht Onur ? Leider werden nicht alle Monate
16.04.2024 12:08:33
Zelle/Spalte bestimmten Wert in Kopfzeile zuordnen
16.04.2024 12:01:17
Dynamische Liste generiert aus mehreren Vorgagen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
572to576
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
572to576
572to576
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Untereinander einsortieren

Untereinander einsortieren
21.02.2005 21:52:50
Thomas
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Bereiche in eine Spalte untereinander kopieren
Beate
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
AW: Untereinander einsortieren
21.02.2005 23:54:12
Josef
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 


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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige