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
1608to1612
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
1608to1612
1608to1612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel in letzter Spalte

Formel in letzter Spalte
28.02.2018 14:26:54
Hans
Hallo,
Ich habe eine Datentabelle, die immer eine verschiedene Zeilenanzahl und verschiedene Spaltenanzahl haben kann.
Ich will nun in der der ersten freien Spalte eine Überschrift und Formel eintragen.
In der Zeile 1 der ersten freien Spalte soll die Überschrift rein und in die Zeile 2 der selben Spalte die Formel (=D2).
Diese Formel soll nun bis zur letzten verwendeten Zeile nach unten automatisch ausgefüllt werden.
Bisher mache ich diesen Schritt je nach Bedarf von Hand.
LG

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel in letzter Spalte
28.02.2018 14:35:55
Werner
Hallo Hans,
so: 
Public Sub Formel()
Dim loLetzte As Long, loSpalte As Long
With ThisWorkbook.Worksheets("Tabelle1") 'Blattname anpassen
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
loSpalte = .Cells(1, .Columns.Count).End(xlToLeft).Column
.Cells(1, loSpalte + 1) = "Deine Überschrift"
.Range(.Cells(2, loSpalte + 1), .Cells(loLetzte, loSpalte + 1)).FormulaLocal = "=D2"
End With
End Sub
Gruß Werner
AW: Formel in letzter Spalte
28.02.2018 14:44:08
UweD
Hallo
so?
Sub TT()
    On Error GoTo Fehler
    Dim TB
    Dim LC As Integer, LR As Double

    
    Set TB = Sheets("Tabelle1")
    
    LC = TB.Cells(1, TB.Columns.Count).End(xlToLeft).Column + 1 'erste freie Spalte einer Zeile 
    RR = TB.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile des gesamten Blattes 
    
    TB.Cells(1, LC) = "Ü xxxx"
    TB.Cells(2, LC).Resize(RR).FormulaR1C1 = "=RC4"
    
    
    '*** Fehlerbehandlung 
    Err.Clear

Fehler:
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub

LG UweD
Anzeige
AW: Formel in letzter Spalte
28.02.2018 14:46:56
Hans
Hallo,
voll der Hammer. Vielen Dank an beide, Danke
Gerne u. Danke für die Rückmeldung. o.w.T.
28.02.2018 14:51:24
Werner
AW: Formel in letzter Spalte > intelligente Tab
28.02.2018 14:48:40
Werner
Hallo
ein anderer Tipp "ganz ohne VBA"
Die Tabelle als "intelligente Tabelle" Strg + T
Dann in der letzten Spalte die Formel einfügen
Bei Erweiterung der Tabelle wird die Formel automatisch von Excel eingetragen
Gruß
Werner
AW: Formel in letzter Spalte > intelligente Tab
28.02.2018 15:45:33
Hans
Hallo,
ich will nun auch noch eine "ZÄHLENWENN-Formel" eintragen. Folgende Formel funktioniert
ActiveCell.FormulaR1C1 = "=COUNTIF(RC[-90]:RC[-1],""W"")"
Ich muss aber jedesmal bei veränderter Spaltenanzahl eingreifen.
Kann man die Formel so ändern, dass sie bei einer flexible Spaltenanzahl funktioniert.
Z.B. ActiveCell.FormulaR1C1 = "=COUNTIF(A4:RC[-1],""W"")"
LG
Anzeige
AW: Formel in letzter Spalte > intelligente Tab
28.02.2018 19:47:11
Werner
Hallo Hans,
meinst du so? 
ActiveCell.FormulaR1C1 = "=COUNTIF(RC1:RC[-1],""W"")"
oder absolut auf A4 ($A$4)? 
ActiveCell.FormulaR1C1 = "=COUNTIF(R4C1:RC[-1],""W"")"
Gruß Werner
AW: Formel in letzter Spalte > intelligente Tab
01.03.2018 06:32:33
Hans
Hallo,
ja so in der Art.
Nun soll diese Formel in das obige Makro integriert werden, so dass die Formel in die erste leere Spalte geschrieben wird und bis zur letzen Zeile ausgefüllt wird.
Public Sub Formel()
Dim loLetzte As Long, loSpalte As Long
With ThisWorkbook.Worksheets("Tabelle1") 'Blattname anpassen
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
loSpalte = .Cells(1, .Columns.Count).End(xlToLeft).Column
.Cells(1, loSpalte + 1) = "Deine Überschrift"
.Range(.Cells(2, loSpalte + 1), .Cells(loLetzte, loSpalte + 1)).ActiveCell.FormulaR1C1 = "= _
COUNTIF(RC1:RC[-1],""W"")"
End With
End Sub
Gruß
Anzeige
AW: Formel in letzter Spalte > intelligente Tab
01.03.2018 10:09:03
Werner
Hallo Hans,
knapp vorbei. Das ActiveCell muss raus: 
Public Sub Formel()
Dim loLetzte As Long, loSpalte As Long
'Bildschirmaktualisierung ausschalten
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets("Tabelle1") 'Blattname anpassen
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
loSpalte = .Cells(1, .Columns.Count).End(xlToLeft).Column
.Cells(1, loSpalte + 1) = "Deine Überschrift"
.Range(.Cells(2, loSpalte + 1), .Cells(loLetzte, loSpalte + 1)).FormulaR1C1 = _
"=COUNTIF(RC1:RC[-1],""W"")"
End With
Application.ScreenUpdating = True
End Sub
Gruß Werner
Anzeige
AW: Formel in letzter Spalte > intelligente Tab
01.03.2018 17:19:24
Hans
Danke
Gerne u. Danke für die Rückmeldung. o.w.T.
01.03.2018 17:21:37
Werner

309 Forumthreads zu ähnlichen Themen

Letzte beschriebene Zeile suchen
Thomas3

Guten Morgen zusammen,
ich muß aus über 1000 Listen Daten auslesen. Das ist kein Problem.
Jede Liste sollte so beschrieben werden, dass ab Zeile 13 bis je nach Eintragungen x-Zeile Spalte O gefüllt ist.
In der Spalte 1 ist in der Datenliste eine Formel hinterlegt, die sichtbar aut...
19.08.2008 08:29:00
Thread-ID: 1002780
10 Beiträge
Anzeige
Sortieren bis zum letzten Eintrag
Werner

Hallo allerseits,
habe ein Problem beim Sortieren einer Tabelle. Diese besteht aus Zellen von A2:X200.
A:A =Lfd.-Nr. B:B Vorname, Name C:C Familienname ....
Zellen der Spalte C beinhalten Formel zum Trennen aus Einträgen der Spalte B.
Nach Markierung Bereich A2:X200 und ansch...
09.09.2008 20:45:00
Thread-ID: 1008577
6 Beiträge
aktive Zelle soll in Spalte "L" springen
Karsten

Hallo... ,
Suche folgenden Makrobefehl:
Die aktive Zelle soll in der Zeile bleiben, in der sie sich befindet, allerdings nach Spalte "L" springen.
Danke für eure Hilfe!
Gruß
Karsten
03.10.2008 16:34:44
Thread-ID: 1014058
3 Beiträge
Anzeige
Von aktiver Zelle in Spalte A springen
Susi

Hallo liebe Excel-Freunde,
wie ich in einer Tabelle die aktive Zelle ermitteln kann, weiß ich schon.
Von dieser aktiven Zelle aus (z.B. D10) soll nun der Wert in Spalte A dieser Zeile (hier also A10) ermittelt werden und in eine andere Zelle (z.B. A1) übertragen werden.
Leider kann...
16.10.2008 12:36:20
Thread-ID: 1016826
3 Beiträge
VBA - Summe unter letzter Zeile bilden
mgr

hallihallo!
ich hab jetzt schon ziemlich lang rumgesucht, komm aber leider nicht zum durchbruch. dabei - so unterstelle ich - hab ich ein problem, das schon viele gehabt haben müssten und das wahrscheinlich auch nicht unlösbar ist.
ich habe eine tabelle mit einer variablen anzahl von ze...
07.11.2008 13:39:07
Thread-ID: 1022657
3 Beiträge
Max,Min, Mittelwert von letzter Zeile
letzter

Hallo
Ich habe in einer Tabelle Temperaturwerte die jeden Tag ergänzt werden. Nun möchte ich für den jeweils letzten eingetragenen Tag die Min, Max und Mittelwerte angezeigt bekommen. Kann ich das ohne VBA mit den Excel Funktionen lösen, das immer die letzte Zeile verwendet wird?
Zude...
08.01.2009 08:53:00
Thread-ID: 1037754
3 Beiträge
VBA letzte Zeile Ermitteln
Gerhard

Hallo!
Habe ein kleines Problem. Lasse über VBA die letztz Zeile ermitteln.
intPosAktionNummerEnde = Range("K65536").End(xlUp).Offset(0, 0).Row
Das funktioniert immer nur jetzt habe ich in den Zellen eine Formel stehen, die soll aber nicht gezählt werden nur wenn eine Zahl drinnen s...
14.01.2009 17:52:00
Thread-ID: 1039758
5 Beiträge
In erste freie Spalte springen
Thomas

Hallo Exelgemeinde,
Ich möchte per Schaltbutton in die erste freie Spalte im Bereich CU 8 bis GF 8 springen.
Ist das möglich, und wie müßte das Makro dafür sein ?
Wäre schön wenn mir jemand weiterhelfen könnte.
Gruß Thomas
19.01.2009 16:48:17
Thread-ID: 1041558
3 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
9
8
5
2
3
2
2
2
4
2
7
4
3
4
3
1
4
2
3
7
2
2
6
2
19