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"