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:
575		 Rating:
     
Antwort:
 Nein
Thema:
Zeilen einfügen um Gesamtanzahl aller Zeilen

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

 

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