VBA Zellenzuweisung

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: VBA Zellenzuweisung von: Ivi
Geschrieben am: 24.02.2005 14:02:18

Hallo Leute,

mal ne andere Frage.
wie kann ich in VBA einen Wert aus dem sheet zuweisen.
Bsp.

Ich möchte das der Wert aus der Zelle A1 als kleinster Wert auf der Achse gilt.

.MinimumScale= a1 so sollte das aussehen aber läuft nicht....

Danke und Gruß

Bild


Betrifft: AW: VBA Zellenzuweisung von: Harald Kapp
Geschrieben am: 24.02.2005 14:05:22

Hallo Ivi,

=Cells(1,1)

Gruß Harald


Bild


Betrifft: AW: VBA Zellenzuweisung von: Ivi
Geschrieben am: 24.02.2005 14:13:10

läuft leider nihct...habe

.Minimumscale = Cells(1,1) stehen....eine Idee???


Bild


Betrifft: AW: VBA Zellenzuweisung von: Harald Kapp
Geschrieben am: 24.02.2005 14:21:23

Hallo Ivi,
der Fehler muss an anderer Stelle im Code liegen, siehe Beispiel:



Sub test()
MsgBox Cells(1, 1)
End Sub


Gruß Harald


Bild


Betrifft: AW: VBA Zellenzuweisung von: Ivi
Geschrieben am: 24.02.2005 14:31:06

Also hier ist der code....ich weiss echt nicht woran es liegt..


Sub Makro2()
    ActiveSheet.ChartObjects("Diagramm 2").Activate
    ActiveChart.Axes(xlCategory).Select
    With ActiveChart.Axes(xlCategory)
        .MinimumScale = Cells(1, 1)
        .MaximumScale = Cells(1, 2)
        .MinorUnitIsAuto = True
        .MajorUnitIsAuto = True
        .Crosses = xlAutomatic
        .ReversePlotOrder = False
        .ScaleType = xlLinear
        .DisplayUnit = xlNone
    End With
End Sub


Danke und Gruß


Bild


Betrifft: AW: VBA Zellenzuweisung von: Dominic
Geschrieben am: 24.02.2005 14:46:19

Die Objekte Chart und Worksheet sind auf derselben Ebene in der Objekt-Hierarchie, daher kann man es nicht zwischen zwei verschiede Objekte ansprechen.

Userbild


Folgendes sollte aber gehen (nicht getestet!)
.MinimumScale = ThisWorkbook.Worksheets("Name").Cells(1, 1).Value

Gruß
Dominic


Bild


Betrifft: AW: VBA Zellenzuweisung von: Ivi
Geschrieben am: 24.02.2005 14:56:59

ICH DANKE DIR VIIIEL MAAALS....Funktioniert Perfekt!!! :-)

Cheers.....


Bild


Betrifft: Freut mich! Danke fürs Rückmeldung! o.T. von: Dominic
Geschrieben am: 24.02.2005 14:58:42

Gruß
Dominic


Bild


Betrifft: AW: VBA Zellenzuweisung von: Dominic
Geschrieben am: 24.02.2005 14:35:56

Hallo,

Beim erstellen von Diagrammen kam es bei mir auch vor.
Lösung:

Sub loesung()
Dim a As Single
'dein code
a = Cells(1, 1).Value
'dein code
.MinimumScale = a
'dein code
End Sub


Gruß
Dominic


 Bild

Beiträge aus den Excel-Beispielen zum Thema "if mit zwei bedingungen"