Thema Datum  Von Nutzer Rating
Antwort
Rot Buchstaben in For Next hochzählen
 22.04.2021 16:04:50 Neuling
NotSolved
22.04.2021 17:55:26 volti
Solved
22.04.2021 19:30:31 Gast4473
Solved
23.04.2021 08:13:21 Mase
NotSolved

Ansicht des Beitrags:
Von:
Neuling		 Datum:
22.04.2021 16:04:50		 Views:
491		 Rating:
     
Antwort:
  Ja
Thema:
Buchstaben in For Next hochzählen

Ich möchte gern die Befehle unter der For Next schleife durch diese Optimieren, hierführ muss ich allerdings in der For Next Die Buchstaben einander durchlaufen. Leider bekomme ich es nicht so hin wie es soll :(

 

Dim Zahl As Integer
    Zahl = 8
    Dim Buchstabe As Integer
   
    For Buchstabe = Asc("B") To Asc("J")

        Worksheets("Offen").Range("Chr(Buchstabe)" + "8") = Worksheets("Eingabe").Range("D" + "Zahl")
        Zahl = Zahl + 2
    Next

    Worksheets("Offen").Range("B8") = Worksheets("Eingabe").Range("D6")
    Worksheets("Offen").Range("C8") = Worksheets("Eingabe").Range("D8")
    Worksheets("Offen").Range("D8") = Worksheets("Eingabe").Range("D10")
    Worksheets("Offen").Range("E8") = Worksheets("Eingabe").Range("D12")
    Worksheets("Offen").Range("F8") = Worksheets("Eingabe").Range("D14")
    Worksheets("Offen").Range("G8") = Worksheets("Eingabe").Range("D16")
    Worksheets("Offen").Range("H8") = Worksheets("Eingabe").Range("D18")
    Worksheets("Offen").Range("I8") = Worksheets("Eingabe").Range("D20")
    Worksheets("Offen").Range("J8") = Worksheets("Eingabe").Range("D22")
    Worksheets("Offen").Range("K8") = Worksheets("Eingabe").Range("D24")

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
Rot Buchstaben in For Next hochzählen
 22.04.2021 16:04:50 Neuling
NotSolved
22.04.2021 17:55:26 volti
Solved
22.04.2021 19:30:31 Gast4473
Solved
23.04.2021 08:13:21 Mase
NotSolved