Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
680to684
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
680to684
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel: Formeln nur in benutzte Zeilen übernehmen?

Excel: Formeln nur in benutzte Zeilen übernehmen?
11.10.2005 13:38:48
Ace_NoOne
Hallo,
bei einer Vorlage für eine einfache Kontaktliste habe ich u.a. die Spalten "Name", "Vorname" und "Nachname".
Letztere werden automatisch ausgefüllt, indem der Name aufgesplittet wird.
Allerdings möchte ich natürlich nicht alle 65.536 Zeilen mit dieser Formel füllen, zumal oft nur 10-20 Einträge in der Liste stehen. Der Nutzer soll aber auch nicht gezwungen sein, die Formel von Hand in die nächste Zeile zu kopieren.
Gibt es eine Möglichkeit, diesen Vorgang zu automatisieren? Sobald eine neue Zeile in Angriff genommen wird, sollen auch die Formeln in den entsprechenden Spalten übernommen werden. (Sowas kommt wohl relativ häufig vor, daher gibt es bestimmt eine entsprechende Funktion, die ich bisher noch nicht entdecken konnte... !?)

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel: Formeln nur in benutzte Zeilen übernehmen?
11.10.2005 13:43:27
Leo
Hi,
Menü Extras, Optionen, Bearbeiten, Listenformat und Formeln erweitern.
Schau dir die Direkthilfe zu dem Eintrag an.
mfg Leo
AW: Excel: Formeln nur in benutzte Zeilen übernehm
11.10.2005 14:16:51
Ace_NoOne
Erstmal danke für die Antwort.
Die Option (die in meiner Version übrigens "Datenbereich und Formeln erweitern" heißt, auch wenn die Hilfe das noch nicht mitgekriegt hat) ist aktiv, trotzdem funktioniert's nicht:
https://www.herber.de/bbs/user/27395.xls
(Die Makros sind einfach zum Aufsplitten des Namens, also garantiert nichts Schädliches!)
AW: Excel: Formeln nur in benutzte Zeilen übernehm
11.10.2005 14:47:32
Leo
Hi,
stimmt funktioniert nicht, warum, weiß ich nicht.
Ich würde das im Sheet_Change-Ereignis erledigen, so wie es jetzt ist, stehen ggf.
hunderte Formeln unnötig in der Tabelle.
mfg Leo
Anzeige
AW: Excel: Formeln nur in benutzte Zeilen übernehm
11.10.2005 15:10:56
Ace_NoOne
Und wie würde ich das dann am besten umsetzten? In solchen Dingen bin ich (noch) nicht sehr gut... :o
Soweit bin ich bisher gekommen:

Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Source As Range)
lastRow = ActiveSheet.UsedRange.Rows.Count
If Selection.Row > lastRow Then
Cells(Selection.Row, 3) = GibVorname("B" & Selection.Row)
Cells(Selection.Row, 4) = GibNachname("B" & Selection.Row)
End If
End Sub

Funktionieren tut's nicht, und auch der Ansatz gefällt mir irgendwie nicht...
AW: Excel: Formeln nur in benutzte Zeilen übernehm
11.10.2005 15:42:13
Ace_NoOne
Code-Update - besser, aber führt seltsamerweise zu einer Art Endlosschleife, weshalb ich Excel per Task Manager beenden muss:

Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Source As Range)
Dim lastRow
lastRow = ActiveSheet.UsedRange.Rows.Count
If ActiveCell.Row > lastRow Then
Cells(ActiveCell.Row, 3) = GibVorname(Cells(ActiveCell.Row, 2))
Cells(Activecell.Row, 4) = GibNachname(Cells(ActiveCell.Row, 2))
End If
End Sub

Anzeige
AW: Excel: Formeln nur in benutzte Zeilen übernehm
11.10.2005 16:50:04
Leo
Hi,
duch das Zuweisen des Werts wird das Change-Ereignus erneut ausgelöst, deshalb
die Events zeitweilig ausschalten:

Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Source As Range)
Dim lastRow
lastRow = ActiveSheet.UsedRange.Rows.Count
On Error Goto ERRH
Application.EnableEvents = False
If ActiveCell.Row > lastRow Then
Cells(ActiveCell.Row, 3) = GibVorname(Cells(ActiveCell.Row, 2))
Cells(Activecell.Row, 4) = GibNachname(Cells(ActiveCell.Row, 2))
End If
ERRH:
Application.EnableEvents = True
End Sub

mfg Leo
AW: Excel: Formeln nur in benutzte Zeilen übernehm
11.10.2005 17:56:37
Ace_NoOne
Hmm, da passiert jetzt irgendwie garnix mehr!?
Werde mir die Sache mal genauer anschauen und berichten, falls ich den Fehler finde.
Trotzdem danke!
Anzeige
AW: Excel: Formeln nur in benutzte Zeilen übernehm
11.10.2005 18:32:17
Leo
Hi,
ist schon klar, Denkfehler, dann laufen deine UDF ja auch nicht mehr.
Du musst halt das, was deine UDF machen, in den Code der Sub einbauen.
mfg Leo
AW: Excel: Formeln nur in benutzte Zeilen übernehm
16.10.2005 14:58:51
Ace_NoOne
Ahh, natürlich - besten Dank!
(Sorry für die späte Antwort, war sehr beschäftigt... )

301 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

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