Supportnet / Forum / Tabellenkalkulation

Hallo Alle zusammen, ich brauch mal wieder Eure Hilfe! Ich hab eine Tabelle erstellt, wo in Spalte A eine Bezugsnummer (z.B. 1500) eingetragen werden muss. In Spalte C steht ein Datum was automatisch beim anlegen einer neuen Bezugsnummer in einer neuen Zeile eingefügt wird. In den Spalten J, K, O, P, und Q sind Formmel mit Sverweise eingetragen. Jetzt meine Frage: Wie ist das zu manchen, wenn eine neue Bezugnummer angelegt wird (z.B.1500) nicht nur das Datum automatisch in die Zelle eingefügt wird, sondern auch das aus der Zeile davor die Formeln kopiert werden und dann auch in die neue Zeile in den entsprechenden Spalten eingefügt werden. Vielen Dank für Eure Hilfe!!!! Gruß Elhamplo

Hallo,

ich habe es nicht ganz verstanden wsa du willst, die Formeln kannst du doch einfach nach unten ziehen.

Falls du das nicht meinst, stell mal ein Beispiel ein.

Gruß

Helmut

Hey Helmut,

das meinte mit Formel runterziehen meinte ich nicht.

Ich meinte, wenn ich in Spalte A eine Bezugnummer eingebe soll in Spalte C in der entsprechenden Zeile das Datum eingefügt werden (ist erledigt) und in den anderen Spalten J, K, O, P, und Q sollen dann die Formeln die in den vorherigen Zeilen schon drin sind mit eingefügt werden.

Wie kann man denn ein Beispiel einstellen??

Gruß

Elhamplo

Nabend Elhamplo,

was Helmut mit dem Beispiel einstellen meint, Du sollst das mal anhand eines Beispiels erklären. Das kann man nirgends einstellen.

Ich hätte da mal ersten Lösungsversuch. Kopiere den Code in das Tabellenblatt, in dem Du in Spalte A Deine Nummer eingibst und in dem dann in Spalte C das Datum und in den anderen Zellen die Formel von der Vorzeile eingetragen werden sollen.

 Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Not IsEmpty(Target.Cells) Then
Cells(Target.Row, 3) = Format(CDate(Now), "dd.mm.yyyy")
Range(Cells(Target.Row - 1, 10), Cells(Target.Row - 1, 11)).Copy Cells(Target.Row, 10)
Range(Cells(Target.Row - 1, 15), Cells(Target.Row - 1, 17)).Copy Cells(Target.Row, 15)
End If
End If
End Sub 

Der Code trägt nach Eingabe in Spalte A in der gleichen Zeile in Spalte C das Datum ein. Außerdem werden die Zellen J, K, O, P und Q aus einer Zeile davor kopiert und in der gleichen Zeile wie das Datum eingetragen.

Ich hoffe, dass die Lösung wenigstens vom Ansatz her schon mal was ist. Wenn nicht, dann kann ich Helmut nur beipflichten, benötigt man mehr Infos und eventuell ein Beispiel.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hey Coros,

sorry, das ich mich erst jetzt Melde. Danke für den Code. Das Funst und das suchte ich. Danke!!!!!

Noch mal eine andere Frage: Wie kann ich Pflichtfelder deklarieren?

Z.B man hat eine Tabelle und Pro Zeile sind Zellen auzufüllen. So muss man z.B. die Zellen in den Spalten D,E,F,H,K,L ausfüllen. Kann man das dann so machen wenn die Zelle in Spalte D nicht ausgefüllt, so kann man nicht auf die nächste Zelle in E usw. ??

Gruß

Elhamplo

Hallo

müsste mit Gülitigkeitsprüfung funktionieren

Gruß

Helmut

Hey Saarbauer,

Sorry, das ich mich erst jetzt melde, war krank.

Habs leider nicht hinbekommen mit den Pflichtfeldern, ist aber nicht so schlimm, hab das anders gelöst.

Ich dank Dir aber für Deine Hilfe!!!

Gruß

Elhamplo

• formel kopieren
• Formeln unterdrücken
• Formeln kopieren
• Formel weiterführend kopieren