Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1356to1360
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
1356to1360
1356to1360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zueinandergehörige Inhalte untereinander anordnen

Zueinandergehörige Inhalte untereinander anordnen
29.04.2014 16:34:21
Tom
Hallo zusammen,
Ich habe ein Layoutproblem.
Ich habe wie in der Datei gezeigt Rohdaten aus einem Active Directory gezogen.
In Bezug auf den Wert "OU" (Organization Unit) können unterschiedlich viele Spalten befüllt sein.
Wie ab Zeile 9 gezeigt möchte ich ab dem Eintrag DC=Gruppe und nachfolgend wieder alles untereinander haben.
Nachfolgend die Datei:
https://www.herber.de/bbs/user/90393.xlsx
Es müßte also die ganze Datei irgendwie durchsucht werden.
Dann müßte z.B. geschaut werden, was die "höchste" Spalte mit Inhalt "DC=Gruppe" ist. Und dann müssten alle Zeilen, die den Eintrag "DC=Gruppe" in einer Spalte weiter links haben mit den nachfolgenden Feldern nach Rechts geschoben werden, so dass ab dem Eintrag "DC=Gruppe" alles wieder bündig ist.
Weiß jemand Rat?
Danke, Tom

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

Betreff
Datum
Anwender
Anzeige
nachgefragt ...
30.04.2014 17:03:47
der
Hallo Tom,
... es soll also anstelle des ersten Wertes nach "DC=net" der Wert nach "CN=" aus Spalte geleistet werden?
Wenn nicht tausende Zeilen auszuwerten sind (wieviel denn), wäre meinerseits eine reine Formellösung möglich. Diese dann meinerseits aber dann erst Morgen.
Gruß Werner
.. , - ...

AW: Zueinandergehörige Inhalte untereinander anordnen
30.04.2014 17:07:49
fcs
Hallo Tom,
hier ein entsprechendes Makro.
Gruß
Franz 
Sub Move_DC_Gruppe()
Dim SpalteMax As Long
Dim strAdr1 As String, varFind As Variant
Dim rng As Range
Dim Zeile As Long
Dim wks As Worksheet
Set wks = ActiveSheet
With wks
varFind = "DC=GRUPPE"
Set rng = .UsedRange.Find(What:=varFind, LookIn:=xlValues, lookat:=xlWhole)
If Not rng Is Nothing Then
strAdr1 = rng.Address
Do
If rng.Column > SpalteMax Then
SpalteMax = rng.Column
End If
Set rng = .UsedRange.FindNext(after:=rng)
Loop Until rng.Address = strAdr1
Application.ScreenUpdating = False
For Zeile = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
Set rng = .Rows(Zeile).Find(What:=varFind, after:=.Cells(Zeile, 1), _
LookIn:=xlValues, lookat:=xlWhole)
If Not rng Is Nothing Then
If rng.Column

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige