Textfeld als Counter ansprechen
17.03.2019 21:41:08
Martin
ich speichere in einer for Schleife verschiedene Dateien in unterschiedlichen Ordnern. Da das etwas dauert, will ich eine Art Counter anzeigen lassen.
Im Netz hab ich nur Lösungen mit select gefunden und auch der Rekorder nimmt folgendes auf.
Sub Counter()
Dim i As Integer
Dim anzahl As Integer
anzahl = 5
For i = 1 To anzahl
ActiveSheet.Shapes.Range(Array("txtCounter")).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = _
"Datensatz " & i & " von " & anzahl & " wird gespeichert"
Next
End Sub
Gibt es eine Möglichkeit das ohne Select zu machen?
Es muss auch nicht ein Textfeld sein. Hauptsache der Zähler läuft.
Danke und lg
Martin
Anzeige