ich probiere mich gerade an einem Makro das einen Zellwert an eine andere Stelle kopieren soll. Meine Kenntnisse sind wirklich beschämend gering ;-I
Auch hier im Forum habe ich bereits ähnliche Probleme gesehen, wegen meiner bescheidenen Kenntnisse kann ich diese aber (noch) nicht auf mein File anwenden.
Anstatt dass die Loop bis activecell.value = "" geht möchte ich folgende zusätzliche Kriterien einbauen:
- Loop endet entweder wenn activecell.value = "" oder spätestens wenn activecell.value = "XXX"
- Loop soll ausgeblendete Zeilen überspringen und mit nächstem Wert weiter machen (aber nach wie vor soll es dann nicht endlos laufen sondern bei "XXX" oder "" aufhören.
Bisher ist das der Code:
Sub TR_Auslesen()
Sheets("TR-List").Select
Range("A5").Select
Do Until ActiveCell.Value = ""
Sheets("TR-List").Range("N1").Value = ActiveCell.Value
ActiveCell.Offset(0, 4).Value = Sheets("TR-List").Range("O1").Value
ActiveCell.Offset(1, 0).Select
Loop
MsgBox ("finished")
End Sub
Vielen Dank vorab für euer Feedback zu dieser Anfänger-Frage, Chris