Thema Datum  Von Nutzer Rating
Antwort
25.10.2021 14:48:51 Marvin
NotSolved
25.10.2021 17:33:13 Gast76559
NotSolved
Rot Loop statt 1000 If Funktionen
 25.10.2021 17:54:50 Mackie
NotSolved

Ansicht des Beitrags:
Von:
Mackie		 Datum:
25.10.2021 17:54:50		 Views:
418		 Rating:
     
Antwort:
  Ja
Thema:
Loop statt 1000 If Funktionen

Du musst nix selektieren, um irgendwas damit machen zu können.

    Dim SourceRange, FillRange, i
    For i = 2 To 10000 'HIER DEINE ANZAHL
        If ActiveSheet.Cells(i, 17) = True Then
            Set SourceRange = Range("A" & 2 & ":Q" & 2)
            Set FillRange = Range("A" & 2 & ":Q" & i)
            SourceRange.AutoFill Destination:=FillRange
            Set SourceRange = Range("A" & 1 & ":A" & 2)
            Set FillRange = Range("A" & 1 & ":A" & i)
            SourceRange.AutoFill Destination:=FillRange
        End If
    Next i

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
25.10.2021 14:48:51 Marvin
NotSolved
25.10.2021 17:33:13 Gast76559
NotSolved
Rot Loop statt 1000 If Funktionen
 25.10.2021 17:54:50 Mackie
NotSolved