ich bin gerade dabei für die Arbeit eine komplexe Excel-Liste zu erstellen, leider ist dabei eine komplikation aufgetreten, welche ich gerne hier mal adressieren würde. Vielleicht kann ja jemand von EUCH-Profis mir hier etwas weiterhelfen :).
Und zwar hat meine Excel-Datei mehrere Tabellenblätter, welche wie Perioden benannt sind P01,P02,etc... über eine Eingabemaske, auf dem ersten Tabellenblatt(DataSheet) sollen Informationen in die einzelnden Perioden übertragen werden.
Da ich nicht für jede Periode den Code bei kleineren Änderungen ändern möchte, sondern nur an einer stelle umschreiben möchte hier meine Frage, wie geht das? ;)
Sub copy()
Dim A As String, B As String, I As String, J As String, K As String, L As String, M As String, _
N As String, O As String, P As String, Q As String, R As String, S As String, T As String, X As Integer
Range("A52").Value = Range("A52").Value + 1
A = Range("C6") 'Vorgangsnummer
B = Range("G6") 'WIP-JOB-Nummer
C = Range("C46") 'Datum
D = Range("C10") 'Art. Nummer
E = Range("C13") 'Lieferant
F = Range("G10") 'Art. Beschreibung
G = Range("C16") 'Seriennummer
H = Range("G13") 'Anzahl d. Rücklieferungen
I = Range("G16") 'Komponentenkategorie
J = Range("C31") 'Sequence
K = Range("D52") 'Ort des Fehlers
L = Range("A57") 'Interne Nacharbeit
M = Range("C57") 'Hersteller Garantie
N = Range("E57") 'Eigenverschulden
O = Range("F6") 'Bearbeiter
P = Range("B6") 'Fehlerbeschreibung
End Sub
Sub Daten_kopieren_einfügen()
Call copy
If Range("C59").Value = "P02 - Mai" Then
Worksheets("P02").Select
ActiveSheet.Range("A1").Select
Call paste
End If
End Sub
Sub paste()
If ActiveSheet.Range("A1").Offset(1, 0) "" Then
ActiveSheets.Range("A1").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = A
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = B
Worksheets("all").Select
ActiveSheet.Range("all").Select
ActiveCell("A1").Select
If ActiveSheet.Range("A1").Offset(1, 0) "" Then
ActiveSheets.Range("A1").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = A
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = B
End If
End If
End Sub
Das ist mein bisheriger Code, der leider nicht funktioniert....
Der Sub Daten_kopieren_einfügen()
soll die Daten aus dem Sub copy() bekommen und die dann je nach Periode in das richige Tabellenblatt via Sub paste() einfügen.
Bitte helft mir :D
Viele Grüße aus dem Norden,
Torben