Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
18.04.2024 08:06:05
Power Query Tabelle aus jeder Spalte erweitern?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
632to636
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
632to636
632to636
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA- Tabelle durchsuchen

VBA- Tabelle durchsuchen
10.07.2005 00:26:25
Miklo
Hallo zusammen,
ist es irgendwie möglich, ein kleines VBA- Tool zu erstellen, welches eine Tabelle genauer 2 Spalten nach Werten durchsucht, welche in gelber Farbe geschrieben sind, und diese in eine neue Spalte auf einem neuen Tabellenblatt untereinander auflistet.Anschliessend sollen die gelben Werte in der Tabelle wieder in eine schwarze Schriftfarbe geändert werden.
Ich wäre echt für jede Hilfe sehr dankbar.
Mit freundlichen Grüssen
M. Miklo
Beispieltabelle, was das Tool machen sollte.
https://www.herber.de/bbs/user/24601.xls

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

Betreff
Datum
Anwender
Anzeige
AW: VBA- Tabelle durchsuchen
10.07.2005 07:58:49
Christoph
Hallo Miko,
wenn ich dich richtig verstanden habe...
das folgende Makro listet die gelben Einträge aus Tabelle 1 in Tabelle 2, Spalte D auf.
In Tabelle 2 sind diese Einträge in schwarzer Schrift.
Gruß
Christoph 
Option Explicit
Sub GelbeNachTab2()
Dim rng As Range
Dim k As Long
k = 1
For Each rng In Sheets("Tabelle1").Range("A1:B20")  'Bereich anpassen
If rng.Font.ColorIndex = 6 Then
k = k + 1
Sheets("Tabelle2").Cells(k, 4) = rng.Value
End If
Next
End Sub
AW: VBA- Tabelle durchsuchen
10.07.2005 20:36:11
Miklo
Genau das habe ich gesucht.
Tausend dank.
Gruss
Miklo
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige