Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
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
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige