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
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.
| 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 |
Zitat:Nicht ganz was ich haben möchte. 
Nicht? Wenn ich die Hilfsspalten nach 1 filtere erhalte ich deine Ergebnisse.
Und wie mache ich aus den Hilfsspalten wieder eine Tabelle?
Hi
Bahnhof?
Die Hilfsspalten sind doch Teil der Tabelle.
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.
Zitat: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.
(24.05.2015, 16:31)Winny schrieb: [ -> ]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:
