Hallo www-Forum,
ich bin gerade Dabei, per VB in Excel eine Datenaktualisierung zu programmieren.
Konkret sollen 150 Zellen abgefragt werden, und wenn der Nutzer Text hinterlegt hat, aus einer weiteren Excel Datei mit eben diesem Zellinhalt als Dateinamen der Inhalt von 3 bestimmte Zeilen (mit den Werten Bedarf, Maximal-Kapazität und Normal-Kapazität in der ersten Spalte) kopiert werden, aus denen dann in der ersten Excel Datei ein Diagramm erzeugt wird.
Soweit so gut, das ganze funktioniert auch, nur dauert eine Aktualisierung der Datei 1:15 Minuten…
Könnt ihr mir sagen, wie ich folgenden Code (ist für 1 Feld, das ganze ist auf insgesamt 15 Arbeitsblättern jeweils 10 mal vorhanden) optimieren kann?
If Worksheets(„WSG30“).Cells(4, 1).Value = 0 Then
Worksheets(„WSG30“).ChartObjects(„Diagramm 3“).Visible = False
Else
Worksheets(„WSG30“).ChartObjects(„Diagramm 3“).Visible = True
Dateiname = Worksheets(„WSG30“).Cells(4, 1).Value & „.xlsx“
objexcel.Workbooks.Open (ThisWorkbook.Path & „“ & Dateiname)
objexcel.Visible = False
Set objsheet = objexcel.Sheets(„2012“)
izl = 30
Do Until inh = „Bedarf“
inh = objsheet.Cells(izl, 1).Value
izl = izl + 1
Loop
For Spalte = 4 To 15 Step 1
Worksheets(„Tabelle5“).Cells(58, Spalte).Value = objsheet.Cells(izl - 1, Spalte)
Next
Do Until inh = „Normal-Kapazität“
inh = objsheet.Cells(izl, 1).Value
izl = izl + 1
Loop
For Spalte = 4 To 15 Step 1
Worksheets(„Tabelle5“).Cells(61, Spalte).Value = objsheet.Cells(izl - 1, Spalte)
Next
Do Until inh = „Maximal-Kapazität“
inh = objsheet.Cells(izl, 1).Value
izl = izl + 1
Loop
For Spalte = 4 To 15 Step 1
Worksheets(„Tabelle5“).Cells(68, Spalte).Value = objsheet.Cells(izl - 1, Spalte)
Next
objexcel.Workbooks.Close
End If