Thema Datum  Von Nutzer Rating
Antwort
Rot For Each Schlaufe
 29.03.2023 08:27:45 X1
Solved
29.03.2023 15:22:28 Gast42620
Solved
30.03.2023 12:01:36 X1
Solved
29.03.2023 15:30:17 volti
Solved

Ansicht des Beitrags:
Von:
X1		 Datum:
29.03.2023 08:27:45		 Views:
540		 Rating:
     
Antwort:
 Nein
Thema:
For Each Schlaufe

Hallo zusammen

Ich habe in einem Terminprogramm den Befehl via Userform Textfelder um f zu verschieben.
Das ganze habe ich mit einer For Each Next Schlaufe gemacht. Jetzt habe ich das Problem das teilweise eine Textbox zweimal um den Wert f verschoben wird. Kann mir da jemand helfen?

Der werd f kommt aus einer Userform.

Dim Sh As TextBox
Dim i As String
i = ActiveCell.Row
Set rng = Range("J" & i & ":IT" & i)

For Each Sh In ActiveSheet.TextBoxes
    If Not Intersect(Sh.TopLeftCell, rng) Is Nothing Then Sh.Select
        If TypeOf Selection Is TextBox Then
    
        Selection.ShapeRange.IncrementLeft f
        Else
        GoTo Nächste
    End If

Nächste:
Next Sh

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot For Each Schlaufe
 29.03.2023 08:27:45 X1
Solved
29.03.2023 15:22:28 Gast42620
Solved
30.03.2023 12:01:36 X1
Solved
29.03.2023 15:30:17 volti
Solved