Thema Datum  Von Nutzer Rating
Antwort
Rot Übertrag mit Wiederholungsschleife
 18.02.2021 09:50:48 Saman
NotSolved
18.02.2021 19:34:42 volti
*****
Solved
19.02.2021 20:02:09 Gast66814
NotSolved

Ansicht des Beitrags:
Von:
Saman		 Datum:
18.02.2021 09:50:48		 Views:
511		 Rating:
     
Antwort:
  Ja
Thema:
Übertrag mit Wiederholungsschleife

Guten Tag, 

ich habe ein Problem, welches ich einfach nicht gelöst kriege. Ich habe in VBA einen Code verfasst, mit dem ich Daten aus einem Tabellen Blatt in das andere übetragen kann (Tabelle wechselt von vertikal zu horizontal). Nun möchte ich, dass dies über eine Wiederholungsschleife geschieht, statt über den umständlichen Code den ich verfasst habe. Ich habe mich lange eingelesen, aber kriege es einfach nicht hin. 

Benötige ich eine For / Next Schleife? Muss ich hier ein Cell-Kommando nutzen? Und wenn ja, wie muss der Befehl lauten?

Hier mein aktueller Code:

?

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

Sub Übertrag()

 

Dim Januar as String, Februar as String, März As String

 

Worksheets("vertikal").Select

Januar = Range("B6")

Februar = Range("B7")

März = Range("B8")

 

Worksheets("horizontal").Select

Worksheets("horizontal").Range("B5").Select

 

 

ActiveCell.Value = Januar

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = Februar

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = März

 

 

End Sub

Für Hilfe bedanke ich mich schonmal im vorraus!

Grüße
Saman

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 Übertrag mit Wiederholungsschleife
 18.02.2021 09:50:48 Saman
NotSolved
18.02.2021 19:34:42 volti
*****
Solved
19.02.2021 20:02:09 Gast66814
NotSolved