Supportnet / Forum / Tabellenkalkulation
Formate und Formeln automatisch ín nächste Zeile
Frage
Ich habe eine Tabelle als Vorlage, in der sich in der 1. Zeile bestimmte Formatierungen und Formeln befinden.
Besteht die Möglichkeit, z. B. mit Return, diese Formeln und Formate automatisch in die nächste Zeile zu übertragen?
Antwort 1 von want2cu
Hallo Monika,
Formeln und Formate überträgst du am besten mit einfachem Kopieren und einfügen.
Wenn es sich um eine komplette Zeile handelt, dann einfach die Zeile am Zeilenkopf markieren und insgesamt kopieren.
Ich hoffe, es ist das, was du erreichen willst.
Über ein Feedback freue ich mich.
CU
want2cu
Formeln und Formate überträgst du am besten mit einfachem Kopieren und einfügen.
Wenn es sich um eine komplette Zeile handelt, dann einfach die Zeile am Zeilenkopf markieren und insgesamt kopieren.
Ich hoffe, es ist das, was du erreichen willst.
Über ein Feedback freue ich mich.
CU
want2cu
Antwort 2 von Wasserm
Hallo want2cu,
vielen Dank für Deine Antwort, diese Vorgehensweise ist mir bekannt, ich soll jedoch eine Vorlage erstellen, in der wie in meiner Anfrage beschriebenen Vorgehensweise.
vielen Dank für Deine Antwort, diese Vorgehensweise ist mir bekannt, ich soll jedoch eine Vorlage erstellen, in der wie in meiner Anfrage beschriebenen Vorgehensweise.
Antwort 3 von want2cu
Hallo Monika,
aus deiner Anfrage habe ich keine "beschriebene Vorgehensweise" entnehmen können. ;-)
Ich habe deine Anfrage so verstanden, dass es um eine Übertragungsmöglichkeit der Formate und Formeln geht.
Wenn du das z.B. per Tastendruck machen willst, könnte das nur mit VBA klappen.
Man könnte so was auch mit dem Makrorecorder aufzeichnen.
Die letzte benutzte Zeile läßt sich ja ermitteln und wenn man diese kopiert und in die darunter liegende einträgt, müßt ees eigentlich funzen.
Das Makro könntest du entweder über Tastaturkürzel, eine benutzerdefinierte Schaltfläche oder ein Symbol in der Symbolleiste ausführen lassen.
CU
want2cu
aus deiner Anfrage habe ich keine "beschriebene Vorgehensweise" entnehmen können. ;-)
Ich habe deine Anfrage so verstanden, dass es um eine Übertragungsmöglichkeit der Formate und Formeln geht.
Wenn du das z.B. per Tastendruck machen willst, könnte das nur mit VBA klappen.
Man könnte so was auch mit dem Makrorecorder aufzeichnen.
Die letzte benutzte Zeile läßt sich ja ermitteln und wenn man diese kopiert und in die darunter liegende einträgt, müßt ees eigentlich funzen.
Das Makro könntest du entweder über Tastaturkürzel, eine benutzerdefinierte Schaltfläche oder ein Symbol in der Symbolleiste ausführen lassen.
CU
want2cu
Antwort 4 von Aliba
Hi Monika,
hab zwar bekanntlicherweise von VB und Makros nicht so viel Ahnung,aber das bekomme ich auch noch auf die Reihe.
Klick mal mit der rechten Maustaste auf den Registernamen, dann "Code anzeigen" auswählen. Es öffnet sich die VB-Umgebung. Da ist ein Fenster, da kannst Du links und rechts per Dropdown verschieden Einträge auswählen. Da wählst Du rechts "BeforeDoubleclick" aus.
Zwischen die beiden angezeigten Zeilen trägst Du diesen Code ein:
Rows("1:1").Select
Selection.Copy
Rows("2:2").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
Kannst Du auch hier rauskopieren und dann einfügen.
Wenn Du nun an irgendeiner Stelle dieses Arbeitsblattes doppelklickst, wird die Zeile 1 kopiert und in Zeile 2 eingefügt.
CU Aliba
hab zwar bekanntlicherweise von VB und Makros nicht so viel Ahnung,aber das bekomme ich auch noch auf die Reihe.
Klick mal mit der rechten Maustaste auf den Registernamen, dann "Code anzeigen" auswählen. Es öffnet sich die VB-Umgebung. Da ist ein Fenster, da kannst Du links und rechts per Dropdown verschieden Einträge auswählen. Da wählst Du rechts "BeforeDoubleclick" aus.
Zwischen die beiden angezeigten Zeilen trägst Du diesen Code ein:
Rows("1:1").Select
Selection.Copy
Rows("2:2").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
Kannst Du auch hier rauskopieren und dann einfügen.
Wenn Du nun an irgendeiner Stelle dieses Arbeitsblattes doppelklickst, wird die Zeile 1 kopiert und in Zeile 2 eingefügt.
CU Aliba
Antwort 5 von want2cu
Hallo Aliba,
ich vermute mal, dass es damit wohl nicht getan sein dürfte. Würde es nur um zwei Zeilen gehen, hätte man diese auch gleich in die Vorlage integrieren können.
Ich habe eher den Verdacht, dass es darum geht, dass die Formate und Formeln aus der vorherigen Zeile übernommen werden, wenn eine neue Zeile benötigt wird. Und das ist dann nicht auf Zeile 1 und 2 beschränkt
Vielleicht klärt uns Monika mal auf, was es denn genau sein soll. ;-)
CU
want2cu
ich vermute mal, dass es damit wohl nicht getan sein dürfte. Würde es nur um zwei Zeilen gehen, hätte man diese auch gleich in die Vorlage integrieren können.
Ich habe eher den Verdacht, dass es darum geht, dass die Formate und Formeln aus der vorherigen Zeile übernommen werden, wenn eine neue Zeile benötigt wird. Und das ist dann nicht auf Zeile 1 und 2 beschränkt
Vielleicht klärt uns Monika mal auf, was es denn genau sein soll. ;-)
CU
want2cu
Antwort 6 von Wasserm
Hallo want2cu,
ja Du hast recht, es geht um eine fortlaufende Liste, in der permanent Zeilen benötigt werden.
Es handelt sich z. B. um Beträge die Personen verhandelt haben und Beträge die dann vom Einkauf tatsächlich abgeschlossen werden.
Um hier für einen bestimmten Zeitraum zu erfassen, benötige ich die Fortschreibung.
Gruß Monika
ja Du hast recht, es geht um eine fortlaufende Liste, in der permanent Zeilen benötigt werden.
Es handelt sich z. B. um Beträge die Personen verhandelt haben und Beträge die dann vom Einkauf tatsächlich abgeschlossen werden.
Um hier für einen bestimmten Zeitraum zu erfassen, benötige ich die Fortschreibung.
Gruß Monika
Antwort 7 von Aliba
Hallo,
gut dann könnte man diesen Code verwenden:
ActiveCell.EntireRow.Select
Selection.Copy
ActiveCell.Offset(1, 0).Activate
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
Es muss hier jedoch in der zu kopierenden Zeile doppelgeklickt werden und diese Zeile wird dann eins tiefer eingefügt.
NACHTEIL: Wenn man sich in der Zeile vertut, wird die Zeile überschrieben.
Aber es kommen sicherlich noch bessere Vorschläge.
CU Aliba
gut dann könnte man diesen Code verwenden:
ActiveCell.EntireRow.Select
Selection.Copy
ActiveCell.Offset(1, 0).Activate
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
Es muss hier jedoch in der zu kopierenden Zeile doppelgeklickt werden und diese Zeile wird dann eins tiefer eingefügt.
NACHTEIL: Wenn man sich in der Zeile vertut, wird die Zeile überschrieben.
Aber es kommen sicherlich noch bessere Vorschläge.
CU Aliba
Antwort 8 von want2cu
Hallo MOnika,
ihr könnt ein rotes Kreuz in den Kalender machen.
Formel-want2cu kommt mit einer Makor-LÖsung:
Sub kopieren()
'
' kopieren Makro
' Makro am 17.12.2003 von want2cuaufgezeichnet
'
ActiveCell.Offset(1, 0).Activate
Range("A1").Select
Selection.End(xlUp).Select
Selection.End(xlDown).Select
ActiveCell.EntireRow.Select
Selection.Copy
ActiveCell.Offset(1, 0).Activate
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
End Sub
Damit wird automaitisch die letzte beschriebene Zeile ermittelt und dann nach unten kopiert.
Bei mir hat es im Test geklappt, ich hoffe, dass es bei anderen auch funzt und freue mich über ein Feedback.
@nighty: siehste, geht doch ;-)))
CU
want2cu
ihr könnt ein rotes Kreuz in den Kalender machen.
Formel-want2cu kommt mit einer Makor-LÖsung:
Sub kopieren()
'
' kopieren Makro
' Makro am 17.12.2003 von want2cuaufgezeichnet
'
ActiveCell.Offset(1, 0).Activate
Range("A1").Select
Selection.End(xlUp).Select
Selection.End(xlDown).Select
ActiveCell.EntireRow.Select
Selection.Copy
ActiveCell.Offset(1, 0).Activate
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
End Sub
Damit wird automaitisch die letzte beschriebene Zeile ermittelt und dann nach unten kopiert.
Bei mir hat es im Test geklappt, ich hoffe, dass es bei anderen auch funzt und freue mich über ein Feedback.
@nighty: siehste, geht doch ;-)))
CU
want2cu
Antwort 9 von fehmarn-online
Hm, bei mir mal wieder nicht...???
Das Makro in "Diese Arbeitsmappe" eingefügt aber nix passiert, wenn ich eine Formel eintippe bzw die Felder berechnen lasse.
Das Makro in "Diese Arbeitsmappe" eingefügt aber nix passiert, wenn ich eine Formel eintippe bzw die Felder berechnen lasse.
Antwort 10 von Wasserm
Hallo want2cu,
leider tut sich bei meiner Exceltabelle nichts, habe ein Makro mit Tastenkombination erstellt. Nur das Problem, ich gelange immer in die Zeile, die ich markiert habe.
Gruß Monika
leider tut sich bei meiner Exceltabelle nichts, habe ein Makro mit Tastenkombination erstellt. Nur das Problem, ich gelange immer in die Zeile, die ich markiert habe.
Gruß Monika
Antwort 11 von Aliba
Hi Monika,
welche Tastenkombination hast Du denn für das Makro vergeben. Kann sein, daß diese bereits von Excel vorbesetzt ist und somit das Makro gar nicht ausgelöst wird.
Bei mir funzt das Makro.
CU Aliba
welche Tastenkombination hast Du denn für das Makro vergeben. Kann sein, daß diese bereits von Excel vorbesetzt ist und somit das Makro gar nicht ausgelöst wird.
Bei mir funzt das Makro.
CU Aliba
Antwort 12 von want2cu
Danke ALiba!!!
Das ist nämlich das erste mal, das ich mich an einem VBA-Makro versucht habe. Ich bin ja sonst eigentlich nur für Formeln zuständig und habe von VBA keine Ahnung (sehr zur FReude von nighty).
Aber dieses Mal hat die Sache zumindest bei meiner Testdatei einwandfrei geklappt.
Wenn es bei dir auch funzt, bin ich schon deutlich mehr beruhigt und hoffe, dass sich das auch bei Monika und fehmarn-online einstellen wird.
CU
want2cu
Das ist nämlich das erste mal, das ich mich an einem VBA-Makro versucht habe. Ich bin ja sonst eigentlich nur für Formeln zuständig und habe von VBA keine Ahnung (sehr zur FReude von nighty).
Aber dieses Mal hat die Sache zumindest bei meiner Testdatei einwandfrei geklappt.
Wenn es bei dir auch funzt, bin ich schon deutlich mehr beruhigt und hoffe, dass sich das auch bei Monika und fehmarn-online einstellen wird.
CU
want2cu
Antwort 13 von Wasserm
Hallo want2cu,
Aliba hatte recht, ich habe keine Tastenkombination eingetragen, sondern einfach Deine VBA kopiert.
Was Du jedoch mit VBA-Schreiben erledigt hast, geht mit einfachem Makro erstellen doch auch, dachte evtl. ob es möglich ist, daß nach dem Einfügen der Zeile, der Cursor dann auch auf der Zelle stehen bleibt, in der ich das Makro eingefügt habe, der Cursor geht jedoch wie auch bei meinem Makro wieder in die Zeile 1 bzw. bei mir Zeile 10.
Jedoch vielen Dank für Eure Bemühungen.
Gruß Monika
Aliba hatte recht, ich habe keine Tastenkombination eingetragen, sondern einfach Deine VBA kopiert.
Was Du jedoch mit VBA-Schreiben erledigt hast, geht mit einfachem Makro erstellen doch auch, dachte evtl. ob es möglich ist, daß nach dem Einfügen der Zeile, der Cursor dann auch auf der Zelle stehen bleibt, in der ich das Makro eingefügt habe, der Cursor geht jedoch wie auch bei meinem Makro wieder in die Zeile 1 bzw. bei mir Zeile 10.
Jedoch vielen Dank für Eure Bemühungen.
Gruß Monika
Antwort 14 von Aliba
Hi Monika,
ist kein Problem.
Lösche einfach die vorletzte Zeile des Codes und füge am Schluss
ActiveCell.Select
ein.
Sollte dann so aussehen.
Du befindest Dich dann in Spalte A der eingefügten ZEile.
Sub kopieren()
ActiveCell.Offset(1, 0).Activate
Range("A1").Select
Selection.End(xlUp).Select
Selection.End(xlDown).Select
ActiveCell.EntireRow.Select
Selection.Copy
ActiveCell.Offset(1, 0).Activate
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Select
End Sub
CU Aliba
ist kein Problem.
Lösche einfach die vorletzte Zeile des Codes und füge am Schluss
ActiveCell.Select
ein.
Sollte dann so aussehen.
Du befindest Dich dann in Spalte A der eingefügten ZEile.
Sub kopieren()
ActiveCell.Offset(1, 0).Activate
Range("A1").Select
Selection.End(xlUp).Select
Selection.End(xlDown).Select
ActiveCell.EntireRow.Select
Selection.Copy
ActiveCell.Offset(1, 0).Activate
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Select
End Sub
CU Aliba
Antwort 15 von want2cu
jipiiiiieeeeh!
Mein erster VBA-Vorschlag hat dann also doch geklappt :-)))
<want2cugehtzumkalenderundmachteinroteskreuz>
CU
want2cu
Mein erster VBA-Vorschlag hat dann also doch geklappt :-)))
<want2cugehtzumkalenderundmachteinroteskreuz>
CU
want2cu
Antwort 16 von nighty
hi want2cu
TATAAA ein hoch :)
gruss nighty
TATAAA ein hoch :)
gruss nighty
Antwort 17 von want2cu
@nighty,
mit so einem TATAAA hatt ich überhaupt ncht mehr gerechnet.
Und dann noch von dir. Welche Ehre! Das hat mich wirklich riesig gefreut.
Das macht mir Mut, mich künftig auch mal mit was anderem als Formeln zubeschäftigen :-)))
EInen guten Übergang und ein gutes, gesundes und zufriedenes neues Jahr wünsche ich dir und natürlich auch allen anderen
Cu
want2cu
mit so einem TATAAA hatt ich überhaupt ncht mehr gerechnet.
Und dann noch von dir. Welche Ehre! Das hat mich wirklich riesig gefreut.
Das macht mir Mut, mich künftig auch mal mit was anderem als Formeln zubeschäftigen :-)))
EInen guten Übergang und ein gutes, gesundes und zufriedenes neues Jahr wünsche ich dir und natürlich auch allen anderen
Cu
want2cu