Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1048to1052
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
1048to1052
1048to1052
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelladresse in Code mit - Syntaxfrage

Zelladresse in Code mit - Syntaxfrage
11.02.2009 08:54:00
Peter
Guten Tag
Innerhalb eines Codes füge ich eine neue Codezeile ein. Dabei gibt mir "Variante 1" für die Zeile 5 den richtigen Wert.
Nun möchte ich G5 ersetzen, damit in jeder Schlaufe der richtige Wert resultiert.
Anstatt G5 schreibe ich für G
[spName].column ' dies ergibt die Zahl 7
und für 5 schreibe ich
zNr ' dies ist eine Longvariable, die hochgezählt wird und immer die entsprechende Zeilennummer zurückgibt.
Irgend etwas mache ich jedoch falsch, denn weder Code Variante 2 noch 3 funktionieren. Beide Male stoppt der Code auf der entsprechenden Codezeile.
Was mache ich falsch?
Danke für eine Antwort.
Gruss, Peter
Variante 1
.Cells(zNr, [spVerändNAVclass].Column) = WorksheetFunction.Round( _
[MAX(IF(spxNa = G5,spxVe))-MIN(IF(spxNa= G5,spxVe))], 12)
Variante 2
.Cells(zNr, [spVerändNAVclass].Column) = WorksheetFunction.Round( _
[MAX(IF(spxNa = .cells(znr,[spName].column),spxVe))-MIN(IF(spxNa = .cells (znr ,[spName].column),spxVe))], 12)
Variante 3
.Cells(zNr, [spVerändNAVclass].Column) = WorksheetFunction.Round( _
[MAX(IF(spxNa = .cells(znr,[spName].column).address(0,0),spxVe))-MIN(IF(spxNa = .cells ( _
znr ,[spName].column).address(0,0),spxVe))], 12)

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

Betreff
Datum
Anwender
Anzeige
Nachtrag
11.02.2009 09:18:00
Peter
Guten Tag
ich habe nun noch eine Stringvariable erstellt, der ich die Zellreferenz zuweise. Beim ersten Durchlauf hat strZe den Wert "G5".
Wie muss ich diese in die Formel unten einbetten?
Gruss, Peter
.Cells(zNr, [spVerändNAVclass].Column) = WorksheetFunction.Round( _
[MAX(IF(spxNa = strZe ,spxVe))-MIN(IF(spxNa= strZe &,spxVe))], 12)
AW: Rückfrage - Beispielmappe?
11.02.2009 09:27:00
Erich
Hi Peter,
hast du mal eine Beispielmappe, in der Variante 1 ein richtiges Ergebnis für G5 brächte?
Ich glaube das nämlich nicht. Den Ausdruck
MAX(IF(spxNa = G5,spxVe))
verstehe ich so nicht. Der Teil "IF(spxNa = G5,spxVe)" ist spxVe, wenn spxNa=G5 ist, sonst FALSCH.
(Es ist kein Wert für den Sonst-Zweig des IF angegeben.)
Das MAX wird dann über nur einen Wert gebildet - entweder
MAX(spxVe) = spxVe
oder MAX(FALSCH), und das ist Null.
Beim MIN dahinter ist es ähnlich.
Hilfreich wäre zu wissen, was du berechnen willst - vielleicht erstmal einfach als Excelformel.
(Ich meine die Bestimmung der Zielzeile, die Spalte ist wohl 12.)
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Rückfrage - Beispielmappe?
11.02.2009 09:36:00
Peter
Hallo Erich
Danke für deine Antwort.
Jetzt habe ich es doch noch geschafft.
Wie in meinem zweiten Eintrag beschrieben, habe ich der Variable strZe die Zelladresse zugewiesen, die dann entsprechend hochzählt.
Dann habe ich [] durch Evaluate(" ....") ersetzt und zuletzt habe ich dann in den String die beiden strZe eingefügt.
.Cells(zNr, [spVerändNAVclass].Column) = WorksheetFunction.Round( _
Evaluate("MAX(IF(spxNa =" & strZe & " ,spxVe))-MIN(IF(spxNa=" & strZe & ",spxVe))"), 12)
Damit habe ich die die Formel (Beispiel Zeile 5) in der Tabelle ersetzt:
{=MAX(WENN(spxNa=G5;spxVe))-MIN(WENN(spxNa=G5;spxVe))}
spxNa und spxVe sind Spaltenbereiche. Mit der Formel resp. dem Code errechne ich die Differenz zwischen dem Max und dem Min Wert der Einträge im Bereich spxVe, bei denen in Spalte spxNa der gleiche Name eingetragen ist.
Gruss, Peter
Anzeige
AW: Sorry - Lange Leitung
11.02.2009 09:52:00
Erich
Hi Peter,
sorry, da habe ich wirklich heftig auf der Leitung gestanden.
(... und die 12 war auch nicht die Spalte, sondern die Nachkommastellen ...)
Nur ein Tipp - nachdem du es selbst vollbracht hast.
Mit Zwischenwert könnte es übersichtlicher sein: 

Sub aaa()
Dim zNr As Long, strZe As String
Dim dblW As Double
strZe = "G5"
zNr = 8
With ActiveSheet
'Variante 1
dblW = Evaluate("MAX(IF(spxNa=" & strZe & ",spxVe))-MIN(IF(spxNa=" & strZe & ",spxVe))")
.Cells(zNr, [spVerändNAVclass].Column) = WorksheetFunction.Round(dblW, 12)
End With
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Sorry - Lange Leitung
11.02.2009 11:08:00
Peter
Hallo Erich
Danke für die Antwort.
Ja, das macht wirklich Sinn, das so übersichtlicher zu gestalten.
Freundlicher Gruss, Peter
AW: Rückzug - Missverständnis!
11.02.2009 09:32:00
Erich
Hi Peter,
spxNa und spxVe sind Bereiche - und da kann man natürlich MIN und MAX bilden.
Ich hatte das nicht als Arrayformel gesehen. Muss jetzt noch mal drüber denken.
Eine Beispielmappe wäre günstig.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

300 Forumthreads zu ähnlichen Themen

Automatisch Zeilen einfügen und Text reinschreiben
oblivion

Hallo,
hab folgendes Problem.
Ich habe ein Tabelle mit 4 Spalten. Wegen dem automatischen Zeilenumbruch habe ich keine vebundenen Zeilen.
In Excel ist die Zeilenhöhe ja auf 409 begrenzt. Ich habe aber teilweise Text der größere Spalten bräuchte.
Wenn ich die Spalte größer mach...
02.09.2008 20:54:00
Thread-ID: 1006942
5 Beiträge
Anzeige
Text verbinden und den Inhalt der Zelle ausgeben
Jörg

Hallo,
ich benötige etwas Hilfe, vermutlich für euch kein Problem:
in Zelle A1 möchte ich den Spaltenbuchstaben eintragen
in Zelle A2 möchte ich eine Zeilennummer eintragen
in Zelle A3 fehlt mir nun die Formel, mit der ich A1undA2 verbinden kann UND dann den Inhalt der Zelle aus...
19.09.2008 11:42:31
Thread-ID: 1010969
6 Beiträge
FOR-Ablauf: Frage zur Syntax
Gordon

Moin,
mal 'ne grundsätzliche Frage zur Syntax:
Und zwar schreibe ich ja bei einem FOR-Ablauf z.B.:
For i = 1 to 10
Wie schaut es denn aus, wenn es nicht nur von 1 bis 10 gehen soll, sondern von 1 bis 10 plus 15 und 26.
Geht das dann in der Form: For i = 1 to 10, 15, 26 (.....
22.09.2008 14:30:00
Thread-ID: 1011478
11 Beiträge
Anzeige
Zellinhalte Zahlen und Text extrahieren
Marky

Hallo Excel Spezialisten !
Ich würde gerne aus zwei nebeneinander stehenden Spalten die Zellinhalte extrahieren.
Die Zellinhalte bestehen aus Zahlen und Text. Die aus den Zellen zu extrahierenden Zahlen und Texte
stehen immer in den Spalten K10 und N10.
Die Zielzellen sind immer...
29.09.2008 12:55:00
Thread-ID: 1013076
6 Beiträge
Unterschied zwischen Textbox und Textfeld
Makro

Hi,
was ist denn der Unterschied zwischen einem Textfeld und einer Textbox ? Kann ich einem Textfeld nichts per Makro zuweisen ?
Gruss
Marco
08.10.2008 15:26:00
Thread-ID: 1015077
9 Beiträge
Bearbeiten/Formatieren der x-Achse in Diagramm
Mayr,

Hallo zusammen,
ich hab ein Problem beim Formatieren der X-Achse in meinem Diagramm...
Und zwar soll es eine Zeitachse sein und um 4 Uhr anfangen und um 4 Uhr enden.... also nicht von 0-24Uhr.
Das stellt aber jetzt für mich ein Problem dar, da ich wnicht weiß wie ich excel sag das e...
15.10.2008 14:03:00
Thread-ID: 1016558
2 Beiträge
xy-Diagramm
Petra

Hallo!
Ich bin bei der Diagrammerstellung über ein Problem gestolpert, und hoffe, dass ihr mir weiterhelfen könnt: ich möchte ein xy-Diagramm erstellen, bei dem jeder Punkt beschriftet ist. Die Anordnung der Daten ist folgende: Beschriftung der Punkte in Spalte A, X-Werte in Spalte B und Y-...
24.10.2008 10:30:00
Thread-ID: 1018901
6 Beiträge
Txt - Text suchen und ersetzen VBA
Stevie

Hie zusammen,
ich hoffe mir kann hier jemand helfen, ich habe einen Code aus dem Internet (oder sogar von der Seite hier) und den muss ich leider ein bisschen anpassen. Der Code sucht in einer Textdatei nach einer bestimmten Zeichenfolge STxtA und ersetzt diesen Text durch STxtB. Soweit so...
30.10.2008 13:09:28
Thread-ID: 1020573
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
4
2
5
10
1
5
8
1
5
2
1
1
1
4
6
6
1
2
14
3
2
8
3
2
2