Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
936to940
936to940
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

WiederholenWenn

Forumthread: WiederholenWenn

WiederholenWenn
07.01.2008 16:43:00
Christian
Hallo Leute,
ich habe eine Tabelle mit mehreren Tabellenblättern. In den Tabellenblättern stehen Einträge in einzelnen Zeilen (von Spalte A bis Spalte G)
Ich bin auf der Suche nach einer Formel, die auf dem letzten Tabellenblatt die komplette Zeile von A bis G wiederholt, wenn in Spalte E "org" und gleichzeitig in Spalte L "offen" steht.
Hat einer von Euch das schon mal gemacht ? - geht das vielleicht auch über Summenprodukt ?
Hilfe !
Gruß Christian

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: WiederholenWenn
07.01.2008 23:28:29
Daniel
Hi
mach da mal ein Beispiel wie es aussehen soll, ich kann mir das noch nicht so richtig vorstellen.
Gruß, Daniel

AW: WiederholenWenn
08.01.2008 13:37:00
fcs
Hallo Christian,
meines Wissens kann man das nicht per Formel sondern nur per Makro realisieren.
Das folgende Makro muss du im VBA-Editor unter der Tabelle einfügen in der die offenen Datensätze angezeigt werden sollen.
Das Makro wird immer dann ausgeführt, wenn das Tabellenblatt selektiert/aktiviert wird.
Gruß
Franz

Private Sub Worksheet_Activate()
Dim Wks As Worksheet, ZeileOffen As Long, ZeileWks As Long
'vorhandenen Daten löschen
With Me
If .Cells(.Rows.Count, 5).End(xlUp).Row >= 2 Then
.Range(.Cells(2, 1), .Cells(.Rows.Count, 5).End(xlUp).Offset(0, 2)).ClearContents
End If
End With
'offene mit org übertragen
ZeileOffen = 2
For Each Wks In ThisWorkbook.Worksheets
Select Case Wks.Name
Case Me.Name 'Ausnahmen
'do nothing
Case Else
With Wks
For ZeileWks = 1 To .Cells(.Rows.Count, 5).End(xlUp).Row
If .Cells(ZeileWks, 5).Value = "org" And .Cells(ZeileWks, 12).Value = "offen" Then
.Range(.Cells(ZeileWks, 1), .Cells(ZeileWks, 7)).Copy
Me.Cells(ZeileOffen, 1).PasteSpecial Paste:=xlValues
ZeileOffen = ZeileOffen + 1
End If
Next
Application.CutCopyMode = False
End With
End Select
Next
Range("a1").Select
End Sub


Anzeige
;

Beliebteste Forumthreads (12 Monate)

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