Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.04.2024 01:34:12
Userform aus ListBox Zeile in Tabelle farbig markieren
27.04.2024 20:04:34
Excel in Formen z.b Rechteck, eine Tabelle einfügen?
27.04.2024 19:23:05
Passwortabfrage für verschiedene tabellenblätter
27.04.2024 16:48:06
Formel gibt Falsch aus und ich weiß nicht warum - VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1744to1748
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
1744to1748
1744to1748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten von Zellen in eine Spalte

Daten von Zellen in eine Spalte
19.03.2020 07:54:40
Zellen
Hallo,
ich möchte gerne Daten von Zellen aus mehreren Spalten (Anzahl der Spalten variabel) in einer Liste (neues Registerblatt), somit in einer Spalte untereinander schreiben.
Beispiel:
Tabelle 1
Spalte A: ArtNr
Spalte B: Kategorie 1
Spalte C: Kategorie 2
Spalte D: Kategorie 3 usw. (Die Anzahl der Kategorien ist immer variabel)
Das Ergebnis sollte dann so aussehen
Tabelle 2
$A$1 Artikel 1 $B$1 Kategorie 1
$A$2 Artikel 1 $B$2 Kategorie 2
$A$3 Artikel 1 $B$3 Kategorie 3
$A$4 Artikel 2 $B$4 Kategorie 1
$A$5 Artikel 2 $B$5 Kategorie 2
$A$6 Artikel 3 $B$6 Kategorie 1
$A$7 Artikel 3 $B$7 Kategorie 2
$A$8 Artikel 3 $B$8 Kategorie 3
$A$9 Artikel 3 $B$9 Kategorie 4
Bereits vielen Dank im Vorraus für Eure Hilfe... Alex

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten von Zellen in eine Spalte
19.03.2020 08:19:36
Zellen
Hi
mal so auf die schnelle (aber nicht unbedingt der schnellste Code):
dim z as Long
dim s as Long
dim z2 as Long
with Sheets("Tabelle1").cells(1, 1).currentregion
for z = 1 to .rows.count
for s = 2 to .columns.count
if .cells(z, s)  "" then
z2 = z2 + 1
Sheets("Tabelle2").cells(z2, 1) = .cells(z, 1)
Sheets("Tabelle2").Cells(z2, 2) = .cells(z, s)
end if
next
next
end with
Gruß Daniel
AW: Daten von Zellen in eine Spalte
19.03.2020 08:32:03
Zellen
Hi Alex,
vielleicht so:
Sub Transponieren()
Dim lngZeile As Long
Dim intAnzahl As Integer
Dim lngZiel As Long
Dim arrWerte
lngZiel = 1
With Worksheets("Tabelle1")
For lngZeile = 1 To IIf(IsEmpty(.Cells(Rows.Count, 1)), _
.Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
intAnzahl = IIf(IsEmpty(.Cells(lngZeile, Columns.Count)), _
.Cells(lngZeile, Columns.Count).End(xlToLeft).Column, Columns.Count)
Worksheets("Tabelle2").Cells(lngZiel, 1).Resize(intAnzahl - 1, 1) = Cells(lngZeile,  _
1)
arrWerte = Application.Transpose(Range(Cells(lngZeile, 2), Cells(lngZeile, 1 +  _
intAnzahl)))
Worksheets("Tabelle2").Cells(lngZiel, 2).Resize(intAnzahl, 2) = arrWerte
On Error Resume Next
Erase arrWerte
On Error GoTo 0
lngZiel = lngZiel + intAnzahl - 1
Next lngZeile
End With
End Sub

Anzeige
AW: alternativ als Formellösung ...
19.03.2020 08:42:19
neopa
Hallo Alex,
... und da am einfachsten mit einer Hilfsspaltenformel.
Angenommen Deine Kategorien in Tabelle1 reichen bis z.B. max Spalte Y und die Daten stehen ab Zeile2, dann wie folgt
In Z1 schreibe 0 und in Z2 folgende Formel: =ANZAHL2(B2:Y2)+Z1 und kopiere diese bis zum Datensatzende.
In Tabelle2 dann
in A1: =WENN(A1="";"";INDEX(Tabelle1!B:Y;VERGLEICH(A1;Tabelle1!A:A;0);ZÄHLENWENN(A$1:A1;A1)))
in B1: =WENN(A1="";"";INDEX(Tabelle1!B:Y;VERGLEICH(A1;Tabelle1!A:A;0);ZÄHLENWENN(A$1:A1;A1)))
und beide Formeln weit genug nach unten ziehend kopieren.
Gruß Werner
.. , - ...

Anzeige
AW: alternativ als Formellösung ...
20.03.2020 06:56:30
Alex
Hallo Werner,
vielen Dank für die wahnsinnig schnelle Antwort.
Die Formeln für Tabelle1 funktionieren.
Aber die Formel für Tabelle2 funktionieren leider nicht. Beide identischen Formeln liefern mir als Ergebnis immer 0, egal welche Anzahl an Spalten bzw. Zeilen ich in Tabelle 1 eingetragen haben.
Bin etwas ratlos.
Alex
AW: zweimal die gleiche Formel kopiert ...
20.03.2020 11:09:03
neopa
Hallo Alex,
... sorry, in Tabelle2!A1 sollte natürlich folgende Formel einkopiert werden:
=INDEX(Tabelle1!A:A;VERGLEICH(ZEILE()-1;Tabelle1!Z:Z)+1)&""
und in B1 die Formel, die ich aus Versehen Dir auch für A1 einkopiert hatte.
Dann sollte es auch funktionieren.
Gruß Werner
.. , - ...
Anzeige
AW: zweimal die gleiche Formel kopiert ...
21.03.2020 07:29:59
Alex
Hallo Werner,
vielen Dank für Deine Hilfe und Geduld.
Jetzt zeigt er mir in Tabelle2 Spalte A meine Artikelnummern in der entsprechenden Anzahl an.
In Spalte B aber kommt kein Ergebnis (#NV). Ändere ich aber die Formel "VERGLEICH(A2;Tabelle1!A:A;0)" so ab, dass "VERGLEICH(A2;Tabelle1!A:A;-1)" steht, dann werden mir die Kategorienbeschriftungen angezeigt (Tabelle1, Zeile 1).
Da aber in meiner Tabelle jeweils verschiedene Kategorien den Artikelnummern zugewiesen sind, passt das natürlich nicht.
Hast Du auch dafür eine Lösung?
Wozu brauche ich eigentlich die Hilfsformel in Tabelle1, Spalte Z?
Alex....
Anzeige
AW: diese Beispieldatei gleich eingestellt ...
21.03.2020 09:06:00
neopa
Hallo Alex,
... hätte keine andere Interpretation Deiner Angaben bei mir hervorgerufen. Jetzt ist es eindeutig.
Die Hilfsspaltenformel in Tabelle1 (verkürzen die Auswertungsformel in Tabelle2 erheblich) bleibt wie gehabt.
Dir Formel in Tabelle2! verkürzen sich etwas zu:
in A1: =INDEX(Tabelle1!A:A;VERGLEICH(ZEILE()-1;Tabelle1!Z:Z)+1)
in B1: =WENN(A1="";"";INDEX(Tabelle1!B:Y;VERGLEICH(A1;Tabelle1!A:A;0);ZÄHLENWENN(A$1:A1;A1)))
Gruß Werner
.. , - ...
Anzeige
AW: diese Beispieldatei gleich eingestellt ...
21.03.2020 14:27:21
Alex
Hallo Werner,
1000 Dank für Deine Hilfe... Jetzt ist es genau so wie ich es mir vorgestellt haben.
Ich bin mehr als begeistert!
Alex
AW: bitteschön owT
21.03.2020 15:42:56
neopa
Gruß Werner
.. , - ...

302 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