Supportnet / Forum / Tabellenkalkulation

hallo zusammen, folgendes makro funktioniert zwar, aber es kommt die meldung objekt erforderlich für diese zeile: If ActiveSheet.Cells(Zeile, Spalte).Value <> "0" Then makro: Sub diagramm() Dim Zeile As Integer Dim Spalte As Integer Zeile = 5 Spalte = 2 kfound = False Sheets("TBT").Activate Do Until kfound If ActiveSheet.Cells(Zeile, Spalte).Value <> "0" Then Spalte = Spalte + 1 Diagramm1.SetSourceData Source:=Sheets("TBT").Range("B4:GT250"), _ PlotBy:=xlRows Else Diagramm1.SetSourceData Source:=Sheets("TBT").Range(Cells(4, 2), Cells(250, Spalte - 1)), _ PlotBy:=xlRows kfound = True Exit Do End If Loop End Sub was muss ich da noch ändern, um die meldung zu vermeinden? danke gruß sebal [*][sup][i] *Threadedit* 15:50:05 Admininfo: Führ bitte einen Thread nicht fort indem du Weitere eröffnest, und vermeide Mehrfachanfragen. Die Datenbank und User werden es dir danken. Siehe [u][url=https://supportnet.de/faqsthread/840]FAQ 2.[/url][/u][/i][/sup]

hi sebal

ich korrigierte dich schon einmal,du lernst aber nix daraus

halte erstmal eine korrekte syntax und deklarierung ein

halte dich an kleinen makros die fuer dich ueberschaubar sind und uebe dich darin,ich verzichte diesmal auf korrigierung da du immer die selben fehler machst

noch als tip fuer die deklarierung

setze immer als erste zeile option explicit ein

gruss gast123

Hallo sebal,

schrebe doch gleich das Du unsere Vorschläge nicht einarbeiten willst. Dann können wir uns die Zeit sparen.

Gruß Hajo

• Western Digital WDAC2850-00F gesucht !!! - Thread Closed
• Makro hängt sich auf... - *Thread Closed*
• Makro Fehler gesucht