Thema Datum  Von Nutzer Rating
Antwort
Rot via jede 3te Spalte kopieren und einfügen
 05.05.2019 21:11:32 Faten
NotSolved
06.05.2019 07:11:02 Gast34840
*****
NotSolved
06.05.2019 10:13:17 Faten
Solved

Ansicht des Beitrags:
Von:
Faten		 Datum:
05.05.2019 21:11:32		 Views:
736		 Rating:
     
Antwort:
  Ja
Thema:
via jede 3te Spalte kopieren und einfügen

Hallo zusammen, 

ich habe eine Excel _Tabelle aus der ich jede 3te Spalte  kopieren und in ein anderes Tabellenblatt nebeneinander einfügen möchte. 

Aus dieser möchte ich dann per Aufruf eine bestimmte Zeile als Diagramm darstellen möchte. 

Kann mir da jmd weiterhelfen??

 

Mein code kopiert und fügt jedoch nur eine Spalte ein, statt weiter jeweils die 3te Spalte zu kopieren und einzufügen. 

 

Vielen Dank schon mal!

Sub Kopieren()
Dim WkSh_Q   As Worksheet ' Tabellenblatt Quelle / Herkunft
Dim WkSh_Z   As Worksheet ' Tabellenblatt Ziel
Dim lZeile   As Long      ' For/Next Zeilen-Index
Dim iSpalte  As Long      ' For/Next Spalten-Index
Dim lZeile_Z As Long      ' Zeilenindex im Ziel Blatt
Dim iSpalte_Z As Long     ' Spaltenindex im Ziel Blatt

  Set WkSh_Q = Worksheets("Sheet1")  ' <= Namen anpassen
  Set WkSh_Z = Worksheets("Sheet2")  ' <= Namen anpassen

  lZeile_Z = 2 ' <= Start-Zeile im Ziel-Blatt
  iSpalte_Z = 2


  For iSpalte = 6 To 99 Step 3
     For lZeile = 1 To 199
        WkSh_Z.Cells(lZeile_Z, iSpalte_Z).Value = WkSh_Q.Cells(lZeile,
iSpalte).Value
        lZeile_Z = lZeile_Z + 1
     Next lZeile
     Next iSpalte
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
Rot via jede 3te Spalte kopieren und einfügen
 05.05.2019 21:11:32 Faten
NotSolved
06.05.2019 07:11:02 Gast34840
*****
NotSolved
06.05.2019 10:13:17 Faten
Solved