VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von:
Julia

Datum:
30.01.2023 07:54:08

Views:
545

Rating:

Antwort:

Thema:
Vba if fehler

Sub CopyToSheet5()

Dim ws1 As Worksheet, ws2 As Worksheet

Set ws1= ThisWorkbook.Sheets("Antragserfassung") Set ws2= ThisWorkbook.Sheets("Anträge bis 1.500")

lastRow=ws1.Cells (ws1.Rows.Count, "W").End(xlUp).Row For i = 2 To lastRow

If ws1.Cells(1, 23).Value < 1500 Then ws2.Cells (ws2.Cells (ws2.Rows.Count, "A").End(xlUp).Row+ 1, 1).Value = ws1.Cells(1, 3).Value

End If

Next i

End Sub

Warum kommt bei End if immer eine Fehlermeldung das kein if Block findet

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