Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.05.2024 18:20:03
Status/Typ-Werte automatisch setzen in Abhängigkeit
10.05.2024 16:34:03
Excel auf Smartphone: Vorsicht beim Wischen
10.05.2024 16:31:37
Wenn Zelle gleich Leer dann nicht 0
10.05.2024 13:34:11
Prozentuale Auswertung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
512to516
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
512to516
512to516
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range abfrage

Range abfrage
08.11.2004 15:29:54
Flip
Moin da draußen,
da mir ja auf meine andere Frage vorher keiner eine Antwort geben kann und leider die Zeit ein bisschen drängt, versuche ich die Frage anders zu formulieren.
Habe folgendes Problem:
möchte den harmonischen Mittelwert über zwei sheets bilden.
Habe als mögliche Lösung ActiveCell.FormulaR1C1="HARMEAN(Tabelle1!R[-15]C[-3]:R[-1]C[-3],Tabelle2!R[-15]C[-3]:R[-1]C[-3])" aus dem Macrorecorder.
1.Ich möchte jetzt nicht in die ActiveCell hineinschreiben, sondern in eine beliebige von mir vorher festgelegte Zelle.
2.Der Bereich R[-15]C[-3]:R[-1]C[-3] soll als Range() angegeben werden, da ich wechselnde aber zuvor bestimmte Startzellen habe! Muss ich den Bereich dann als string definieren und mit " & ... & " verknüpfen?
Fpr jegliche Hilfe bin ich super dankbar
MfG Flip

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Range abfrage
08.11.2004 16:54:29
Josef
Hallo Flip! Der von Biene Maja? ;-)
Meinst du so?

Sub Harmonisch()
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Dim strRng As String
Set wks1 = Sheets("Tabelle1")
Set wks2 = Sheets("Tabelle2")
strRng = "C2:D8"
MsgBox WorksheetFunction.HarMean(wks1.Range(strRng), wks2.Range(strRng))
'Oder natürlich auch
'Range("A1") = WorksheetFunction.HarMean(wks1.Range(strRng), wks2.Range(strRng))
End Sub

Oder so.

Sub Harmonisch2()
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Dim zStart As Long
Dim zEnd As Long
Dim cStart As Integer
Dim cEnd As Integer
Set wks1 = Sheets("Tabelle1")
Set wks2 = Sheets("Tabelle2")
zStart = 2  'Startzeile
zEnd = 8    'Endzeile
cStart = 3  'Startspalte
cEnd = 4    'Endspalte
MsgBox WorksheetFunction.HarMean(wks1.Range(wks1.Cells(zStart, cStart), _
wks1.Cells(zEnd, cEnd)), wks2.Range(wks2.Cells(zStart, cStart), _
wks2.Cells(zEnd, cEnd)))
End Sub

Gruß Sepp
Anzeige
AW: Range abfrage
Flip
Besten Dank Sepp,
werde Deinen Weg mal probieren!!!
Könnte wohl für meine Anwendung klappen!!
Beste Grüsse
Flip
(kein Grasshüpfer)

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige