Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Mehrere Ergebnisse in Tabelle eintragen lassen !

Mehrere Ergebnisse in Tabelle eintragen lassen !
30.09.2004 09:37:04
Kabas
Hi !
Aufgabe : Alle Zeilen nach dem Wert "2" UND der Farbe "gelb" durchsuchen. Wenn ein Treffer gefunden wurde , soll mir z.B.: die Zeile 6 in der Spalte des Treffers in eine Zeile geschreiben werden . Bei mehreren Treffern sollen diese untereinander stehen !

Sub Bereitschaft_auslesen_SE()
Worksheets("Bereitschaft_SE").Range("b3").Value = ActiveSheet.Name
For Spalte = 13 To 43
For Zeile = 21 To 46
With ActiveSheet.Cells(Zeile, Spalte)
Range(ActiveSheet.Cells(Zeile, Spalte).Address).Select
If .Value = "2" And .Interior.ColorIndex = 6 Then Worksheets("Bereitschaft_SE").Range("c9").Value = Cells(ActiveCell.Row, 11).Value
End With
Next Zeile
Next Spalte
End Sub

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Ergebnisse in Tabelle eintragen lassen
Reinhard
Hi Kabas,
makro müßte entsprechend deiner Aufgabenstellung laufen(ungetestet). Allerdings verstehe ich nicht warum in Spalte 9 von BereitschaftSE mehrmals der wert von spalte 9 des aktiven Blatts eingetragen werden soll, wenn in einer Zeile mehrmals die Bedingungen erfüllt werden.
Sub Bereitschaft_auslesen_SE()
Set ws = ActiveSheet
With Worksheets("Bereitschaft_SE")
.Range("B3").Value = ActiveSheet.Name
For Each Zelle In ws.Range(Cells(21, 13), Cells(46, 43))
If Zelle.Value = "2" And Zelle.Interior.ColorIndex = 6 Then
.Cells(Cells(65536, 9).End(xlUp).Row, 9) = ws.Cells(Zelle.Row, 11)
End If
Next Zelle
End With

Gruß
Reinhard
Set ws = Nothing
End Sub
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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