Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1228to1232
1228to1232
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelladresse ermitteln

Forumthread: Zelladresse ermitteln

Zelladresse ermitteln
Frank
Hallo liebe Excel-Gemeinde,
ich stehe mal wieder vor einen Problem und komme nicht weiter.
Vielleicht könnt Ihr mir ja helfen.
Ich ermittle mit folgendem Code die Werte non Max nach Min.

Cellcount = Range("B65536").End(xlUp).Row
ReDim arr(5)
For I = 1 To 5
arr(I) = Application.WorksheetFunction.Large(Range(Cells(Cellcount, 2), Cells(Cellcount, 6)) _
_
, I)
Next I

Nun möchte ich aber auch zu diesen Werten die Zellposition der einzelnen Werte ermitteln
und in eine Variable Pos(I) schreiben.
Hat jemand eine Idee?
Vielen dank schon mal
Frank
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zelladresse ermitteln
20.09.2011 10:15:50
Henrik
Hallo Frank,
eine Möglichkeit. Schreibt die Adresse als string in eine seperates Array.

Sub hu()
Dim arrWert(4) As Variant, arrAdresse(4) As Variant
Dim RowCount As Long, Bereich As Range, i As Integer
Dim iWert As Double, iAdresse As String
Set wsf = Application.WorksheetFunction
With ActiveSheet
RowCount = .Range("B65536").End(xlUp).Row
Set Bereich = .Range(.Cells(RowCount, 2), .Cells(RowCount, 6))
For i = 0 To 4
iWert = wsf.Large(Bereich, i + 1)
iAdresse = .Cells(RowCount, wsf.Match(iWert, .Range(.Cells(RowCount, 1), .Cells(RowCount,  _
100)), 0)).Address
arrWert(i) = iWert
arrAdresse(i) = iAdresse
Next
End With
End Sub

Gruß Henrik
Anzeige
AW: Zelladresse ermitteln
20.09.2011 10:30:04
Frank
Hallo Henrik,
super. Danke für den Lösungsansatz.
Ich denke damit komme ich weiter
Gruß
Frank
AW: Zelladresse ermitteln
20.09.2011 10:41:36
Frank
Hallo Hendrik,
eine Frage habe ich noch.
Dein Code berücksichtigt aber keine Doppelten Einträge.
Kann man das auch so machen , das doppelte Wert erfasst werden
Gruß
Frank
Anzeige
AW: Zelladresse ermitteln
20.09.2011 12:00:16
Henrik
Hallo Frank,
hier mal was zusammen gewürfelt.
Die ertse Spalte des Arrays "arrWerteAdresse" enthält die Zelladresse, die zweite Spalte die Werte.
Per Schleife kannst du Sie entsprechend abrufen.

Sub hulu()
Dim arrWertAdresse(1 To 5, 1 To 2) As Variant, Startspalte As Long
Dim RowCount As Long, Bereich As Range, i As Integer
Dim j, t, y, condition1, sortColumn
Startspalte = 2
With ActiveSheet
RowCount = .Range("B65536").End(xlUp).Row
Set Bereich = .Range(.Cells(RowCount, Startspalte), .Cells(RowCount, 6))
For i = 1 To Bereich.Count
arrWertAdresse(i, 1) = .Cells(RowCount, Startspalte - 1 + i).Address
arrWertAdresse(i, 2) = Bereich.Value2(1, i)
Next i
End With
sortColumn = 2
For i = LBound(arrWertAdresse, 1) To UBound(arrWertAdresse, 1) - 1
For j = LBound(arrWertAdresse, 1) To UBound(arrWertAdresse, 1) - 1
condition1 = arrWertAdresse(j, sortColumn) > arrWertAdresse(j + 1, sortColumn)
If condition1 Then
For y = LBound(arrWertAdresse, 2) To UBound(arrWertAdresse, 2)
t = arrWertAdresse(j, y)
arrWertAdresse(j, y) = arrWertAdresse(j + 1, y)
arrWertAdresse(j + 1, y) = t
Next y
End If
Next
Next
End Sub

Gruß Henrik
Anzeige
AW: Zelladresse ermitteln
20.09.2011 12:37:58
Frank
Hallo Hendrik,
Du bist genial.
Vielen Dank
Frank
;

Forumthreads zu verwandten Themen

n ermitteln
Engin

Hallo zusammen,
ich hab wieder ein Problem und zwar :
Ich hab eine Datenreihe weiß aber nicht bis wohin es geht und möchte per code ermitteln bis welcher Zelle es geht.
also z.B ich habe eine Schleife : For i= 1 to n ( und n soll dann Zelle sein)
Ich hoffe ich habe mich verst...
08.08.2008 10:48:16
Thread-ID: 1000211
3 Beiträge
Alter ermitteln
Peter

