Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1204to1208
1204to1208
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel =Max(...) per VBA ergänzen

Forumthread: Formel =Max(...) per VBA ergänzen

Formel =Max(...) per VBA ergänzen
Stef@n
Hallo und einen schönen guten Wochenstart,
bin auf der Suche nach einer Möglichkeit, eine Formel via VBA zu ergänzen.
Der Wertebereich ist von B24 bis E xxx
Wievielen Zeilen es sind, ist jeweils von anderen Eingaben abhängig.
Jetzt soll in der Spalte F die Formel =MAX(B24:E24) einfügt werden (also ab F24)
und diese Formel soll das bis zur letzt-befüllten Zeile in Spalte E kopiert werden
Ich könnte das händisch machen, ich habe auch den Makro-Recoder laufen lassen,
krieg es aber nicht hin, das die letzte Zeile gefunden wird.
Freu mich auf einen Tip
Gruß
Stef@n
Anzeige

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

Betreff
Benutzer
Anzeige
letzte Zeile
21.03.2011 11:33:12
Marc
Hallo!
Hier wird die letzte benutzte Zelle in Spalte A angegeben
lz = ActiveSheet.Cells(Rows.Count, "a").End(xlUp).Row
Ich hoffe, das hilft dir weiter...
Gruß, Marc
AW: letzte Zeile
21.03.2011 11:47:33
Stef@n
Hallo Marc
nur wie ergänze ich den Code mit deinem Hinweis;
Sub Makro8()
Range("B33").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("F19").Select
ActiveCell.FormulaR1C1 = "1"
Range("F19").Select
Selection.Copy
Range("B33").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Range("F19").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("F33").Select
ActiveCell.FormulaR1C1 = "=MAX(RC[-4]:RC[-1])"
Range("F33").Select
Selection.AutoFill Destination:=Range("F33:F53")
Range("F33:F53").Select
End Sub
Gruß
Stef@n
Anzeige
AW: letzte Zeile
21.03.2011 12:11:31
Rudi
Hallo,
versuchs mal so: 
Sub Makro8()
Dim lRow As Long, lCol As Long
lRow = Range("B3").End(xlDown.Row)
lCol = Range("B33").End(xlToRight).Column
Range(Range("B33"), Cells(lRow, lCol)).Replace _
What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("F19") = 1
Range("F19").Copy
Range("B33").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Range("B33"), Cells(lRow, lCol)).PasteSpecial _
Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("F19").ClearContents
Range(Range("F33"), Cells(lRow, 6)).FormulaR1C1 = "=MAX(RC[-4]:RC[-1])"
End Sub

Gruß
Rudi
Anzeige
AW: letzte Zeile
21.03.2011 13:34:03
Stef@n
Hallo Rudi
danke für den Code
er bleibt nur leider stehen bei
lRow = Range("B3").End(xlDown.Row)
Fehler beim Kompilieren: Ungültiger Bezeichner
und xlDown ist fett markiert
?
Gruß
Stef@n
AW: letzte Zeile
21.03.2011 13:37:03
Rudi
Hallo,
Klammer sitzt falsch. Außerdem soll es doch wohl B33 sein.
lRow = Range("B33").End(xlDown).Row
Gruß
Rudi
Anzeige
perfekt ! Danke Rudi ! :) OT
21.03.2011 13:42:23
Stef@n
;

Forumthreads zu verwandten Themen

Formel verkürzen --> zu lange Speicherzeit
Albin

Hallo
Meine Formel funktioniert gut, aber da die Formel sehr lang ist und ich sie in viele Zeilen kopiert habe, dauert das Speichern einer Tabelle 15 Minuten! Ich will aber 30 solche Tabellen anfertigen, das heisst ich würde dann immer mehrere Stunden warten bis das Ding gesichert ist! Das...
13.08.2008 13:10:00
Thread-ID: 1001509
16 Beiträge
Hilfe beim anpassen einer Formel
Josef_T

Guten Tag zusammen,
möchte unten stehende Formel so abändern, dass alle Werte in M3:M400 summiert werden, solange in
in N3:N400 oder O3:O400 keine Zahl drin steht, die größer 0 ist.
Wenn in N3:N400 oder O3:O400 eine Zahl größer 0 steht, werden diese nach M3:M400 übertragen. Diese
14.08.2008 13:54:45
Thread-ID: 1001851
5 Beiträge
Hyperlink Formel auf Gültigkeit prüfen
zapultin

Hallo Forum!
Ich verwende die Hyperlinkformel in Excel. Nun möchte ich gerne wissen, ob der berechnete Hyperlink funktioniert (es kann nämlich sein, daß die Datei, auf die gelinkt wird noch nicht existiert).
Wie kriege ich das OHNE ein VBA Makro hin? Gibt es gar keine Möglichkeit dies z...
15.08.2008 15:49:14
Thread-ID: 1002228
3 Beiträge
Email per Hyperlink aus Zelle mit Formel
Frank

Hallo und schönen guten Morgen zusammen,
neues kleines Problem!
Ich möchte mit Hilfe eines Hyperlink per klick eine Email öffnen!
Soweit so gut und kein Problem!
Jetzt steht die Email Adresse aber nicht wirklich in der Zelle sondern diese hole ich mir per
Sverweises aus ein...
21.08.2008 09:22:45
Thread-ID: 1003367
3 Beiträge
Nach Gruppe Formel anpassen
Ilka

Die Spalte % Anteil soll innerhalb der jeweiligen Gruppe berechnet werden. Jede einzelne Gruppe ist immer 100%. Die Gruppen sind jedoch unterschiedlich groß (mal 3 Zeilen, mal 5 Zeilen).
Die Formel =B6/$B$17 muß ich in der nächsten Gruppe wieder manuell anpassen. Da die Tabelle noch bis in...
26.08.2008 09:57:28
Thread-ID: 1004695
5 Beiträge
Problem mit Matrixformel
Jens

Hallo liebes Forum!
Hab ein kleines Problem mit einer Matrixformel.
Es geht um Folgendes: In Blatt 1 stehen Daten in einem spaltenförmigen Bereich (nx1-Vektor), manche Zellen davon sind leer. In Blatt 2 möchte ich einen Bezug auf diese Daten in einem zeilenförmigen Bereich setzen; dazu...
27.08.2008 16:53:15
Thread-ID: 1005143
3 Beiträge
Letzter Wert einer Spalte (Matrixformel)
{mskro}

Hallo Excelaner,
ich benötige mal wieder eine Hilfestellung.
Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
=INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
Nur wird...
28.08.2008 09:59:21
Thread-ID: 1005303
9 Beiträge
Anzeige
Spalten mit Formeln mit 1 multiplizieren
Susanne99

Hallo, kriege hier per Datenbankverlinkung teilweise Zahlen eingespielt, die Excel nicht als Zahl, sondern als Text identifiziert. Dem kann ich abhelfen, indem ich den Zellinhalt jeweils mit 1 multipliziere. Wie kann ich die
"*1" in die Formeln in ganzen Spaltenreihen einfügen, ohne jeden...
31.08.2008 10:34:22
Thread-ID: 1006147
8 Beiträge
Matrix-formel via VB-Skript in die Zelle einfügen
Wladimir

Hallo zusammen,
ich soll via VB-Skript eine
Excel-Matrix-formel in die Zelle der
geschlossenen Datei einfügen.
Ich habe die Formel entsprechend
angepasst und versuchte sie mit
FormulaArray in die Zelle einzufügen,
aber erfolglos. Es kommt die Meldung:
"Die For...
01.09.2008 12:08:24
Thread-ID: 1006391
14 Beiträge
Problem mit SVERWEIS (Arrayformel)
Henner

Hi Forum,
ich möchte ein SVerweis mit mehreren Suchergebnissen anlegen. Wenn ich den ganzen Salat innerhalb einer Tabelle anlege funktioniert es einwandfrei. Jetzt möchte ich allerdings in einer anderen Tabelle ("kundendatenbank") suchen. Dafür habe ich mir die A-Formel so umgebaut:
=WE...
12.09.2008 19:12:31
Thread-ID: 1009440
5 Beiträge
1:1-Kopieren ohne dass Formeln "angepasst" werden
Wolfango

Hallo Experten!
Eine Spalte enthält lauter Formeln (alles relative Bezüge). Wenn ich diese komplette Spalte (markiert über Klick auf Spaltenkopf) in eine neue, unbenutzte Spalte kopiere werden (aufgrund der relativen Bezüge) ja stets alle Formeln automatisch angepasst (egal ob über das Menü...
17.09.2008 15:45:18
Thread-ID: 1010435
3 Beiträge
Kopieren VBA anstatt einer Formellösung
Bernhard

Hallo liebe Excel-Freunde,
wer kann mir helfen, eine Aufgabenstellung, die ich zwar mit Formeln gelöst habe mit einem VBA Makro zu lösen. Wie kopiere und paste ich Werte aus einer Tabelle1 in eine Tabelle2, abhängig davon ob ein Wert in einer bestimmten Spalte ist. Das Beispiel habe ich zum...
24.09.2008 17:28:00
Thread-ID: 1012129
9 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige