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

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

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
perfekt ! Danke Rudi ! :) OT
21.03.2011 13:42:23
Stef@n

299 Forumthreads zu ähnlichen 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
Anzeige
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
Anzeige
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
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
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
15
4
2
2
4
2
8
7
13
4
2
8
1
2
12
6
5
6
1
1
4
4
4
4
1