Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
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
1368to1372
1368to1372
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Min. und max. X-Achsenbeschriftung durch VBA

Forumthread: Min. und max. X-Achsenbeschriftung durch VBA

Min. und max. X-Achsenbeschriftung durch VBA
30.06.2014 16:38:50
Han2883
Hallo Gemeinde,
Ich habe eine einfache Frage und zwar, ich habe bereit ein Diagramm erstellt. Erwünscht wird der min. Wert und der max. Wert der X-Achsenbeschriftung mit VBA automatisch von den Zellen K13(min. Wert) und K14(max. Wert) aufgerufen, wenn man die Werte in K13 und K14 manuell ändert.
Kann mir jemand erklären, wie's mit dem Code geht?
Danke im voraus. :-)
Gruß
Han2883

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Min. und max. X-Achsenbeschriftung durch VBA
30.06.2014 16:55:37
Beverly
Hi Han,
kopiere folgenden Code ins Codemodul des Tabellenblattes:
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$K$13", "$K$14"
With ActiveSheet.ChartObjects(1).Chart.Axes(xlCategory)
.MinimumScale = Range("K13")
.MaximumScale = Range("K14")
End With
End Select
End Sub

Anzeige
AW: Min. und max. X-Achsenbeschriftung durch VBA
30.06.2014 17:19:23
Han2883
Hallo Karin,
Danke für die schnelle Rückmeldung. Aber es hat leider nicht geklappt. Ich glaub da fehlt's noch die Verbindung zum Diagramm. Ich habe in der Arbeitsmappe mehrere Diagramme erstellt aber diesen Bezug der Beschriftung brauch ich eigentlich nur für das einzige Diagramm mit Namen "Gehalt pro Jahr". Wie kann ich die Adresse zum Diagrammm definieren?
Danke Dir :-)
Gruß
Han

Anzeige
AW: Min. und max. X-Achsenbeschriftung durch VBA
30.06.2014 17:34:58
Beverly
Hi Han,
mein Code gilt für das 1. eingebettete Diagramm(objekt) im Tabellenblatt mit dem Code. Da ich nicht weiß, wo sich dein Diagramm(objekt) befindet oder ob es gar ein Diagrammblatt ist, kann ich dazu leider nicht sagen.

Anzeige
AW: Min. und max. X-Achsenbeschriftung durch VBA
01.07.2014 09:09:09
Han2883
Hallo Karin,
leider komme ich noch nicht so klar mit der Bezeichnung des Diagramms. Folgendes siehst Du mein Projekt.
Userbild
Könntest Du mir sagen wie ich die Adresse des Diagramms ziehen könnte?
Gruß
Han2883

Anzeige
AW: Min. und max. X-Achsenbeschriftung durch VBA
02.07.2014 12:29:52
Beverly
Hi Han,
du benutzt ein Diagrammblatt, kein eingebettetes Diagramm(objekt)
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$K$29", "$K$33"
With Charts("Diagramm1").Axes(xlCategory)
.MinimumScale = Range("K29")
.MaximumScale = Range("K33")
End With
End Select
End Sub

Anzeige
AW: Min. und max. X-Achsenbeschriftung durch VBA
02.07.2014 13:13:24
Han2883
Hallo Karin,
Danke für deine Nachricht!
Aber leider klappt es immer nicht. da kommt immer folgende Meldung:
Userbild
Danke erstmal! :-)
Gruß Han2883

AW: Min. und max. X-Achsenbeschriftung durch VBA
02.07.2014 14:12:45
Beverly
Hi Han,
dann verwendest du einen Diagrammtyp, bei dem du die Achsenskalierung nicht ändern kannst, weil sie von der Anzahl der vorhandenen Werte abhängt - wie z.B. bei einem Linien-, Säulen- oder Flächendiagramm. Die Achsenskalierung lässt sich nur bei einem Punkt-Diagramm unabhängig von der Anzahl an Werten skalieren.

Anzeige
AW: Min. und max. X-Achsenbeschriftung durch VBA
03.07.2014 17:50:18
Han2883
Hallo Karin,
Jop jetzt habe ich das alles kapiert und mein Wünsch ist erzielt. danke dir sehr für die Erklärung. :-)
Gruß Han2883
;

Forumthreads zu verwandten Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Register der Multifunktionsleiste per VBA aktivier
Günther

Hallo!
Ich würde gerne per VBA das aktive Register der Multifunktionsleiste verändern (konkret: das Register Add-Ins aktivieren, damit dessen Inhalte im Vordergrund sichtbar werden).
Kennt jemand den entsprechenden Befehl? Wenn ja, mir bitte kurz mitteilen.
Herzlichen Dank im Voraus...
23.11.2008 17:51:53
Thread-ID: 1027119
4 Beiträge
Anzeige
VBA Progr. Schleife- Doppelklick in Zelle
Jeebee

Guten Morgen,
Habe in Excel folgendes Problem: Ich übernehme eine Tabelle aus SAP. Leider Sind die Zahlen dort nicht als Zahl definiert sondern als Text. Jede Zahl zB. 33,01- hat einen Bindestrich hinten dran. Dass ich den wegkriege konnte ich bereits mit "Makro aufzeichnen" lösen.
Dies...
07.03.2009 09:56:05
Thread-ID: 1057531
3 Beiträge
VBA code für automatischen Rechts-Shift
Markus

Hallo Zusammen,
hat jemand eine Idee für einen VBA code zu folgendem Problem
(siehe https://www.herber.de/bbs/user/61304.xls)
:
In Spalte S finden sich verschiedene Werte. Die Spalte S soll nun durchsucht werden. Wenn in der Zelle EUR steht, dann soll dann soll wenn dies z.B. Z...
20.04.2009 11:05:39
Thread-ID: 1069746
3 Beiträge
Anzeige
VBA Laufschrift: Zeitgrenze definieren
dieter(drummer)

Excle/VBA SoLaLa
Hi VBA Profis,
habe aus dem Forum folgendes Makro in meiner Arbeitsmappe, Modul2. Es bewirkt, das in der aktiven Tabelle, hier TAB4, in Zelle B5 eine vorhandener Text als Laufschrift abläuft.
Makro (Verfasser hatte ich leider nicht notiert):
Declare Sub Sleep...
23.10.2009 16:56:17
Thread-ID: 1111654
3 Beiträge
Range Bezüge in VBA von fix auf relativ umstellen
fix

Hallo Herber Fans,
ich ermittle einen Range:
Set rgGPTMember_Source = Intersect(rgGPTMemberAugmentation.Rows(1).Find("GPT Member", LookIn:=xlValues, LookAt:=xlWhole).EntireColumn, rgGPTMemberAugmentation)
Dessen Adresse lautet dann: $G$5:$G$34
Dieser Range wird nun in eine Namen...
07.01.2010 21:06:12
Thread-ID: 1128031
7 Beiträge
VBA Schleife mit Bedingung
Benjamino

Hallo zusammen,
bin ein blutiger VBA-Neuling und versuche bislang erfolglos mein Problem zu lösen. Wäre unendlich dankbar, wenn mir jemand weiterhelfen könnte.
Das unten stehende Makro "Makro2" soll solange durchlaufen werden, bis in der Spalte A im Sheet "Readme" keine befüllte Zellen...
20.03.2010 23:25:52
Thread-ID: 1147311
5 Beiträge
VBA If-Fkt mit Teilstring
Jonathan

Hallo liebe Experten,
ich bekomme es einfach nicht hin...
Ausgangssituation:
2 Dateien mit Adressdaten (1 Zeile A-H) enstpricht einer Adresse.
Jede Adresse hat in Spalte A eine Adressnummer, quasi als Primärschlüssel
Folgender Code vergleicht die Datei "Freizeitliste_XY500.x...
13.05.2010 14:52:18
Thread-ID: 1156910
7 Beiträge
Mit VBA Zugriff auf ein pdf-Dokument
Gregor

Hallo zusammen
Ich möchte in einer Excel Tabelle aus einem pdf Vornamen und Namen kopieren. Dabei muss ich in einem e-Book (pdf) nach dem Begriff "Erstellerautor" suchen, und dann die jeweiligen Namen NACH diesem Suchgegriff kopieren und in einer Excel-Tabelle einfügen. Das e-Book ist alpha...
18.08.2010 16:48:01
Thread-ID: 1172920
3 Beiträge
VBA: If-Fkt mit Teilstring - Daten aktualisieren
Joe

Hallo liebe Experten,
ich stehe mal wieder vor einer Hürde, bei der ich eure Hilfe bräuchte.
Folgender Code sucht in einer Adressdatei (adressen.xls) nach einer Nummer (Spalte Q). Diese Nummer steht in einer Zelle in welcher noch weitere, durch Komme getrennte, Nummern stehen können.
24.08.2010 13:10:36
Thread-ID: 1173865
2 Beiträge
If ActiveWorkbook.Name <> ThisWorkbook.Name Then E
Heinz

Hallo Leute
Hatte im Jänner im Forum angefragt.
Habe einen Schichtplan mit vielen Makros, und Protect mit Passort.
Wenn ich in der Firma den Schichtplan öffne UND eine andere Exceltabelle öffne,das dort auch der Blattschutz reinkommt.
Warum ?
Nun hatte ich einen Lösungsvorsc...
10.03.2011 12:48:10
Thread-ID: 1205143
6 Beiträge
VBA Schleife Farbhintergrund setzen
Dieter(Drummer)

Hi VBA Spezislisten,
suche ein VBA Lösung: Der Bereich ist A4 bis AH34! Ab der aktiven Zelle sollen 3 Zellen BLAU, die nächsten 3 ROT und die nächsten 3 GRÜN Hintergrund gefärbt werden. Dann wieder mit ROT usw. beginnen. Dies soll sich max. bis Zeile 34 der aktiven Spalte wiederholen.
D...
27.04.2011 12:53:49
Thread-ID: 1211980
14 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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