Thema Datum  Von Nutzer Rating
Antwort
Rot mit .Range(Chr() & X mehrere Zellen aufrufen
07.01.2022 17:30:34 Bluemotion
NotSolved
07.01.2022 19:51:28 ralf_b
NotSolved
10.01.2022 10:11:00 Bluemotion
NotSolved
10.01.2022 11:59:30 Gast99012
Solved
10.01.2022 12:07:33 Gast99012
*****
Solved
10.01.2022 15:54:27 Gast16659
NotSolved

Ansicht des Beitrags:
Von:
Bluemotion
Datum:
07.01.2022 17:30:34
Views:
96
Rating: Antwort:
  Ja
Thema:
mit .Range(Chr() & X mehrere Zellen aufrufen

Hallo zusammen,

mein Problem ist folgendes, ich möchte mit Range(Chr() & X die Spalte über iSP für jede Schleife verschieben, für einen einzelnen Wert klappt es, aber nicht für z.B. einer Serie von 6 Stück.

Office 365

Vllt kann mir ja jemand helfen.

Dank und Gruß

Dim iReihe As Integer
For iReihe = 1 To 8 Step 1
Dim iSP As Integer
For iSP = 0 To 7 Step 1

   ActiveChart.SeriesCollection.NewSeries
        With ActiveChart.SeriesCollection(iReihe)
            .Name = "Einstellung " & iReihe
            .XValues = Worksheets("Protokoll").Range("A52, A59, A66, A73, A80, A87") 'bis hier alles ok
            .Values = Worksheets("Protokoll").Range(Chr(67 + iSP) & 53, Chr(67 + iSP) & 60, Chr(67 + iSP) & 67, Chr(67 + iSP) & 74, Chr(67 + iSP) & 81, Chr(67 + iSP) & 88)
      End With
Next iSP
Next iReihe


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 mit .Range(Chr() & X mehrere Zellen aufrufen
07.01.2022 17:30:34 Bluemotion
NotSolved
07.01.2022 19:51:28 ralf_b
NotSolved
10.01.2022 10:11:00 Bluemotion
NotSolved
10.01.2022 11:59:30 Gast99012
Solved
10.01.2022 12:07:33 Gast99012
*****
Solved
10.01.2022 15:54:27 Gast16659
NotSolved