VBA Schleife mit Bedingung
Benjamino
bin ein blutiger VBA-Neuling und versuche bislang erfolglos mein Problem zu lösen. Wäre unendlich dankbar, wenn mir jemand weiterhelfen könnte.
Das unten stehende Makro "Makro2" soll solange durchlaufen werden, bis in der Spalte A im Sheet "Readme" keine befüllte Zellen mehr vorhanden sind. Solange dort Werte enthalten sind, muss dieser Parameter wie unten praktiziert an das Sheet "Volatility" nach B1 kopiert werden, durch das Makro "ExtractData" berechnet werden und dann die Ausgabewerte C3 und G3 (die Zellen verändern sich nicht) zurück in das Sheet "Readme" in die jeweilige Zeile des Eingangswertes (in Spalte C und G) zurückgeschrieben werden.
Herzlichen Dank!
Sub Makro2()
' Makro2 Makro
' Tastenkombination: Strg+y
Application.ScreenUpdating = False
Sheets("ReadMe").Select
Range("A3").Select
Selection.Copy
Sheets("Volatility").Select
Range("B1").Select
ActiveSheet.Paste
Call ExtractData
Sheets("Volatility").Select
Range("B6").Copy
Sheets("ReadMe").Range("C3").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Sheets("Volatility").Select
Range("B5").Copy
Sheets("ReadMe").Range("G3").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub