Hallo forum!
Ich wäre Euch für jede Hilfe/ jeden Ansatz seeehr dankkbar!
Eine grobe Schilderung meines Problems:
Es gibt 2 Excel-Dateien: eine Ausgangsdatei VL, die ständig wächst und gedeiht und eine Etikettendatei E, in die Werte aus der Ausgangsdatei VL eingefügt werden. E dient dazu, bestimmte Werte aus VL auf Klebeetiketten auszudrucken. Auf einer Seite sind 8 Klebetiketten, d.h. das Makro könnte max. 8 Zeilen von VL auf einmal in E einfügen und dann ausdrucken.
Ich möchte jetzt, dass ein Makro mir automatisch bestimmte Zellen aus markierten Zeilen der VL in bestimmte Zellen von E überträgt.
Da aber nicht alle Zellen jeder Zeile von VL in E übertragen werden sollen, gibt es die Möglichkeit, die zu übertragenden Zeilen mit einem „X“ zu markieren.
Die Probleme, die ich jetzt habe:
- Es gibt schon einen Code (s.u.), der dafür sorgt, dass ich das 1. der 8 Etiketten automatisch füllen kann. Was ich aber nicht hinbekomme, ist, dass jede Zeile in einem neuen Etikett „angesiedelt“ wird. Wie produziere ich „Sprünge“ nach rechts?
Das 2. und vielleicht größere Problem ist der Abruf der X-Markierung einer Zeile, d.h. dass er wirklich nur die Zeilen mit einem X betrachtet. In einem vorherigen Eintrag gab es ein Makro bezüglich SVERWEIS (war schon ganz lehrreich), aber ich bekomme die Verknüpfung zwischen diesem und meinem eigenen Makro nicht hin.
Hier ist nochmal mein Code, vielleicht sorgt er dafür, dass meine Fragestellung etwas klarer wird. Außerdem enthält er meine Zellebzüge, die benötigt werden.
Ich danke für jede Antwort!! Es wäre schön, wenn jemand schnell einen Ansatz hätte, da ich Samstag in Urlaub fahre und die Lösung meines Problems mich brennend interessiert!!! (Oder zumindest die Aussicht, dass ich es lösen könnte)
MfG, Excel-Puttmacher
Option Explicit
'Etikettenbezüge:
'1. Etikett: Beginn $B$9
'2. Etikett: Beginn $G$9
'3. Etikett: Beginn $L$9
'4. Etikett: Beginn $Q$9
'5. Etikett: Beginn $B$30
'6. Etikett: Beginn $G$30
'7. Etikett: Beginn $L$30
'8. Etikett: Beginn $Q$30
Sub Testliste()
Dim Ernte As Worksheet
Dim Partie As Integer
Set Test = Worksheets(„Testliste“)
Partie = 2
Do Until IsEmpty(Test.Cells(Partie, 17))
Range("$B$9") = (Test.Cells(Partie, 17))
Partie = Partie + 1
Loop
'PartieNr. wird eingetragen
'Dim Etiketten As Worksheet
'Set Etiketten = Worksheets(„Etiketten“)
'Dim etik As Long
Dim Name As Integer
Set Test = Worksheets(„Testliste“)
Name = 2
Do Until IsEmpty(Test.Cells(Name, 8))
Range("$B$7") = (Test.Cells(Name, 8))
Name = Name + 1
Loop
'Name wird eingetragen
Dim kf As Integer
Set Test = Worksheets(„Testliste“)
kf = 2
Do Until IsEmpty(Test.Cells(kf, 39))
Range("$B$13") = (Test.Cells(kf, 39))
kf = kf + 1
Loop
'kf wird eingetragen
Dim TKG As Integer
Set Test = Worksheets(„Testliste“)
TKG = 2
Do Until IsEmpty(Test.Cells(TKG, 38))
Range("$B$15") = (Test.Cells(TKG, 38))
TKG = TKG + 1
Loop
'TKG wird eingetragen
Dim Gewicht As Integer
Set Test = Worksheets(„Testliste“)
Gewicht = 2
Do Until IsEmpty(Test.Cells(Gewicht, 44))
Range("$B$17") = (Test.Cells(Gewicht, 44))
Gewicht = Gewicht + 1
Loop
'Gewicht wird eingetragen
Dim Behandlung As Integer
Set Test = Worksheets(„Testliste“)
Behandlung = 2
Do Until IsEmpty(Test.Cells(Behandlung, 41))
Range("$A$20") = (Test.Cells(Behandlung, 41))
Behandlung = Behandlung + 1
Loop 'Behandlung wird eingetragen
End Sub
