Zeilen mit partiell gleichem inhalt zusammenfassen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Kolja,
teste dies mal:
Sub Transform() Const eZ = 2 ' erste Zeile mit Daten im _Quellblatt Const SpAnlass = 2 Dim QTab As Worksheet 'Quelltabelle Dim ZTab As Worksheet 'Zieltabelle Dim lZ As Long, i As Long Dim s As Integer Dim temp As Long 'Variablen zuweisen: Set QTab = Sheets("Tabelle1") Set ZTab = Sheets("Tabelle2") lZ = QTab.Range("A65536").End(xlUp).Row ZTab.Cells.ClearContents 'Namen ohne Duplikat in Zeilen übertragen: temp = 2 'erst Zeile = 2 For i = eZ To lZ If WorksheetFunction.CountIf(ZTab.Range("A2:A" & temp), QTab.Cells(i, 1)) = 0 Then ZTab.Cells(temp, 1) = QTab.Cells(i, 1) temp = temp + 1 End If Next i 'Anlässe ohne Duplikat in Spalten übertragen: temp = 2 'erste Spalte = 2 For i = eZ To lZ If WorksheetFunction.CountIf(ZTab.Range(ZTab.Cells(1, 2), ZTab.Cells(1, temp)), QTab.Cells(i, 2)) = 0 Then ZTab.Cells(1, temp) = QTab.Cells(i, 2) temp = temp + 1 End If Next i 'Werte eintragen: temp = 2 Dim kunde As String, anlass As String Dim z_f As Long, s_f As Integer For i = eZ To lZ kunde = QTab.Cells(i, 1) anlass = QTab.Cells(i, 2) z_f = ZTab.Range("A:A").Find(what:=kunde).Row s_f = ZTab.Range("1:1").Find(what:=anlass).Column ZTab.Cells(z_f, s_f) = "X" Next i End Sub
Voraussetzung ist eine Tabellenstruktur wie die hier:

	A	B
1	Kunde	Anlass
2	Meier	Austritt
3	Müller	Eintritt
4	Müller	Änderung
5	Meier	Eintritt
6	Huber	Eintritt
7	Schmidt	Austritt
8	Meier	Umzug
9	Schröder	Umzug

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
Das Makro macht dann im Zielblatt dies hier:

	A	B	C	D	E
1		Austritt	Eintritt	Änderung	Umzug
2	Meier	X	X		X
3	Müller		X	X
4	Huber		X
5	Schmidt	X
6	Schröder				X

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
Viel Erfolg,
Matthias

Hy Matthias,
doch zu früh gefreut.
Also ich fang dann mal mit erklären an. Es handelt sich nicht um eine Kundenliste(war einfach einfacher zu Umschreiben) sonder um eine Fraktionsliste für das Battletech-Tabletop spiel. Sozusagen das Mechwarrior Computerspiel als Brettspiel. Ich habe eine solche Liste unter http://www.cs.wisc.edu/~lacasse/factionlist/ heruntergeladen und wollte nun eine Liste, bei der ich pro Fahrzeug nur ein Zeile habe, und so mit einem Blick sehen kann, wer dieses Fahrzeug alles einsetzten darf. Hat mit deinem Makro und meinen Erweiterungen auch super geklappt. (Die bezogen sich darauf, das ich das X durch das Datum der Zeitschiene ab der das Fahrzeug eingesetzt werden darf ersetzt habe und auch alle anderen Daten für das Fahrzeug mit in Tab2 rüberkopiert habe) Nun habe ich als letzte Spalte die Formel =38-Zählewenn(L2:AY2;"") eingefügt, um die Fahrzeuge rausfiltern zu können, die wirklich nur von einer Fraktion eingesetzt werden dürfen. Und da fiel mir doch gleich auf, das im Dropdown menü des Autofilters auch der Eintrag "0" existiert, was per se nicht sein darf, da die Spalte mit den Daten keine leeren Zellen beeinhaltet. Ich habe dann die Fahrzeuge die laut tab2 zu keiner Fraktion gehören in der Urliste gesucht, und siehe da sie haben eine Datum drinstehen... was nu? Ich konnte die Tabelle leider nicht ul, da sie mit 1,5mb zu groß ist, aber ich hab sie auf einen Webspace geladen damit du sie dir da anschauen kannst http://www.edv-devil.net/down/factionlist.zip
Danke schon mal im Voraus!!
Kolja

Beliebteste Forumthreads (12 Monate)

Zeilen mit partiell gleichem inhalt zusammenfassen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen mit partiell gleichem inhalt zusammenfassen

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

312 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread