Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Range aus zwei Zellen

Forumthread: Range aus zwei Zellen

Range aus zwei Zellen
27.07.2004 09:49:27
Stephan
Hallo Forenteilnehmer !
Ich hab ein relativ einfaches Problem, komm aber nicht auf die Lösung.
Vielleicht könnt ihr mir weiterhelfen !?!
Ich hab mit find zwei Zellen zelle1 und zelle1 (beides Range) definiert.
Ich bräuchte nun den Bereich zelle1:zelle2.
Beispiel: Addresse zelle1 = $D$1
Addresse zelle2 = $D$10
Ich müsste nun das Range $D$1:$D$10 definieren.
Wie geht das ?
Mit Address und so weiter hab ich schon erfolglos versucht. Ich denke, dass die Lösung einfach ist, aber ich komm nicht drauf.

Vielen Dank für Eure Hilfe
Stephan
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Range aus zwei Zellen
27.07.2004 09:57:06
GerdZ
Hallo Stephan,
evtl. geht das wie in Excel 2000:
Range(zelle1.address & ":" & zelle2.address)
Gruß Gerd
AW: Range aus zwei Zellen
27.07.2004 10:06:32
Stephan
Hi Gerd!
Danke für die Hilfe, aber das funzt nicht, leider.
Ich poste mal den ganzen Code:

Sub diagramm1()
Dim quelle, quelle_oben, quelle_unten  As Range
Set quelle_oben = Sheets("Datenblatt").Cells.Find("Krankheitsquote")
Set quelle_unten = quelle_oben.End(xlDown)
quelle = Range(quelle_oben.Address & ":" & quelle_unten.Address)
Sheets("Diagramm1").Activate
Sheets("Diagramm1").ChartObjects(1).Chart.SetSourceData Source:=quelle
End Sub

Damit bekomme ich in der letzten Zeile immer einen Fehler 13:Typen unverträglich !?!
Mit UNION hab ich es auch schon probiert, selber Fehler.
Bin ein wenig ratlos ...
Stephan
Anzeige
AW: Range aus zwei Zellen
27.07.2004 10:23:33
Stephan
oh je, Brett vorm Kopf:
hab die Lösung, das kleine Wörtchen SET ... wieso macht man eigentlich immer die gleichen Fehler !?!


Sub diagramm1()
Dim quelle, quelle_oben, quelle_unten  As Range
Set quelle_oben = Sheets("Datenblatt").Cells.Find("Krankheitsquote")
Set quelle_unten = quelle_oben.End(xlDown)
Set quelle = Range(quelle_oben.Address & ":" & quelle_unten.Address)
Sheets("Diagramm1").Activate
Sheets("Diagramm1").ChartObjects(1).Chart.SetSourceData Source:=quelle
End Sub

Anzeige
AW: Range aus zwei Zellen
27.07.2004 10:24:24
Heinz A. Wankmüller
Hallo Stephan,
so, ganz einfach
Set quelle = Range(quelle_oben, quelle_unten)
Gruß
Heinz
AW: Range aus zwei Zellen DANKE !!!
27.07.2004 10:52:32
Stephan
DANKE
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

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