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
Es funktioniert zwar, aber das Textfeld wird natürlich immer ausgewählt und das sieht halt blöd aus...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