Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1900to1904
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1900to1904
1900to1904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Neue Zeile einfügen und Formel übernehme

Neue Zeile einfügen und Formel übernehme
20.10.2022 10:08:25
Mo6R
Moin Moin,
ich bin neu in dem Thema VBA etc.
Ich habe mich schon ein bisschen eingearbeitet und einen Button erstellt, der eine gesamte Spalte nach rechtsverschiebt, bzw. eine neue Spalte einfügt.
Jetzt würde ich noch gerne, dass die neue Spalte mit den jeweiligen Formeln aus den jeweiligen links daneben liegenden Zellen gefüllt wird und dabei die Zellbezüge an die neue Spalte angepasst werden. Vielleicht kann mir jemand etwas Hilfestellung leisten.
Das ist mein bisheriger Code:

Private Sub CommandButton1_Click()
Range("H:H").EntireColumn.Insert , xlFormatFromLeftOrAbove
End Sub
Gruß Mo6R

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Glaskugel defekt
20.10.2022 10:21:17
Rudi 

und dabei die Zellbezüge an die neue Spalte angepasst werden.
woher sollen wir die Bezüge kennen?
Lad die Datei hoch.
Gruß
Rudi
AW: Glaskugel defekt
20.10.2022 10:39:17
Mo6R
Moin Rudi,
danke für deine Antwort. Hier ist die Datei.
https://www.herber.de/bbs/user/155760.xlsm
Nochmal kurz zum Verständnis. Die Zwischen Spalte G und H soll eine neue Spalte eingefügt werden, welche die gleichen Formeln wie Spalte G enthält, nur nicht mehr auf Spalte G, sondern auf Spalte H bezogen.
Gruß Mo6R
AW: hierzu ...
20.10.2022 10:47:20
neopa
Hallo Mo6R,
... in Deiner Beispieldatei sind keine Zellformeln in Spalte G vorhanden. Mann kann solche Formeln so definieren, dass sie auch bei Kopie der Spalte in der Zielspalte so rechnen wie gewünscht. Dazu bedarf es nicht VBA.
Gruß Werner
.. , - ...
Anzeige
AW: hierzu ...
20.10.2022 10:53:22
Mo6R
Hätte ich vielleicht dazusagen sollen, nur in G4, G31 und G32 sind Formeln. Alles dazwischen wird von Hand ausgefüllt.
Ich würde gerne, dass mit dem Drücken des Button eine neue Spalte erstellt wird, die die gleichen Formeln enthält, damit man dort dann weiterechnen kann, ohne manuell die Formel in Zelle H zu ziehen.
Gruß Mo6R
AW: Neue Zeile einfügen und Formel übernehme
20.10.2022 10:57:39
Daniel
Hi
ich würde Spalte G als ganzes kopieren und vor Spalte H einfügen.
Danach kann man dann die Handeingaben rauslöschen (Formeln bleiben stehen)
ob die Formeln dann auch passend in die neue Spalte übernommen werden, hängt davon ab ob schon in der Spalte G absolute und relative Zellbezüge richtig angewendet hast.
der Code wäre:

Columns(7).Copy
Columns(8).Insert Shift:=xlToRight
Columns(8).SpecialCells(xlCellTypeConstants, 23).ClearContents
Gruß Daniel
Anzeige
AW: Neue Zeile einfügen und Formel übernehme
20.10.2022 11:01:50
Mo6R
Sehr cool, so funktioniert das, wie ich es mir gewünscht habe!
Vielen Dank
Gruß Moritz

323 Forumthreads zu ähnlichen Themen

@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Anzeige
Zeile einfügen und dann die Formeln eintragen?
Selma

Hallo Leute,
wie kann ich beim Einfügen einer neue Zeile per VBA die Formel in die Zellen der eingefügte Zeile eintragen?
Sub Insert_Task() Rows(ActiveCell.Row + 1).Insert Shift:=xlUp Rows(ActiveCell.Row + 1).Select End Sub
Beispiel für die Formeln der aktive Zeile 40:
D40 =...
16.09.2008 22:51:11
Thread-ID: 1010207
6 Beiträge
Formel in nächste Zeile ziehen
Michael

Hallo zusammen hab mal wieder ein Problem
Möchte eine Formel in die nächste Zeile ziehen.
C:\----\Spiels\[001.xls]BL-Tabelle'!$B$4;"")
In der nächsten Zeile sollte dann aus 001.xls ein 002.xls erscheinen dies sollte so sein bis Zeile 200
Kann mir hierbei jemand helfen schon jetz...
24.09.2008 11:02:28
Thread-ID: 1011987
4 Beiträge
Anzeige
Schleife nächste Zelle +1
Michael

Hallo!
Wie schaff ich es in die letzte zelle zu gehen und den wert + 1 in die nächste zelle zu schreiben,
Muss ich dann mit offset arbeiten?
Mein Code!
Gruß Michael
Sub zeileLetztePlusEins() Dim zeile As Integer Dim zeileMax As Integer Dim WertZeile As Long With Sheets("...
02.02.2009 09:39:26
Thread-ID: 1046079
7 Beiträge
Objekt in Formel verwenden
Michael

Schönen Sonntagmorgen,
ich möchte mit der Bedingung, dass ein Objekt angezeigt wird oder eben nicht (innerhalb eines If-Tests) eine Berechnung durchführen.
Weiß jemand, wie ich das in die If-Formel einbaue? Die "Shapes"-Eigenschaft wie im VBA ist es offensichtlich nicht...
Wäre supe...
15.02.2009 10:45:00
Thread-ID: 1050847
5 Beiträge
AutoFill zieht Formel auch in ausgeblendete Zeilen
Andreas

Hallo Herber Fans,
hat jemand folgendes Phänomen vielleicht selbst schon einmal erfahren.
1. Manuell: Ich habe eine Formel, die nicht auf alle Zeilen ausgeweitet werden soll. Setzte also einen Filter und ziehe die Formel herunter. Nur die sichtbaren Zellen bekommen die Formel, die die v...
16.03.2009 19:33:58
Thread-ID: 1060902
2 Beiträge
Aktuelles Datum in Formel (mit Inputbox)
StefanS

Hallo zusammen,
habe folgendes Problem:
Mittels der Formel =ZÄHLENWENN(Daten!E:E;" Meine nächste Idee wäre, das Datum mittels Inpubox abzufragen (Eingabe erfolgt durch User).
Sub Auswertung() Dim datum As String datum = InputBox("Datum") Range("B7").Select ActiveCell.FormulaR1C1 =...
21.04.2009 12:49:15
Thread-ID: 1070034
4 Beiträge
OHNE VBA Wert aus Zelle +71
Tom

Hallo zusammen,
kann mir jemand sagen ob es die Möglichkeit gibt über eine Formel beim runter ziehen eines Zellbezugs den Wert des Bezugs um 71 Spaltenb zu verschieben?
Beispiel:
Tabelle1 hat in der A1 Zelle einen Wert, in der A72 Zelle wieder einen und nach weiteren 71 Zeilen wiede...
17.06.2009 00:09:09
Thread-ID: 1082093
5 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
6
5
3
2
6
4
1
3
4
3
6
3
6
12
2
11
2
4
3
10
3
2
5
7