Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
344to348
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
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Anfang und Ende eines Bereichs – VBA

Anfang und Ende eines Bereichs – VBA
30.11.2003 17:44:58
Martin
Hallo,

angenommen ich habe einen Bereich A1:A10.
Wie kann ich mittels VBA den Anfang (A1) und das Ende des Bereichs (A10) feststellen?

Gruss,
Martin

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

Betreff
Datum
Anwender
Anzeige
AW: Anfang und Ende eines Bereichs – VBA
30.11.2003 17:50:16
PeterW
Hallo Martin,

was meinst du mit Bereich? ActiveSheet.UsedRange.Address, ActiveSheett.UsedRange.Rows.Count, ...?

Gruß
Peter
AW: Anfang und Ende eines Bereichs – VBA
30.11.2003 17:58:17
Martin
Hallo Peter,

ich bin dabei an einem dynamischen Diagramm zu basteln. Das klappt auch soweit schon, bloss nicht mit der x-Achse. Der Zeitraum kann zur Zeit nicht angepasst werden. Ich führe das jetzt nicht weiter aus, weil es zu umfangreich wäre.

Derzeit wird die Zeitachse aber über

With ActiveChart.Axes(xlCategory)
.MinimumScale = "01/02/2003"
.MaximumScale = Sheets("data").Range("A2").End(xlDown)
.BaseUnit = xlDays
End With

festgelegt. Im Rahmen des dynamischen Diagrammes würde sich der Bereich aber von Range("A2").End(xlDown) zu eben einem anderen Bereich ändern. Würde ich den Anfangs- und Endwert diesen anderen Bereichs aber ermitteln können, könnte ich den hier einbringen.

Eine Alternative wäre mit modulübergreifenden Variablen zu arbeiten. Das wird in meinem Fall aber kompliziert und ich müsste zu viel ändern.

Hoffe, es ist jetzt klarer?!

Gruss,
Martin
Anzeige
AW: Anfang und Ende eines Bereichs – VBA
30.11.2003 18:05:24
PeterW
Hallo Martin,

klarer wird es schon - aber welche Rahmenbedingungen legen fest, welcher Bereich angesprochen werden soll? Sheets("data").Range("A2").End(xlDown) würde ich als dynamisch bezeichnen (wobei ich von Diagrammen in VBA keine Ahnung habe).

Gruß
Peter
AW: Anfang und Ende eines Bereichs – VBA
30.11.2003 18:15:21
Martin
Hallo Peter,

der User soll über eine Userform das Anfangs- und das Enddatum eingeben können, um das Diagramm für sich anpassen zu können. Dadurch wird der Ursprungsbereich (Sheets("data").Range("A2").End(xlDown)) eben seinerseits angepasst. Der dann bestimmte Bereich muss seinerseits aber mit VBA erkannt und ausgelesen werden können. Der Hintergrund ist der, dass ich im Code des Worksheets, in dem das Diagramm ist, den Code

With ActiveChart.Axes(xlCategory)
.MinimumScale = "01/02/2003"
.MaximumScale = Sheets("data").Range("A2").End(xlDown)
.BaseUnit = xlDays
End With

habe. Eben der Teil "MaximumScale" muss dann angepasst werden können.

Der Code von Reinhard scheint aber genau das zu sein, was ich brauche, jedenfalls klappt es soweit ganz gut. Werde noch einige Tests machen.

Gruss,
Martin
Anzeige
AW: Anfang und Ende eines Bereichs – VBA
30.11.2003 17:52:47
Reinhard
Hi Martin,
auf eine ähnliche Frage meinerseits hat mir Andreas e folgende Lösung gezeigt:
(vorher Bereich A1:A10 markieren, dann Makro starten)

Sub MarkierungErmitteln()
MsgBox "Erste Zelle: " & _
Selection.Cells(1).Address(False, False) & vbLf & _
"Letzte Zelle: " & _
Selection.Cells(Selection.Cells.Count).Address(False, False)
End Sub


Gruß
Reinhard
AW: Anfang und Ende eines Bereichs – VBA
30.11.2003 18:01:14
Martin
Hallo Reinhard,

ja das geht schon in die Richtung, die ich brauche. Ich werde daran arbeiten, vielleicht bekomme ich es hin, dass der Bereich nicht vorher markiert werden muss.

Vielen Dank

Gruss,
Martin
Anzeige

299 Forumthreads zu ähnlichen Themen

VBA Zeilen ein/ausblenden + weiters Problem
oblivion

hallo, ich hab mal wieder ein kleines und ein etwas größeres Problem
erstmal zum kleinen. wie bekomme ich es mit hilfe von einem vba hin, wenn ich ein kontrollkästchen mit einem Hacken versehe, dann bestimmte Zeilen (Sagen wir mal Zeile 20 bis 30), die ich vorher versteckt hatte, nun zum vo...
10.08.2008 00:22:06
Thread-ID: 1000558
3 Beiträge
Anzeige
Kann jemend ein VBA Kurs empfehlen
TomTom

Hi,
ich soll von meiner Firma aus eine VBA (Excel) Kurs besuchen, so 3-4 Tage. Kann jemand ein Institut empfehlen, das solche qualifizierte Kurse anbietet ?
Danke Tom
10.10.2008 11:51:00
Thread-ID: 1015544
6 Beiträge
Werte in verschiedenen Subs verwenden
Urs

Liebe Alle
Ich wähle eine Zelle aus und speichere die gesamte Selection in einerObject-Variable (Rechtsklick auf Zelle, Start eines Makros aus dem kontextsensitiven Menue).
Dann gehe ich auf ein anderes Sheet (innerhalb des gleichen Workbooks) und wähle eine Zelle darin an. (Rechtsklic...
30.10.2008 12:53:41
Thread-ID: 1020565
3 Beiträge
Anzeige
VBA, Notiz ein- und wieder ausblenden
Burghard

Hallo ins Netz,
ich möchte mit Knopfdruck ein Textfeld (mit Inhalt, es existiert schon) oder ein Autoformat (z.B. Gefaltete Ecke) auf dem Blatt an einer bestimmten Stelle für 1 Minute plazieren und danach soll es wieder verschwinden. Also kopieren und dann automatisch die Kopie wieder lösc...
01.12.2008 09:08:18
Thread-ID: 1029158
2 Beiträge
VBA: String+TAB an inaktives Windowsfenster senden
Melanie

Hallo allerseits,
ich moechte aus Excel heraus mit VBA code einen String (z.b "Hallo") + TAB (oder ENTER) an ein 'fremdes' WindowsapplicationFenster schicken (keine Officeanwendung), wobei das Fensterhandle (oder auch das entsprechende TextFeldHandle bekannt sind).
Allerdings soll die...
09.12.2008 08:37:52
Thread-ID: 1031241
9 Beiträge
esc Endlosschleife beenden
Michael

Hallo!
Benötige eine Schleife die die ganze Zeit im Hintergrund läuft. Bei ESC soll sie abgebrochen werden.
Mein Bescheidener Versuch!
Private Declare Function GetAsyncKeyState Lib "user32" _
(ByVal vKey As Long) As Integer
Sub Schleife()
Do
DoEvents
If (GetAsync...
22.01.2009 19:46:00
Thread-ID: 1042718
8 Beiträge
Kurze Variablendeklaration in VBA?
Gunnar

Hi Leute,
gibt es in VBA keine andere Möglichkeit, Variable zu deklarieren außer
Dim abc As Integer, abd As Integer abe As Integer
usw.? Brauch über 100 Variable, das ist mühselig.
Typenkennzeichen dürfen übrigens nicht verwendet werden, falls das wichtig ist.
Grüße Gunnar...
28.01.2009 18:36:11
Thread-ID: 1044672
5 Beiträge
Variablendeklaration über Sub hinaus
bruno

hallo
Meine Variable möche ich auch in den untersub abfragen.
Wenn ich sie im ersten sub definiere mit "Private easy As String" gibt es eine Fehlermeldung "Ungültiges Attribut in Sub oder Fuktion". Wie muss ich es definieren, damit ich es auch abfragen kann?
danke
de Bruno
17.04.2009 11:44:38
Thread-ID: 1069290
4 Beiträge

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
2
23
5
2
6
1
8
7
4
3
8
2
4
21
1
6
7
3
3
2
4
11
2
4
4