Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Untereinander einsortieren

Forumthread: 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
Anzeige

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
Anzeige
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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige