Anzeige
Archiv - Navigation
1304to1308
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
Inhaltsverzeichnis

Bereichssuche mit Ausgabe in einer anderen Tabelle

Bereichssuche mit Ausgabe in einer anderen Tabelle
22.03.2013 11:26:00
Moni
Ich brauch schon wieder mal Hilfe,
Ich will bestimmt Zellen finden (1. hat Wert und die 2.und 3. sind leer) und dann in den Zeilen nach Zellen mit einer bestimmten Formatierun suchen, diesen Bereich ausgeben (also 1. Spalte, die gefunden bis letzte Spalte,die gefunden wurde). Ich habe mir gedahct, ich such s und gebe dann für den Anfang s-k und fürs Ende s aus. Das soll in dem neuen Tabellenblatt (in Spalte F der Anfang und Spalte G das Ende) ausgegeben werden. Immer wenn ein neuer Bereich gefunden wird, soll dieser in die nächste Zeile der neuen Tabelle.
Ich komme bis hierhin und jetzt irgendwie nicht mehr weiter. Habt ihr Vorschläge?
Dim i As Integer, k As Integer
Dim s As Integer, t As Integer
Dim lRow As Long
lRow = Plan.Cells(Rows.Count, 1).End(xlUp).Row
k = 0
For i = 1 To lRow - 30
If Plan.Cells(i, 1).Value "" And Plan.Cells(i + 1, 1).Value = "" And Plan.Cells(i + 2, 1).Value = "" And Plan.Cells(i, 1).Value "Summe" Then
For s = 2 To 93
If Plan.Cells(i, s).Interior.Color = RGB(255, 153, 0) And Plan.Cells(i, s + 1).Interior.Color = RGB(255, 153, 0) Then
Layover.Activate
Layover.Cells(Rows.Count, 1).End(xlUp).Offset(1, 5).Value = s-k
Layover.Cells(Rows.Count, 1).End(xlUp).Offset(1, 6).Value = s
k = k + 1
Else
s = s + 1
If s = 93 And k = 0 Then
Exit For
Else
Exit For
End If
End If
Next s
k = 0
End If
Next
i = i + 1

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereichssuche mit Ausgabe in einer anderen Tabelle
23.03.2013 15:07:25
Oberschlumpf
1. Hallo
2. Dein übriger Text
3. Tschüss
Alle 3 Teile sind erforderlich
1. + 3. hast du vergessen.
Das könnten gleich 2 Gründe sein, wieso niemand antwortet.
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige