Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
824to828
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
824to828
824to828
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte aus Spalten untereinander setzen

Werte aus Spalten untereinander setzen
07.12.2006 10:11:16
Anton
Hallo Leute,
ich habe verschiedene Datensätze in mehreren Spalten stehen.
Die sollen jetzt alle untereinander in Spalte A stehen.
Mein Problem: es gibt auch leere Zellen zwischendrin.
Hier ist mein Gedankengang wie ich das gestalten würde:
-letzte Spalte suchen,
-zeile 1 bis ende markieren
-markierung ausschneiden
-letzte Zelle in Spalte A suchen
-markierung unter dieser Zelle einfügen
-vorletzte Spalte suchen
.....
bis Spalte B abgearbeitet ist .
(Ich finde das sieht nach einem schrecklich langen Code aus...)
Vielleicht geht es aber auch anders.
Wer von Euch kann mir bitte weiterhelfen?
Danke.
Servus,
Anton

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte aus Spalten untereinander setzen
07.12.2006 10:54:59
IngGi
Hallo Anton,
na ja, ganz so lang ist der Code nun doch nicht. Es gibt ja Gott sei Dank Schleifen ;-)
Der Code setzt aber voraus, dass die oberste Zelle der letzten Spalte nicht leer ist!

Sub test()
Dim sp As Integer
For sp = Range("IV1").End(xlToLeft).Column To 2 Step -1
   If Application.WorksheetFunction.CountA(Range(Cells(1, sp), _
      Cells(65536, sp))) > 0 Then
      Range(Cells(1, sp), Cells(Cells(65536, sp).End(xlUp).Row, sp)).Copy _
         Destination:=Range("A65536").End(xlUp).Offset(1, 0)
   End If
Next 'sp
End Sub

Gruß Ingolf
Anzeige
AW: Werte aus Spalten untereinander setzen
07.12.2006 11:33:20
Anton
Hallo Ingolf,
vielen Dank für Deine Zeilen.
Es ist aber leider wahr, dass in der ersten Zeile oft kein Eintrag in den letzten Spalten ist.
Je weiter hinten desto weniger Einträge sind da.
Kann mann vielleicht ein "LetzteSpalte = ActiveSheet.UsedRange.columns.Count"
einsetzen?
Ich benutze "ZL = ActiveSheet.UsedRange.Rows.Count" für Zeilen.
Ich freue mich auf Deine Antwort.
Servus,
Anton
- vielen Dank -
07.12.2006 14:10:38
Anton
Hallo Ingolf,
ich habe meine Vermutung getestet: Funzt!
Deine Vorlage war weltklasse!

Sub ZellenUntereinander()
Dim iCol1 As Integer
Dim firstCol As Byte
Dim FirstRow As Integer
Dim LastRow As Long
Dim LastCol As Long
Dim iRow As Long
'Application.ScreenUpdating = False                  'ausschalten des "Mitguckens"
firstCol = 2                                      'setzen der Startwerte
iRow = 1
LastCol = ActiveSheet.UsedRange.Columns.Count
LastRow = ActiveSheet.UsedRange.Rows.Count
For iCol1 = firstCol To LastCol
If Application.WorksheetFunction.CountA(Range(Cells(1, iCol1), _
Cells(65536, iCol1))) > 0 Then
Range(Cells(1, iCol1), Cells(Cells(65536, iCol1).End(xlUp).Row, iCol1)).Copy _
Destination:=Range("A65536").End(xlUp).Offset(1, 0)
End If
Next iCol1
'Application.ScreenUpdating = True
End Sub

Jetzt müssen nur noch die nicht benötigten Spalten weg...
Servus,
Anton
Anzeige

301 Forumthreads zu ähnlichen Themen

Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Anzeige
Zeilenmerkmale in Spalten umwandeln
MG_Learning

Hallo zusammen!
Ich habe keine Ahnung, wie ich aus folgender Tabellenstruktur: Beispiel:
A B C
London 20 Kinos
London 50 Gaststätten
London 10 Einkaufscentren
Paris 18...
17.08.2008 18:31:50
Thread-ID: 1002449
4 Beiträge
Jede 2te Zeile in eine Spalte kopieren
Eddie

Guten Morgen @ all
Ich habe mal wieder ein kleines problem :-)
Ich würde gerne Daten, die alle in einer Spalte sind auteilen.... dazu soll entweder der 1,3,5,7.... oder 2,4,6,8 ... Wert immer in die danebenliegende Spalte kopiert werden
IST:
Hallo
Hello
Gut
Good
...
20.08.2008 07:52:00
Thread-ID: 1003065
6 Beiträge
Anzeige
Letzte gefüllte Zeile in einem Feld anzeigen
Hendrik

Hallo zusammen,
bei einer Exceltabelle, die aus ca. 40 freien Zeilen besteht, die sich über die Zeit füllen, soll in Zeile 41 immer die Zahl der letzten gefüllten Zeile angezeigt werden.
Ist das möglich?
Danke im voraus!
Hendrik
28.08.2008 18:36:42
Thread-ID: 1005564
4 Beiträge
nur eine der Spalten darf gefüllt sein
Simon

Hallo,
ich habe glaube ich eine einfache Frage, komme aber nicht drauf Sie selbst zu lösen:
ich habe 4 Spalten: ja; nein; mehr Menge; weniger Menge
dahinter möchte ich eine 5te Spalte Kontrolle setzen. In dieser soll eine Fehlermeldung erscheinen falls mehr als eine Spalte ausgefüll...
01.09.2008 16:15:00
Thread-ID: 1006502
8 Beiträge
Spalten in Zeilen anhängen
Jörg

Hallo zusammen,
in einer Tabelle mit ~1000 Artikeln in Spalte A stehen jeweils in den Spalten B-M die 12 zum Artikel gehörenden Monatswerte des Verbrauchs.
Ich brauche diese Daten jetzt so angeordnet, dass weiterhin alle Artikel in Spalte A stehen, jedoch die einzelnen Monatswerte unter...
01.09.2008 18:03:42
Thread-ID: 1006570
11 Beiträge
Zeilenhöhe und Spaltenbreite in cm - Makro anlegen
Sandra

Wie lege ich ein Makro an - für oben genannte Funktion?
DANKE!!!
02.09.2008 13:53:00
Thread-ID: 1006781
9 Beiträge
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 14:57:58
Thread-ID: 1006808
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
3
3
5
2
3
7
10
8
8
1
3
3
1
1
2
9
2
2
2
4
4
4
2
5