Zeilen variabel oft kopieren und einfügen

Hallo Forum,
ich tüftle seit einiger Zeit vergebens an folgender Aufgabe und bitte um eure Hilfe:
Ich habe in einer Mappe zwei Sheets: Tab1 und Tab2
In Tab1 importiere ich Daten mit Hilfe des Textkonvertierungsassistenten aus einer txt-Datei.
Die txt-Datei kann unterschiedlich viele Datenzeilen liefern.
Das funktioniert soweit zufriedenstellend.
In Tab2 benötige ich für die weitere Bearbeitung (Diagramm) aus einem Bereich der Tab1, ab Zeile 10 abwärts, nur Werte aus nichtleeren Zeilen.
In Tab2 befinden sich in Zeile1 über die Spalten A:D Formeln mit Bedingungen, die Tab1!A10:D10 betreffen.
Meine Idee ist nun, die Zeile1 der Tab2 per Makro sooft zu kopieren und untereinander anzuordnen, das alle nichtleeren Zeilen der Tab1 ab Zeile10 abgefragt werden können.
Dazu meine ich, müsste ich einen Zähler in Tab1 anschmeißen und die Anzahl der nichtleeren Zeilen ermitteln. Danach müsste die Zeile1 in Tab2 entsprechend oft kopiert werden. Hört sich simpel an, doch dass ist für mich leider zu hoch!
Wer kann mir bitte helfen? Vorab schon einmal vielen Dank.
Gruß Bernd

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Bernd,
hier ist das Makro.
Du solltest evtl. andere Formel verwenden, um die DAtumsangaben zu übernehmen und Fehler zu korrigieren.
ALterntiv-Formel für B10:

=WENN(TYP(DATWERT(Tab1!B1))=16;DATWERT("01.01.1900");DATWERT(Tab1!B1))

Spalte C un d D dann entsprechend.
Diese Formel liefert echte Excel-Datumswerte, während bei deinen Formeln das Datum Text bleibt.
Gruß
Franz

Sub FormelnKopieren()
Dim wksQuelle As Worksheet
Dim wksZiel As Worksheet
Dim AnzahlZeilen As Long
Set wksQuelle = Worksheets(1)
Set wksZiel = Worksheets(2)
'Prüfen, ob Grundversion
If (wksZiel.Cells(10, 1).FormulaLocal = "=" & wksQuelle.Name & "!A1" _
Or wksZiel.Cells(10, 1).FormulaLocal = "='" & wksQuelle.Name & "'!A1") _
And IsEmpty(wksZiel.Cells(11, 1)) _
And wksZiel.Cells(12, 1).Value = "Abteilung" Then
With wksQuelle
'Letzte Zeile mit Inhal in Spalte A in Text-Import
AnzahlZeilen = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
With wksZiel
'Leerzeilen einfügen
.Range(.Rows(11), .Rows(11 + AnzahlZeilen - 2)).Insert
'Formeln mit Formaten nach unten ausfüllen
.Range(.Rows(10), .Rows(10 + AnzahlZeilen - 1)).FillDown
End With
wksZiel.Activate
Range("A8").Select
Else
MsgBox "Tabelle """ & wksZiel.Name & """ liegt nicht in der Grundform vor!  "
End If
End Sub

Beliebteste Forumthreads (12 Monate)

Zeilen variabel oft kopieren und einfügen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

364 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen variabel oft kopieren und einfügen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

364 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread