Tabellen Auszüge nach Bedingungen kopieren

[FaDos]

Hallo,
ich möchte in 3 extra Tabelle meine vorhandenen Angaben ausgegeben haben,  je nach Bedingungen.

Bsp.
Tabelle 1.(Fehlerhafte Datensatz) :
Hier soll aufgelistete werden, wo alle Bestellung "WAHR" und Datum "Leer" ist, es darf aber kein "Call" auflistet werden.

Tabelle 2. (Emails) :
Hier soll aufgelistete werden, wo alle Bestellung "WAHR" mit Datum und email "WAHR", es darf aber kein "Call" auflistet werden.

Tabelle 3. (Fax) :   wie bei Emails, kann ich dann umstellen.

Danke


Tabelle1

	A	B	C	D	E	F
1	Ticket	User	Datum	Bestellung	Fax	email
2	W1234	Mai	24.05.2015	WAHR	WAHR	WAHR
3	W1235	Bux		WAHR	WAHR	WAHR
4	W1236	Bernd	24.05.2015	WAHR	FALSCH	WAHR
5	W1237	Alli		FALSCH	WAHR	WAHR
6	W1238	Mai	24.05.2015	WAHR	WAHR	FALSCH
7	W1239	Bernd		WAHR	WAHR	WAHR
8	Call	Bux	24.05.2015	WAHR	FALSCH	WAHR
9	Call	Mai		FALSCH	WAHR	WAHR
10	Call	Bux	24.05.2015	WAHR	WAHR	FALSCH
11	Call	Bernd		WAHR	WAHR	WAHR
12	W1239	Mai	24.05.2015	WAHR	FALSCH	WAHR
13	W1240	Bux		WAHR	WAHR	WAHR
14	W1241	Bernd	24.05.2015	WAHR	WAHR	FALSCH
15	W1242	Alli		FALSCH	FALSCH	WAHR

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

[shift-del]

Hallo

Mittlerweile hast du wohl alle Excel-Foren damit beglückt.

Das Kopieren in andere Tabellenblätter ist nicht notwendig. Man kann die Tabelle an Ort und Stelle filtern.

	G	H	I
1	Prf 1	Prf 2	Prf 3
2	0	1	1

Zelle	Formel
G2	=(C2="")*(A2<>"Call")*D2
H2	=(C2<>"")*(A2<>"Call")*D2*F2
I2	=(C2<>"")*(A2<>"Call")*D2*E2

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

[FaDos]

Nicht ganz was ich haben möchte.

 
Es sollte ungefähr so aussehen.

Tabelle 1:
Tabelle1

	A	B	C	D	E	F
1	Ticket	User	Datum	Bestellung	Fax	email
3	W1235	Bux		WAHR	WAHR	WAHR
7	W1239	Bernd		WAHR	WAHR	WAHR
13	W1240	Bux		WAHR	WAHR	WAHR

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8



Tabelle 2:
Tabelle1

	A	B	C	D	E	F
1	Ticket	User	Datum	Bestellung	Fax	email
2	W1234	Mai	24.05.2015	WAHR	WAHR	WAHR
4	W1236	Bernd	24.05.2015	WAHR	FALSCH	WAHR
12	W1239	Mai	24.05.2015	WAHR	FALSCH	WAHR

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Tabelle 3:
Tabelle1

	A	B	C	D	E	F
1	Ticket	User	Datum	Bestellung	Fax	email
2	W1234	Mai	24.05.2015	WAHR	WAHR	WAHR
6	W1238	Mai	24.05.2015	WAHR	WAHR	FALSCH
14	W1241	Bernd	24.05.2015	WAHR	WAHR	FALSCH

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

[shift-del]

Nicht ganz was ich haben möchte.

Nicht? Wenn ich die Hilfsspalten nach 1 filtere erhalte ich deine Ergebnisse.

[FaDos]

Und wie mache ich aus den Hilfsspalten wieder eine Tabelle?

[shift-del]

Hi

Bahnhof?
Die Hilfsspalten sind doch Teil der Tabelle.

[FaDos]

Sorry
aber das ist einfach zu hoch für mich!    :22:


Ich habe eine Arbeitsmappe mit  „4 Tabellenblättern“    (eine pro Woche, das nur zur Info).
Ich möchte auf der  “5. Tabellenblatt“  eine Übersicht, mit meine 3 Tabellen wie unter „#3“, damit ich auf einen Blick diese Infos haben.

[Winny]

Hi


hier eine VBA Lösung

Code:

Option Explicit

Sub tst()
  Application.ScreenUpdating = False
 
  Call Email
  Call Fax
  Call Fehler
 
  Application.CutCopyMode = False
  'Worksheets("Tabelle1").AutoFilterMode = False
 
  Application.ScreenUpdating = True
End Sub

Sub Fehler()
  'Worksheets("Tabelle2").Cells.ClearContents
  With Worksheets("Tabelle1")
     .AutoFilterMode = False
     .Range("A:F").AutoFilter Field:=1, Criteria1:="<>Call"
     .Range("A:F").AutoFilter Field:=3, Criteria1:="="
     .Range("A:F").AutoFilter Field:=4, Criteria1:="=True"
     '.AutoFilter.Range.Copy
     'With Worksheets("Tabelle2")
     '   .Paste Destination:=.Cells(1, 1)
     'End With
  End With
End Sub

Sub Email()
  Worksheets("Tabelle2").Cells.ClearContents
  With Worksheets("Tabelle1")
     .AutoFilterMode = False
     .Range("A:F").AutoFilter Field:=1, Criteria1:="<>Call"
     .Range("A:F").AutoFilter Field:=3, Criteria1:=">0"
     .Range("A:F").AutoFilter Field:=4, Criteria1:="=True"
     .Range("A:F").AutoFilter Field:=6, Criteria1:="=True"
     .AutoFilter.Range.Copy
     With Worksheets("Tabelle2")
        .Paste Destination:=.Cells(1, 1)
     End With
  End With
End Sub

Sub Fax()
  Worksheets("Tabelle3").Cells.ClearContents
  With Worksheets("Tabelle1")
     .AutoFilterMode = False
     .Range("A:F").AutoFilter Field:=1, Criteria1:="<>Call"
     .Range("A:F").AutoFilter Field:=3, Criteria1:=">0"
     .Range("A:F").AutoFilter Field:=4, Criteria1:="=True"
     .Range("A:F").AutoFilter Field:=5, Criteria1:="=True"
     .AutoFilter.Range.Copy
     With Worksheets("Tabelle3")
        .Paste Destination:=.Cells(1, 1)
     End With
  End With
End Sub

[shift-del]

Ich habe eine Arbeitsmappe mit  „4 Tabellenblättern“    (eine pro Woche, das nur zur Info).

Diese Information war bis jetzt nicht bekannt.
Man benötigt übrigens keine vier Tabellenblätter. Es reicht die Wochendaten in einem Tabellenblatt zu führen.
Das erleichtert die Auswertung ungemein.

[FaDos]

Hi


hier eine VBA Lösung

Code:

Option Explicit

Sub tst()
  Application.ScreenUpdating = False
 
  Call Email
  Call Fax
  Call Fehler
 
  Application.CutCopyMode = False
  'Worksheets("Tabelle1").AutoFilterMode = False
 
  Application.ScreenUpdating = True
End Sub

Sub Fehler()
  'Worksheets("Tabelle2").Cells.ClearContents
  With Worksheets("Tabelle1")
     .AutoFilterMode = False
     .Range("A:F").AutoFilter Field:=1, Criteria1:="<>Call"
     .Range("A:F").AutoFilter Field:=3, Criteria1:="="
     .Range("A:F").AutoFilter Field:=4, Criteria1:="=True"
     '.AutoFilter.Range.Copy
     'With Worksheets("Tabelle2")
     '   .Paste Destination:=.Cells(1, 1)
     'End With
  End With
End Sub

Sub Email()
  Worksheets("Tabelle2").Cells.ClearContents
  With Worksheets("Tabelle1")
     .AutoFilterMode = False
     .Range("A:F").AutoFilter Field:=1, Criteria1:="<>Call"
     .Range("A:F").AutoFilter Field:=3, Criteria1:=">0"
     .Range("A:F").AutoFilter Field:=4, Criteria1:="=True"
     .Range("A:F").AutoFilter Field:=6, Criteria1:="=True"
     .AutoFilter.Range.Copy
     With Worksheets("Tabelle2")
        .Paste Destination:=.Cells(1, 1)
     End With
  End With
End Sub

Sub Fax()
  Worksheets("Tabelle3").Cells.ClearContents
  With Worksheets("Tabelle1")
     .AutoFilterMode = False
     .Range("A:F").AutoFilter Field:=1, Criteria1:="<>Call"
     .Range("A:F").AutoFilter Field:=3, Criteria1:=">0"
     .Range("A:F").AutoFilter Field:=4, Criteria1:="=True"
     .Range("A:F").AutoFilter Field:=5, Criteria1:="=True"
     .AutoFilter.Range.Copy
     With Worksheets("Tabelle3")
        .Paste Destination:=.Cells(1, 1)
     End With
  End With
End Sub

Mit VBA kenne ich mich noch wenigerr bis gar nicht aus.
Wo bitte soll ich den Makro schreiben?

Ich habe es in der 5. Tabellenblatt geschrieben als "Modul" kopiert.

wenn ich jetzt als Bsp Makro "email" auswähle passiert nix außer das alle filter gesetzt werden.  :20: