Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range abfrage

Forumthread: 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
Anzeige

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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige