Hallo zusammen,
[b]ein paar Daten:
Tabellen:[/b]
BSF_Barcode
BSF_Ausdruck
[b]erstes Macro:[/b]
[code]Sub druckbsf()
On Error Resume Next
Application.ScreenUpdating = False
With Worksheets("BSF_Barcode")
'kopiert L4 in Tabelle BSF_Barcode
.Range("L4").Copy
End With
With Worksheets("BSF_Ausdruck")
'fügt das vorher kopierte L4 aus Tabelle BSF_Barcode in A1 in Tabelle BSF_Ausdruck wieder ein
.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
With Worksheets("BSF_Barcode")
'kopiert K4 in Tabelle BSF_Barcode
.Range("K4").Copy
End With
With Worksheets("BSF_Ausdruck")
'fügt das vorher kopierte K4 aus Tabelle BSF_Barcode in A3 in Tabelle BSF_Ausdruck wieder ein
.Range("A3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'zeigt BSF_Ausdruck kurz an
.Visible = xlSheetVisible
'druckt BSF_Ausdruck
.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
'schließt BSF_Ausdruck wieder
.Visible = xlSheetVeryHidden
End With
Application.ScreenUpdating = True
On Error GoTo 0
End Sub[/code]
Das ganze funktioniert bis hierher auch. Ich müsste jetzt aber für jede Zeile wo aus K und L kopiert wird ein eigenes Macro schreiben zumal auch beim hinzufügen eventueller neuer Daten auch das Macro ständig bearbeitet werden müsste.
Ich dachte so an:
Drücke Button, es erscheint eine Abfrage welche Nummer aus Spalte B gesucht werden soll
zb. [xurl=
http://jamaipa.de|Jamaipa - Suche ohne Spam und Shops]suche[/url] in Spalte B Tabelle1die Nummer 5, kopiere dann eben K6 und füge in Tabelle2 A3 wieder ein - kopiere dann eben L6 und füge in Tabelle2 A1 wieder ein
Zellen wo eingefügt wird bleiben immer gleich nur aus der Zeile wo kopiert wird verändert sich.
Hat hier jemand einen Plan wie man das umsetzen könnte?
Mit freundlichen Grüßen
energun222