Hallo,
ich habe ein Tabelle mit Personendaten u.a. auch die Geburtsdaten. Nun möchte ich in einer Spalte das aktuelle Alter in Jahren errechnen.
Wie mache ich das das?
mfg
Peter
14.08.2008 12:18:00
Thread-ID: 1001811
3 Beiträge
ersten nicht zutreffenden Wert ermitteln
Wladimir

Hallo zusammen,
ich bin neu hier, aber bereits habe ein paar Eure Tipps geholt und jetzt hoffe, dass ich mit Eurer Hilfe mein Problem löse.ich habe im Excel eine Zeile mit den Werten z. B.:in A1 steht 6B1 - KC1 - KD1 - 5E1 - KF1 - UUsw.Also:6 K K 5 K U ...Mit der Formel:=Vergleich("K";a1:z1...
28.08.2008 09:37:37
Thread-ID: 1005299
24 Beiträge
Anzeige
Standardabweichung ermitteln für bestehende Tabell
Lauren

Hallo zusammne,
ich mal wieder :)
jetzt kam noch der Wunsch auf, dass man eine Standardabweichung ermittelt haben möchte zu den ermittelten Werten.
Die formel für Standartabweichung habe ich bereits im Kopf aber wie setzte ich folgendes um:
- ich habe in Spalte E die Werte welch...
01.09.2008 12:58:45
Thread-ID: 1006407
15 Beiträge
Anzeige
Variablenname der kleinsten Variable ermitteln
uli


Hallo Experten,
mit folgendem Code ermittel ich die kleinste von mehreren Variablen:
t = 5
s = 6
p = Application.WorksheetFunction.Min(t, s)
Könnt Ihr mir sagen, über welchen Befehl ich jetzt auch den Variablennamen ermitteln kann, der zu der kleinsten Variable gehört?...
03.09.2008 11:29:36
Thread-ID: 1007051
5 Beiträge
Zellinhalt aufgrund Sheetname und Zelle ermitteln
Peter

Guten Tag
Wahrscheinlich stehe ich mir selbst auf der Leitung.
Mit Hilfe der String-Variablen strTab (enhaltend der Worksheet-Name) und strZelle (enthaltend die Zelladresse, z.B. A3) möchte ich den Wert der entsprechenden Zelle (Text) ermitteln und der Variable strContent zuweisen.
...
11.09.2008 10:31:00
Thread-ID: 1009001
3 Beiträge
zeile ermitteln aus : A10:C26
reinhardt

Hallo.
In A1 stehen Range-Werte in folgender Form: A10:C26, oder BC150:M299
Ich möchte alle Zeilen oberhalb von A10 (1 ...9) oder BC 150 (1...149) ausblenden.
Dazu brauche ich einmal Hilfe bei einer Formel, die mir den Wert 9 aus A10:C26 oder
den Wert 149 aus BC150:M299 erre...
19.09.2008 09:22:00
Thread-ID: 1010909
2 Beiträge
Buchstabe Spalte ermitteln
SteffenS

Hallo Zusammen,
wir ermittle ich aus:
Cells(1, Columns.Count).End(xlToLeft).Column
die Spalte nicht als Zahl, sondern als Buchstabe z.B.:
Spalte 2 = B
Danke im Voraus.
MFG
Steffen Schmerler
22.09.2008 12:15:25
Thread-ID: 1011441
5 Beiträge
Maximum ermitteln mit VBA
Alifa

Hallo,
ich habe eine Funktion und möchte mit einem Makro deren maximalen Wert ermitteln(x=1 To 3)
F(x)=2*x*sqr(x^2-6*x+10)+(2*x-6)*sqr(9+x^2). Das ist zunächst meine letzte Frage!
Gruß, Alifa
22.09.2008 17:20:12
Thread-ID: 1011530
4 Beiträge
zeile ermitteln, werte prüfen
sonja

hallo ihr lieben,
ich hoffe ihr könnt mir auch dieses mal wieder helfen.
ich möchte in einer zeile (die sich ständig ändert letzte beschriebene zeile minus 6)
in jeder spalte prüfen ob der wert kleiner als ... ist, wenn dies zutrifft sollte sich eine userform
mit einem hinweis...
10.10.2008 16:55:00
Thread-ID: 1015638
11 Beiträge
Spaltenreferenz ermitteln
Boris

Hallo,
wie löse ich folgendes, möglichst kurz: =SUMPRODUCT((INDIRECT(D2)="Blubb")*1)
(der Sinn dieser Formel sei hier dahingestellt, nur soviel: in D2 steht ein Bereich als Text, der über INDIRECT in einen Bezug umgewandelt wird)
In dieser Formel möchte ich innerhalb von INDIRECT di...
30.10.2008 14:37:00
Thread-ID: 1020613
8 Beiträge
Anzeige
n ermitteln
derwich

Hallo zusammen,
Wie kann ich in einer Datenreihe n( Anzahl der Zellen) bis zudem wert 10 ermitteln?
Danke schon aml im Voraus
05.11.2008 10:13:36
Thread-ID: 1021777
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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