Thema Datum  Von Nutzer Rating
Antwort
06.02.2022 02:22:37 Hans
NotSolved
06.02.2022 12:35:18 ralf_b
NotSolved
Rot Zwei gegensätzliche Bedingungen
 06.02.2022 13:43:13 Gast49872
NotSolved
06.02.2022 13:46:26 ralf_b
Solved
06.02.2022 14:14:15 Gast95737
NotSolved
06.02.2022 14:19:39 Gast15888
NotSolved

Ansicht des Beitrags:
Von:
Gast49872		 Datum:
06.02.2022 13:43:13		 Views:
482		 Rating:
     
Antwort:
  Ja
Thema:
Zwei gegensätzliche Bedingungen

Hier nochmal der kopierte Code: 

Sub move_smth()
    Dim t As Integer
    t = 1
    Dim row_number As Integer
    row_number = 3
    Do While t < 500
        If Not IsEmpty(Worksheets("Test1").Cells(row_number, 2).Value) = True Then
            row_number = row_number + 4
            MsgBox "hello, still here!"
        ElseIf IsEmpty(Worksheets("Test1").Cells(row_number, 2).Value) = True Then
            this_row = row_number + 1
            If Not IsEmpty(Worksheets("Test1").Cells(this_row, 2).Value) = True Then
                row_number = row_number + 4
                MsgBox "Im in Else!"
            End If
                MsgBox "Im in End If!"
                new_row = row_number + 1
                paste_row = "B" & CStr(new_row)
                Worksheets("Test2").Range("B3:K29").Cut Worksheets("Test1").Range(paste_row)
                t = 1000
        End If
            MsgBox "Im doing something wrong!"
            new_row = row_number + 1
            paste_row = "B" & CStr(new_row)
            Worksheets("Test2").Range("B3:K29").Cut Worksheets("Test1").Range(paste_row)
            t = 1000
    Loop
End Sub

Ich weiß aber immer noch nicht, was ich falsch gemacht habe. Du sagst ja, dass alles außerhalb des Konstrukts ausgeführt wird, aber End If ist ja ein Bestandteil des Konstrukts. Könntest du mir vielleicht das noch etwas näher erläuter. 

Ich wäre dir sehr dankbar 

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
06.02.2022 02:22:37 Hans
NotSolved
06.02.2022 12:35:18 ralf_b
NotSolved
Rot Zwei gegensätzliche Bedingungen
 06.02.2022 13:43:13 Gast49872
NotSolved
06.02.2022 13:46:26 ralf_b
Solved
06.02.2022 14:14:15 Gast95737
NotSolved
06.02.2022 14:19:39 Gast15888
NotSolved