Thema Datum  Von Nutzer Rating
Antwort
14.09.2016 10:21:13 Phillo
NotSolved
Blau Zeilen einfügen um Gesamtanzahl aller Zeilen
14.09.2016 13:58:00 Gast15000
Solved
15.09.2016 14:50:42 Phillo
NotSolved

Ansicht des Beitrags:
Von:
Gast15000
Datum:
14.09.2016 13:58:00
Views:
682
Rating: Antwort:
 Nein
Thema:
Zeilen einfügen um Gesamtanzahl aller Zeilen

Moin! Das hier wäre eine Möglichkeit. VG

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
Sub kopieren()
Dim zeileA As Long
Dim zeileB As Long
Dim durchlauf As Long
'Zeilen in Blatt 1
zeileA = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
'Zeilen in Blatt 2, könnte man noch anpassen, damit man nichts überschreibt
zeileB = 1
'für die Zuordnung
With Worksheets(2)
'so oft wie zeilen - mind. einmal
For durchlauf = 1 To zeileA
    'Bereich in Spalte A bekommt den Wert der Zeile 1 aus Blatt 1
    .Range(.Cells(zeileB, 1), .Cells(zeileB + zeileA - 1, 1)) = Worksheets(1).Range("A" & durchlauf).Value
    'Bereich in Spalte B bekommt die Werte der Spalte B aus Blatt 1
    .Range(.Cells(zeileB, 2), .Cells(zeileB + zeileA - 1, 2)) = Worksheets(1).Range("B1:B" & zeileA).Value
    'nächste freie Zeile in Blatt 2 festlegen
    zeileB = zeileB + zeileA
Next durchlauf
End With
 
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
14.09.2016 10:21:13 Phillo
NotSolved
Blau Zeilen einfügen um Gesamtanzahl aller Zeilen
14.09.2016 13:58:00 Gast15000
Solved
15.09.2016 14:50:42 Phillo
NotSolved