Kopieren

Norbert · 2015-07-17T11:43:16+00:00

Hallo Spezialisten Es geht um 2 Tabellenblätter im Tabellenblatt Daten habe ich diverse Datensätze (bis ca. Zeile 250 und Spalte W) Im Tabellenblatt Formular (siehe Beispiel) habe ich ein Formular gestaltet. Ist es nun möglich, dass es mir pro Datensatz das ganze Formular im gleichen Tabellenblatt in einem Zuge nach unten kopiert? Bezeichnung "Text" ist immer gleich benannt Bezeichnung "Variabel" hole ich den jeweiligen Wert mittels sverweis vom Datenblatt. Geht dies mit einem VBA-Script? Danke für die Hilfe https://www.herber.de/bbs/user/98895.xlsx

Hi zusammen,
ich schließe mich Klexy an: das Blatt "Daten" ist schlicht leer!
Die grundsätzliche Frage ist, wozu das überhaupt gut sein soll. Wenn ich das "datenbankmäßig" betrachte, braucht es nämlich nur eine Liste der Daten (wie theoretisch in "Daten" vorhanden) und *ein* Formular, aus dem man diverse Funktionalität generiert, sei es z.B. für die Eingabe von Daten oder eben auch einen Ausdruck - der kann dann nämlich ähnlich wie ein Word-Serienbrief gestaltet werden.
Also, was möchtest Du damit machen?
In Deinem Beispiel sind übrigens *zwei* Leerzeilen zwischen den beiden "Formularen".
Für so etwas nimmt man sinnvollerweise INDEX. Ich habe Deine Tabelle etwas geändert: das bisherige Blatt Formular heißt jetzt Formular-Vorlage: das wird dazu verwendet, alle Formeln einzugeben: orientiere Dich am Beispiel in B4. Der Index wird über den Wert in Q4 gesteuert; steht hier eine 1, wird der erste Wert angezeigt, steht da eine 2, der zweite usw. bis 250. Das (zu erstellende) Makro schreibt dann hier die jeweilige Zahl rein, von 1 bis [vorhandene Zeilen] und kopiert aus der Formular-Vorlage "weg" (also etwa in "Formular-Ausgabe") bzw. druckt...
Deine "variablen" Felder mußt Du halt entsprechend verINDEXen. Vielleicht erstellst Du für uns mal 5 Zeilen & Spalten Spieldaten und verformelst sie, dann können wir uns in VBA austoben.
Die Datei: https://www.herber.de/bbs/user/98924.xlsx
Schöne Grüße,
Michael

So sollte es gehen.
Ich hab alle Angaben als Variablen angelegt, damit du sie leicht ändern kannst, wenn sich das Formular oder die Blattnamen oder was auch immer ändern sollten.

Sub Formular_fuer_jeden_Datensatz_kopieren()
Dim Quellblatt As Worksheet, Zielblatt As Worksheet
Set Quellblatt = Worksheets("Daten")
Set Zielblatt = Worksheets("Formular-Vorlage")
Dim Höhe As Integer, Breite As Integer, Abstand As Integer
Höhe = 30 ' Höhe des Formulars
Breite = 12 ' Breite des Formulars
Abstand = 2 ' Abstand zwischen 2 Formularen
Dim Formular As Range, Schlüssel As Double, i As Integer, Schlüsselzelle As Range
Set Formular = Zielblatt.Range(Cells(1, 1), Cells(Höhe, Breite))
Formular.Select ' nur zur Verdeutlichung
For i = 3 To Quellblatt.UsedRange.Rows.Count
Schlüssel = Quellblatt.Cells(i, 1).Value
Formular.Copy Formular.Offset((i - 2) * (Höhe + Abstand), 0)
Formular.Offset((i - 2) * (Höhe + Abstand), 0).Select ' nur zur Verdeutlichung
Set Schlüsselzelle = Formular.Offset((i - 2) * (Höhe + Abstand), 0).Cells(1).Offset(3, 1)
Schlüsselzelle.Select ' nur zur Verdeutlichung
Schlüsselzelle = Schlüssel
Next i
MsgBox "Fertig" ' damit man weiß, wann es zu Ende geruckelt hat
End Sub

Forumthread: Kopieren

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Kopieren

Forumthread: Kopieren

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread