code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
| Private Sub Worksheet_Activate()
Columns("A:A").Select
Selection.Delete Shift:=xlToRight
ActiveWorkbook.RefreshAll
Teller = 1
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Columns("A:A").Select
Selection.ClearContents
For Each cel In Range("B:B")
If IsNumeric(cel.Value) And cel.Value <> "" Then
cel.Offset(0, -1).Value = Teller
Teller = Teller + 1
End If
Next cel
Tellera = Int(Teller)
ActiveChart.SeriesCollection(1).Values = "=Sheet1!R2C2:R" + Tellera + "C2"
ActiveChart.SeriesCollection(1).XValues = "=Sheet1!R2C1:R" + Tellera + "C1"
End Sub |
Beste mensen zit met het volgende probleempje, ik ben bezig met een systeempje te maken die mijn logfiletjes kan analyseren. Alles word mooi in een database gezet en vanuit die database word het in een excelsheet geimporteerd. Alles word realtime geupdate. Maar het probleem is dat als ik de lijst langer word de grafiek niet word bij gewerkt daarom heb ik een id nummer voor alle gegevens gezet en wil ik aan de hand van de teller die ik gemaakt heb de grafiek automatisch groter maken. Ik zit alleen nou met het probleempje dat ik bij bovenstaande code een error krijgt. Deze error is: Object variable or With block variable not set (Error 91). Mijn vraag was of jullie weten wat ik fout doe. Ik zit niet zo heel erg in het visualbasic gedoe vandaar. Hij geeft de fout aan in regel 24. Ik hoop dat jullie ideeen hebben. Bedankt
[ Voor 5% gewijzigd door Verwijderd op 14-06-2005 11:55 ]
