Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
492to496
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige