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:
598
Rating: Antwort:
  Ja
Thema:
Vba if fehler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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