Microsoft Excel

Herbers Excel/VBA-Archiv

Was ist hier falsch(Value Eigenschaft)

Betrifft: Was ist hier falsch(Value Eigenschaft) von: Regnar
Geschrieben am: 11.08.2004 13:25:12

Moin libe Excelgemeinde,
da meine Datei zu gross zum hochladen ist Versuche ich mein Problem verbal zu erörtern.

Ich habe zwei Commandbutton erstellt bei denen auf Knopfdruck ein Diagramm erstellt werden soll. Dazu habe ich noch ein Feld in dem eine KW eingetragen wird. Das Diagramm soll immer bis zu der dort eingebenen KW erstellt werden.

Hier ist der Code bis dato.

Private Sub Teilprojekt1_Click()
 
Dim xWks As Worksheet
Dim y


Application.EnableEvents = False

Set xWks = Status_Report
   Set xCharts = xWks.ChartObjects(1).Chart
   y = Status_Report.Cells(1, 14).Value
   If y > 0 And y < 53 And IsNumeric(y) Then
       
        xCharts.SeriesCollection(2).Values = _
        Datensammler.Range("B7:" & Datensammler.Cells(7, y).Address & "")
        xCharts.SeriesCollection(1).Values = _
        Datensammler.Range("B6:" & Datensammler.Cells(6, y).Address & "")
    
        
    End If
Application.EnableEvents = True

End Sub

Private Sub Teilprojekt2_Click()
 
Dim xWks As Worksheet
Dim y


Application.EnableEvents = False

Set xWks = Status_Report
   Set xCharts = xWks.ChartObjects(1).Chart
   y = xWks.Cells(1, 14).Value
   If y > 0 And y < 53 And IsNumeric(y) Then
    
        
        xCharts.SeriesCollection(2).Values = _
        Datensammler.Range("B9:" & Datensammler.Cells(7, y).Address & "")
        xCharts.SeriesCollection(1).Values = _
        Datensammler.Range("B8:" & Datensammler.Cells(6, y).Address & "")
    
        
    End If
Application.EnableEvents = True

End Sub


Leider sagt er mir immer das die Value Eigenschaft nicht gefunden werden kann, was auch immer das heissen mag...

Ich verstehe leider nicht all zu viel von VBA und habe mir diesen Code zurechtgebastelt aus einer früheren Programmierung.

Vielen Dank allen Helfern, ich bin mit meinem Latein am Ende :-((
  


Betrifft: AW: Was ist hier falsch(Value Eigenschaft) von: Ulf
Geschrieben am: 11.08.2004 13:31:33

Was soll Status_Report sein? Wenns der Codename der Tabelle ist, erübrigt es sich, eine
Objektvariable zu setzen. Falls variable, ist sie nicht deklariert.

Ulf


  


Betrifft: AW: Was ist hier falsch(Value Eigenschaft) von: Regnar
Geschrieben am: 11.08.2004 13:41:13

Moin Ulf, danke für deine Antwort.

Status Report ist der Name einer Tabelle ebenso wie Datensammler.

Was heisst denn Objektvariable setzen?
Gruss Regnar


  


Betrifft: AW: Was ist hier falsch(Value Eigenschaft) von: Ulf
Geschrieben am: 11.08.2004 13:47:28

Wenn es Tabellennamen(nicht die Codenamen) sind, ist die Syntax falsch, die Namen müssen in "" angegeben werden.

Ulf


  


Betrifft: AW: Was ist hier falsch(Value Eigenschaft) von: Regnar
Geschrieben am: 11.08.2004 13:53:14

Set xWks = "Status_Report" mache ich das sagt er mir "Fehler beim kompilieren".

Und wenn ich y = "Status_Report".Cells(1, 14).Value mache, sagt er "Fehler warten auf Syntaxende"...


  


Betrifft: Worksheets("Status_Report") oT von: Uduuh
Geschrieben am: 11.08.2004 13:57:56




  


Betrifft: AW: Worksheets("Status_Report") oT von: Regnar
Geschrieben am: 11.08.2004 14:04:17

Also das funzt gar nicht..."Typen unverträglich"

Beim anderen "Status_Report".Cells sagt er mir erwartet Anweisungsende!


  


Betrifft: AW: Worksheets("Status_Report") oT von: Ulf
Geschrieben am: 11.08.2004 14:13:04

Wenn du den Code aus dem Zusammenhang reißt, ist eine Diagnose nicht möglich. Speck
eine Mappe ab und lad sie hoch.

Ulf


  


Betrifft: AW: Worksheets("Status_Report") oT von: Regnar
Geschrieben am: 11.08.2004 14:19:41

So da ist sie ich hoffe ihr kommt damit klar...

https://www.herber.de/bbs/user/9511.xls


Danke


  


Betrifft: AW: Worksheets("Status_Report") oT von: Ulf
Geschrieben am: 12.08.2004 12:19:30

Private Sub Worksheet_Change(ByVal Target As Range)

Diese Sub steht in einem Modul und hat da nun gar nichts zu suchen. bring das erstmal in Ordnung.

Ulf


  


Betrifft: AW: Worksheets("Status_Report") oT von: Regnar
Geschrieben am: 12.08.2004 12:44:16

Das Problem ist gelöst ich habe ein bißchen hin und her probiert und hier ist die Lösung:
Private Sub Teilprojekt1_Click()
 
Dim xWks As Worksheet
Dim y As Integer


Set xWks = Status_Report
   y = Status_Report.Cells(1, 14).Value
   If y > 0 And y < 53 And IsNumeric(y) Then
    
    Application.ScreenUpdating = False
    Projektdaten.Activate
Set xWks = Status_Report
        Set xCharts = xWks.ChartObjects(1).Chart
        xCharts.SeriesCollection(2).Values = _
        Datensammler.Range("B7:" & Datensammler.Cells(7, y).Address & "")
        xCharts.SeriesCollection(1).Values = _
        Datensammler.Range("B6:" & Datensammler.Cells(6, y).Address & "")
    
        
    End If
    
    Status_Report.Activate
    Application.ScreenUpdating = True


End Sub


Danke allen Helfern.
Gruss


 

Beiträge aus den Excel-Beispielen zum Thema "Was ist hier falsch(Value Eigenschaft)"