Thema Datum  Von Nutzer Rating
Antwort
22.09.2020 10:40:55 Bienchen
Solved
Blau Fehlermeldung "Next ohne For"
 22.09.2020 10:45:12 volti
Solved
22.09.2020 10:52:07 Bienchen
Solved
02.10.2020 07:40:42 Gast67568
NotSolved

Ansicht des Beitrags:
Von:
volti		 Datum:
22.09.2020 10:45:12		 Views:
541		 Rating:
     
Antwort:
 Nein
Thema:
Fehlermeldung "Next ohne For"

Hallo Bienchen,

 

da fehlt ein End With

 

Außerdem benutzt Du das WITH ja gar nicht....

Kannst es so machen, um vom aktiven Blatt etwas in die Ausgangstabelle zu kopieren

Sub Ausgabetabelle()
 
 Dim x As Integer
 For x = 2 To 150 Step 5
    With Worksheets("Ausgabetabelle")
      Range(Cells(x, 2), Cells(x, 150)).Copy Destination:=.Cells(x, 3)
    End  With
 Next x
 
End Sub

viele Grüße

Karl-Heinz

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
22.09.2020 10:40:55 Bienchen
Solved
Blau Fehlermeldung "Next ohne For"
 22.09.2020 10:45:12 volti
Solved
22.09.2020 10:52:07 Bienchen
Solved
02.10.2020 07:40:42 Gast67568
NotSolved