Tabellenblattwechsel und Zellen auslesen ?
08.09.2003 11:38:33
Michael
ich habe bei folgendem code ein Brett vorm Kopf und hoffe, Ihr könnt mir helfen.
Die Aufgabe: Über einen Button in Tabellenblatt1 wird ein neues Tabellenblatt aus einem anderen Workbook kopiert. Aus diesem neuen Blatt ("Blatt2") sollen die Werte der Spalte A nacheinander ausgelesen werden.
Problem1: Nach dem Kopieren ist trotz eines "Sheets("Blatt2").Select" offenbar das Blatt1 noch aktiv, so dass die Werte von dort ausgelesen werden und nicht die Werte aus dem neuen Blatt2.
Problem2: Obwohl auch in Blatt1 die Spalte A in vier Zeilen gefüllt ist, wird offenbar nur die erste gelesen.
Der Code:
Private Sub Blatt1Button_Click ()
Dim Zellinhalt()
Dim Zellcounter As Integer
Zellcounter = 1
' An dieser Stelle wird das neue Blatt "Blatt2" kopiert.
' Den Code lasse ich weg, weils funktioniert.
Sheets("Blatt2").Select
Do Until IsEmpty(Cells(Zellcounter, 1))
ReDim Preserve Zellinhalt(Zellcounter)
Zellinhalt(Zellcounter) = Cells(Zellcounter, 1)
' Hier zeigt ein MsgBox von "Zellinhalt(Zellcounter)"
' den Wert aus Blatt1(1,1). Danach wird die Schleife beendet. ???????
Zellcounter = Zellcounter + 1
Loop
End Sub