Live-Forum - Die aktuellen Beiträge
Datum
Titel
01.05.2024 23:29:22
Diagramm Beschriftung und mehrere Datenreihen
01.05.2024 17:27:45
Lieferschein Nummer Automatisch generieren
01.05.2024 15:25:58
Zeilen in Excel löschen
01.05.2024 14:07:28
Mit VGA in Intelligente Tablle Überschrift finden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
504to508
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
504to508
504to508
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

berechnungen für alle zeilen mit eintrag

berechnungen für alle zeilen mit eintrag
22.10.2004 23:16:25
robag
Hallo ich habe wiedereinmal eine Frage:
Ich habe eine Tabelle die jeden Tag grösser wird, in den Spallten J,K,L stehen einige formeln die nun auch für die neuen einträge gelten sollen.
Ich habe mir nun ein makro geschrieben - welches nur bis zeile 2000 funktioniert. Ich möchte aber das excel selber überprüft wieviele zeilen beschrieben sind und soll die berechnung bis zur letzten belegten zeile durchführen.
Im Prinzip stehen in den Zellen J6 bis L6 nur folgende formeln:
J6=WENN(B4=B5;1;0)
K6=WENN(I4&gtI5;I4-I5;I5-I4)
L4=LINKS(D4;SUCHEN("0";D4)-1)
eine zeile tiefer sind diese zellen leer und wieder eine zeile tiefer wiederholen sich die Formeln (plus eine zeilennummer).

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

Betreff
Datum
Anwender
Anzeige
AW: berechnungen für alle zeilen mit eintrag
PeterW
Hallo Robag,
poste doch mal bitte die relevanten Teile deines Makros. Es wäre außerdem gut zu wissen, in welcher Spalte mit Sicherheit ein per Hand eingegebener Wert steht.
Gruß
Peter
AW: berechnungen für alle zeilen mit eintrag
22.10.2004 23:43:18
robag
also die daten werden mittels kopie von einer webseite eingefügt und die daten, welche zusammen gehören bestehen immer aus zwei miteinander vebundenen zeilen.
die ersten daten stehen auf jeden fall in den angegebenen zellen (J6 bis L6 ).
das makro habe ich mittels recorder afgenommen und dir werden bestimmt die haare zu berge stehen.
sub_test ()
Range("J4").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=IF(RC[-8]=R[1]C[-8],1,0)"
Columns("J:J").Select
Selection.FormatConditions.delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="0"
Selection.FormatConditions(1).Font.ColorIndex = xlAutomatic
Selection.FormatConditions.delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
Formula1:="1"
Selection.FormatConditions.delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="1"
Selection.FormatConditions(1).Interior.ColorIndex = 50
Range("K4").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-2]&gtR[1]C[-2],RC[-2]-R[1]C[-2],R[1]C[-2]-RC[-2])"
Range("L4").Select
ActiveCell.FormulaR1C1 = "=LEFT(RC[-8],SEARCH(""0"",RC[-8])-1)"
Range("L5").Select
Selection.ClearContents
Range("K5").Select
Selection.ClearContents
Range("J5").Select
Selection.ClearContents
Range("J4:L5").Select
Selection.AutoFill Destination:=Range("J4:L2002"), Type:=xlFillDefault
Range("J4:L2002").Select
ActiveWindow.SmallScroll Down:=-2002
end sub
Anzeige
AW: berechnungen für alle zeilen mit eintrag
PeterW
Hallo Robag,
mit Code des Recorders haben viele mal angefangen. So wie ich den Code verstehe muss diese Zeile
Selection.AutoFill Destination:=Range("J4:L2002"), Type:=xlFillDefault
geändert werden in
Selection.AutoFill Destination:=Range("J4:L" & Cells(Rows.Count, 12).End(xlUp).Row), Type:=xlFillDefault
Ist nicht getestet!
Gruß
Peter
AW: berechnungen für alle zeilen mit eintrag
robag
habe die zeile geändert - scheint zu klappen - danke und gute nacht.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige