Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1380to1384
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
1380to1384
1380to1384
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mehrere Spalten untereinander ohne Doppler

mehrere Spalten untereinander ohne Doppler
17.09.2014 14:24:59
Ich_halt
Hallo zusammen,
ich habe eine Übersicht mit 25 Spalten und ca. 4500 Zeilen. Die Zellen beinhalten Namen, die doppelt vorkommen können; bzw. sind Zellen auch manchmal leer.
Der Inhalt ist dynamisch und ändert sich täglich.
Ich brauche ein Makro, das mir den Inhalt der Spalten ohne Doppler in eine Spalte einfügt.
Kann jemand helfen?
Lg,
Susanne

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

Betreff
Datum
Anwender
Anzeige
AW: mehrere Spalten untereinander ohne Doppler
17.09.2014 14:35:17
Hajo_Zi
Hallo Susanne,
Doppelte Löschen
angenommen Deine Daten stehen in A1 bis A?
Bereich markieren = Spalte A anklicken (evtl. eine Leerzeile vorher einfügen)
Daten / Filter / Spezialfilter
keine Duplikate
jetzt kannst du noch einstellen, ob an gleicher Stelle oder woanders placiert; hier also B1 eingeben
Spalte A anschließend löschen
Bei mehreren Spalten, muss die Liste eine Überschrift haben, am besten fett formatiert, dann erkennt sie auch Excel als Überschrift.

AW: mehrere Spalten untereinander ohne Doppler
17.09.2014 14:41:20
Ich_halt
Hallo Hajo,
der Spezialfilter nützt mir nichts, denn ich braucht in erster Linie die 25 Spalten untereinander in einer. Diese soll dann ohne Doppler sein. Ich hab versucht, eine Beispieldatei hochzuladen, aber irgendwie klappt das nicht.
Danke trotzdem.
Lg,
Susanne

Anzeige
AW: mehrere Spalten untereinander ohne Doppler
17.09.2014 15:04:10
Ich_halt
.. es wäre auch noch eine Alternative, wenn die finale Spalte Doppler enthält. Macht es das einfacher?

AW: mehrere Spalten untereinander ohne Doppler
17.09.2014 15:36:01
Rudi
Hallo,
du willst also alle Werte aus allen 25 Spalten ohne Doppler in einer Spalte untereinander haben?
Sub aaa()
Dim vArr, i As Long, j As Long, oDic As Object, oKey
Set oDic = CreateObject("scripting.dictionary")
vArr = Cells(1, 1).CurrentRegion
For i = 1 To UBound(vArr)
For j = 1 To UBound(vArr, 2)
oDic(vArr(i, j)) = 0
Next
Next
i = 0
ReDim vArr(1 To oDic.Count, 1 To 1)
For Each oKey In oDic
i = i + 1
vArr(i, 1) = oKey
Next
Worksheets.Add.Cells(1, 1).Resize(oDic.Count) = vArr
End Sub

Gruß
Rudi

Anzeige
AW: mehrere Spalten untereinander ohne Doppler
17.09.2014 15:44:28
Ich_halt
du bist mein Held :) zwei Kleinigkeiten noch: Es soll ab Spalte D beginnen mit untereinander kopieren; und kann bei erneutem Start des Makros der Inhalt in dem TB1 gelöscht und dann neu eingefügt werden? So, dass praktisch diese eine Spalte immer auf dem selben Tabellenblatt steht.
Lg,
Susanne

AW: mehrere Spalten untereinander ohne Doppler
17.09.2014 16:03:11
Rudi
Hallo,
so? 
Sub aaa()
Dim vArr, i As Long, j As Long, oDic As Object, oKey
Set oDic = CreateObject("scripting.dictionary")
vArr = Cells(1, 1).CurrentRegion
For i = 1 To UBound(vArr)
For j = 1 To UBound(vArr, 2)
oDic(vArr(i, j)) = 0
Next
Next
i = 0
ReDim vArr(1 To oDic.Count, 1 To 1)
For Each oKey In oDic
i = i + 1
vArr(i, 1) = oKey
Next
With Sheets("Tabelle1")
.Columns(4).ClearContents
.Cells(1, 4).Resize(oDic.Count) = vArr
End With
End Sub

Gruß
Rudi

Anzeige
AW: mehrere Spalten untereinander ohne Doppler
17.09.2014 16:11:20
Ich_halt
Hallo Rudi,
danke für die schnelle Rückmeldung. Beim Ausführen erhalte ich einen Laufzeitfehler. Beim Debuggen wird die Zeile
For i = 1 To UBound(vArr)
markiert;
Kannst du damit was anfangen?
Lg,
Susanne

AW: mehrere Spalten untereinander ohne Doppler
17.09.2014 16:34:38
Rudi
Hallo,
du musst das Makro aus deiner 4500x25 Tabelle heraus starten.
Gruß
Rudi

AW: mehrere Spalten untereinander ohne Doppler
18.09.2014 12:11:30
Ich_halt
Hallo Rudi,
so funktioniert es :) Vielen vielen Dank.
Lg,
Susanne

AW: mehrere Spalten untereinander ohne Doppler
18.09.2014 13:23:24
Ich_halt
... eine Kleinigkeit wäre da doch noch ... Wie muss ich das folgende Makro anpassen, damit es die "eine Spalte" nicht in die Zelle A1 und folgende einfügt, sondern in Zelle A2?
Sub Column()
Dim vArr, i As Long, j As Long, oDic As Object, oKey
Set oDic = CreateObject("scripting.dictionary")
vArr = Cells(1, 1).CurrentRegion
For i = 2 To UBound(vArr)
For j = 4 To UBound(vArr, 2)
oDic(vArr(i, j)) = 0
Next
Next
i = 0
ReDim vArr(1 To oDic.Count, 1 To 1)
For Each oKey In oDic
i = i + 1
vArr(i, 1) = oKey
Next
With Sheets("TA_Column")
.Columns(4).ClearContents
.Cells(1, 1).Resize(oDic.Count) = vArr
Sheets("TA_Column").Select
Columns(1).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
End Sub

Lg,
Susanne
Anzeige

303 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
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
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Anzeige
Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Text in Spalten
Simone

Hallo zusammen,
ich hab ein wohl eher triviales Problem, komme aber trotzdem einfach nicht weiter.
Ich füge in ein Arbeitsblatt Daten aus einem anderen Programm ein. Jetzt habe ich mehrmals die Funktion 'Text in Spalten' verwendet / ausprobiert, und wenn ich jetzt wieder Daten in A1 ein...
16.09.2008 13:54:00
Thread-ID: 1010092
3 Beiträge
Zeilen löschen in Abhängigkeit von 2 Spalten
2

Hallo zusammen,
ich habe ein Makro über den Rekorder aufgezeichnet und versuche es anzupassen. Leider kenn ich mich in der Syntax nicht aus.
Ziel:
In einem markierten Bereich die Zeilen löschen, die in Abhängigkeit von zwei Spalten eine 0 enthalten.
D.h. Spalten X und Y enthalte...
06.10.2008 14:00:00
Thread-ID: 1014434
3 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Text in Spalten
Tom

Hallo,
ich möchte mit der Funktion Text in Spalten erreichen, dass alle Zeilen, die mit einer Zahl beginnen, nach der Zahl in eine neue Spalte geschoben werden - nur finde ich hierfür nur die Funktionen nach Leerzeichen, Komma usw...
Wer hat ne Lösung?
In A1: 1020 Maier Huber Mülle...
20.10.2008 14:09:42
Thread-ID: 1017654
7 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
10
3
3
2
2
2
2
6
3
2
2
2
2
4
4
8
4
5
4
2
5
3
4