makro zum auslesen und einfügen von zellenwerten
20.10.2007 13:27:00
zellenwerten
ich stehe vor folgendem Problem:
Ich habe ein excel-tool erstellt, mit dem ich in einzelnen Tabellenblättern Informationen über verschiedene Projekte sammle, pro Tabellenblatt sind dies in etwa 100 Werte.
Darüber hinaus habe ich ein Übersichtsblatt kreiiert, in welches die einzelnen Daten ausgelesen werden sollen, so dass ich basierend darauf Auswertungen machen kann. In dem Übersichtsblatt werden die Werte des einzelnen Projekts in einer Zeile eingetragen.
Dazu habe ich ein Makro geschrieben, siehe unten. Das Problem ist nun, dass dieses Makro super lange braucht. Ich möchte es wenn irgendwie möglich schneller machen und hoffe ihr könnt mir helfen.
Herzlichen Dank,
Tillmann
Private Sub CommandButton2_Click()
Dim text As String
Dim i, j As Integer 'Anzahl_Tabellenblätter dient mir zum zählen der Anzahl Tabellenblätter
'die ersten 3 Tabellenblätter müssen unberührt bleiben!
i = 4 ' die ersten drei Tabellenblätter sollen unberührt bleiben, weil sie keine Übersicht sind
j = 23 'benötige ich zum zählen der zeilen in Übersichtsblatt
With Application
.ScreenUpdating = False
End With
With Sheets("Übersicht")
.Range("C23") = 1
.Range("B23:FG100").SpecialCells(xlCellTypeConstants).ClearContents
End With
Do While i