Thema Datum  Von Nutzer Rating
Antwort
30.01.2023 07:54:08 Julia
NotSolved
Blau Vba if fehler
 30.01.2023 08:13:15 Mase
NotSolved
30.01.2023 08:33:23 Gast91925
NotSolved
30.01.2023 08:53:11 Gast88934
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
30.01.2023 08:13:15		 Views:
325		 Rating:
     
Antwort:
  Ja
Thema:
Vba if fehler		 
Sub CopyToSheet5()

    Dim ws1     As Worksheet
    Dim ws2     As Worksheet
    Dim lastrow As Long
    Dim i       As Long
 

    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

 

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
30.01.2023 07:54:08 Julia
NotSolved
Blau Vba if fehler
 30.01.2023 08:13:15 Mase
NotSolved
30.01.2023 08:33:23 Gast91925
NotSolved
30.01.2023 08:53:11 Gast88934
NotSolved