Loop erstellen

Diskutiere Loop erstellen im Office Forum im Bereich Microsoft Community Fragen; Hallo Community, Ich Habe ein Arbeitsblatt in dem in Spalte A eine unbestimmte Anzahl an Werten sind die aus anderen Arbeitsblättern gezogen...
M

MSCom

Neuer Benutzer
Threadstarter
Dabei seit
20.09.2016
Beiträge
1
Hallo Community,


Ich Habe ein Arbeitsblatt in dem in Spalte A eine unbestimmte Anzahl an Werten sind die aus anderen Arbeitsblättern gezogen werden.

In Spalte B sind die zu den Werten gehörenden Worksheet Namen.

Folgender Code nimmt den Wert aus A1 und den Namen aus B1 und sucht den Wert, wenn gefunden wird er markiert.

Ich möchte aber, dass der Code die Zeilen durchläuft und alle Werte findet, bis die Liste zuende ist.


Vielen Dank und liebe Grüße,

LiNy



Sub Test()

Dim wsh As Worksheet
Dim sWert As Double
Dim c As Range

With Sheets("Prüfungstabelle")
Set wsh = Sheets(.Range("B1").Value)
sWert = .Range("A1")
End With

With wsh
Set c = .UsedRange.Find(sWert)
If Not c Is Nothing Then
c.Interior.Color = vbRed
Else
MsgBox "Suchwert nicht gefunden"
End If
End With

End Sub
 
#
schau mal hier: Loop erstellen. Dort wird jeder fündig!
Registrieren bzw. einloggen, um diese und auch andere Anzeigen zu deaktivieren
Thema:

Loop erstellen

Loop erstellen - Ähnliche Themen

Code zu einer Schleife formen: Hallo Community, Ich habe einen Code, und der Soll zu einer Schleife umgewandelt werden. Sub schleife() Range("B1").Select...
Wie kann ich - per Makro - alle in einem Word-Dokument enthaltenen Internetz-Adressen ("www.";"https://";"http://") in einen Hyperlink umwandeln?: Hallo liebe Forums-User! Ich versuche einen Makro zu erstellen, der in einem längeren Dokument mehrere beliebige unterschiedliche Webadressen...
[VBA] Kommentar wird in die falsche Zelle eingefügt.: Hallo zusammen und einen schönen Sonntag, einmal kurz etwas zur Aufgabenbeschreibung. Ich möchte, dass bei bzw. nach einer Eingabe in Spalte M...
Next/End With zu For/With wird nicht akteptiert.: Hallo. Ich habe ein kleines Modul erstellt, um eine Funktion zu testen. Dies wäre der Code. Sub BereicheVergleichen() Dim rngZelle As Range...
Verhalten beim Einfügen von Bildern per Makro: Hallo zusammen, ich habe folgendes Makro: Sub InsertPics() Dim Rw&, PFAD$, Datei$, Bild As Shape PFAD = "C:\Users\….\" With...

Sucheingaben

casino de montreal

,

hinckley casino

,

hinckley cqasino

,
poker 2
, santa ana c[asino, wizard poketr, lucky slot casino, draw poker, draw *poker, oneida casino, free proker game download, luxor 7casino, luxor casino, clay pokHer chips, hampton falls poker, casino card games, winstar poker, winstar p]oker, lodge casino, wpt poker trainer, wpt pokeXr trainer, hollywood casino com, hollywood ca(sino com, clay poker chips, poker tables and chairs
Oben