Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1680to1684
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
1680to1684
1680to1684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Letzte Zeile kopieren und darunter Formel einfügen

Letzte Zeile kopieren und darunter Formel einfügen
28.03.2019 19:45:23
Guesa
Hallo Forum
Bräuchte mal wieder Eure Hilfe
Die letzte beschriebene Zeile soll kopiert werden und nur die Formeln aus dieser Zeile darunter einfügen. Wenn möglich sollte das Makro starten wenn in die leere Zeile unter der letzten beschriebenen Zeile in Spalte A geklickt wird.
Für Eure Hilfe schon mal ein Danke
Gruß, Guesa

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte Zeile kopieren und darunter Formel einfügen
28.03.2019 20:38:49
cysu11
Hi Guesa,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
lz = Cells(1048576, 1).End(xlUp).Row
If Target.Address = Range("A" & lz + 1).Address Then
ActiveCell.Offset(-1, 0).EntireRow.Copy Destination:=Range("A" & ActiveCell.Row)
Else
End If
End Sub
LG
Alexandra
AW: Letzte Zeile kopieren und darunter ....
28.03.2019 20:51:25
{Boris}
Hi,
wofür auch immer es gut sein mag: Ich gehe davon aus, dass die letzte beschriebene Zeile aus Spalte A ermittelbar ist. Gleichzeitig steht in Spalte A selbst eine Formel.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C As Range
With Target
If .Column = 1 Then
If .Count = 1 Then
If .Row = Cells(Rows.Count, 1).End(xlUp).Row + 1 Then
Rows(.Row - 1).Copy Target
For Each C In Range("A" & .Row, "Z" & .Row) 'bei Bedarf erweitern
If Not C.HasFormula Then
C.Clear
End If
Next C
End If
End If
End If
End With
End Sub
VG, Boris
Anzeige
AW: Letzte Zeile kopieren und darunter Formel einfügen
28.03.2019 21:09:20
Guesa
Danke für die Rückmeldung Cysu und Boris
werde ich direkt morgen früh ausprobieren
Gruß, Guesa
AW: Letzte Zeile kopieren und darunter Formel einfügen
29.03.2019 19:43:16
Guesa
Hallo nochmal
Nochmal ein Danke, da ich ja nur die Formeleinträge brauchte habe ich den Code von Boris genommen, nach einigem anpassen an meine Datei funktionierte es.
Gruß, Guesa

57 Forumthreads zu ähnlichen Themen

Formel für letzter Zeilenwert
Andre´

Hallo alle zusammen,
gibt es eine Formel, die mir den letzten Zeilenwert anzeigt.
Tabelle1

 BCDEFGHIJKLMN3 = letzter Zeilenwert() AnnePeter12.01.2008       Ändern4 = letzter Zeilenwert() FranzPetraLutz15.05.2008   ...
05.12.2008 07:44:00
Thread-ID: 1030336
8 Beiträge
Anzeige
Formel kopieren mit VBA bis leere Zeile
jo_cindy

HAllo, habe noch keine Formel im Archiv gefunden, die bei mir funktioniert.
Ich möchte in Spalte X ab Zeile 2 die folgende Formel einsetzen: Selection.NumberFormat = "h:mm"
ActiveCell.FormulaR1C1 = "=RC[-8]/24" Diese Formel soll dann in Spalte X solange kopiert werden, bis in Spalte A...
27.10.2009 11:02:17
Thread-ID: 1112437
6 Beiträge
Formeln nach unten kopieren bis anzugebender Zeile
Stefan

Hallo.Ich habe folgendes ProblemIch möchte von VBA in einem Sheet eine Formel nach unten kopieren lassen.
Bislang sieht das bei mir so aus: Range("G1:G1").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""","""",C[-1]/C[-2])"
Selection.AutoFill Destination:=Range("G1:G...
13.05.2002 16:02:06
Thread-ID: 120530
4 Beiträge
Anzeige
Zeilen individuelle Kopieren und einfügen
Martin

Hallo zusammen,
ich habe folgende - eigentlich recht einfaches - Problem, das ich aber nicht lösen kann.
Ich habe eine Excel-Tabelle die wie folgt aussieht:
aaa 5
bbb 6
ccc 2
Die letzte zeile zeigt an, wie oft die Zeile benötigt wird. Ausgegeben werden soll nach...
22.10.2011 12:08:19
Thread-ID: 1234979
8 Beiträge
Letzte Rechnungszeile kopieren und einfügen
Holger

Hallo Profis,
Situation:
1 Arbeitsmappe mit 3 Arbeitsblättern mit unterschiedlichen Rechnungsvorlagen.
Der Nutzer hat keinerlei Excelkenntnisse und füllt die Zeilen nur aus.
Wenn er jetzt feststellt, dass die Zeilenzahl nicht ausreicht, klickt er auf einen Button und es wird ein...
10.10.2012 22:16:17
Thread-ID: 1281447
4 Beiträge
Makrocode: Zeilen kopieren und einfügen
David

Hallo,
ich bräuchte einen Makro Code der folgendes macht:
1) bestimme die unterste Zeile (bezogen auf Spalte A) in dem aktiven Tabellenblatt
2) kopiere diese Zeile + die nächst oberen 9 Zeilen
3) füge diese kopierten Zeilen unter die unterste Zeile aus Schritt1 ein und mache daz...
14.11.2012 14:46:17
Thread-ID: 1286631
7 Beiträge
Nur sichtbare Zeilen kopieren und einfügen
Tim

Hallo zusammen,
ich habe eine Tabelle mit bereits mehreren Makros (daher auch ausgeblendete Zeilen).
Nun möchte ich der Übersicht halber nur die sichtbaren Zeilen:
- ab Zeile 12 bis zum Ende des Worksheets (das Ende variiert)
- und nur Spalte A bis Spalte D
kopieren und in...
23.09.2013 11:16:11
Thread-ID: 1331885
6 Beiträge
Zeilen kopieren und einfügen, aber nicht am Ende
Huffi

Guten Morgen,
ich habe eine Tabelle erstellt, die aus unterschiedlichen Kostenstellen besteht.
Mittels Makro kann ich eine zusätzliche makierte Zeile einfügen, bzw. löschen.
Die einzelnen Kostenstellen haben eine Zwischensumme.
Am Ende der Tabelle werden die Summen der einzelne...
07.11.2013 09:19:57
Thread-ID: 1337444
4 Beiträge
Anzeige

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
7
8
5
3
4
7
3
6
5
3
8
4
1
3
4
1
1
4
13
4
3
5
4
2
5