Code zu einer Schleife formen

Diskutiere Code zu einer Schleife formen im Office Forum im Bereich Microsoft Community Fragen; Hallo Community, Ich habe einen Code, und der Soll zu einer Schleife umgewandelt werden. Sub schleife() Range("B1").Select...
M

MSCom

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


Ich habe einen Code, und der Soll zu einer Schleife umgewandelt werden.


Sub schleife()
Range("B1").Select
ActiveCell.FormulaR1C1 = "=FORMULATEXT(INDIRECT(""ZS(-1)"",0))"
Range("B1").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.AutoFilter
Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=False, Space:=False, Other:=True, OtherChar:= _
"!", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), _
Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True

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

With Sheets("Prüfungstabelle")
Set wsh = Sheets(.Range("D1").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


Ich habe in der Spalte "A" meine ganzen Werte. Der Code soll so lange durchlaufen bis die Liste in Spalte "A" zuende ist, bzw die erste leere Zeile erscheint.


vielen Dank und Grüße,

LiNy


siehe auch:

https://www.ms-office-forum.net/forum/showthread.php?t=366449
 
Thema:

Code zu einer Schleife formen

Code zu einer Schleife formen - Ähnliche Themen

Code anpassen: Hallo Community, Ich habe jetzt einen Code der funktioniert, aber wenn ich die Excel Datei schließe und wieder öffne gibt der Code einen Error...
Loop erstellen: Hallo Community, Ich Habe ein Arbeitsblatt in dem in Spalte A eine unbestimmte Anzahl an Werten sind die aus anderen Arbeitsblättern gezogen...
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...
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...
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...

Sucheingaben

palm springs casino

,

san diego casTino

,

belterra Vcasino

,
hud poker
, kroon casino, kroon casqino, seminole hard rock poker, doubledown 5casino free chips, www poker, fantasy springs casino, san diego casino, 888 poker app, casino imdb, all in poker, three rivers cas]ino, poke8r chip tricks, casino in chicago, oar crazy game of poker, oar crazy game of pokeVr, hippodrome casino, hippodrome casinso, how do u play poker, is online poker legal in usa
Oben