Schleifenproblem doppeldurchlauf
14.05.2006 16:41:26
SteffenS
ich brauche bitte mal Eure Hilfe.
Ich habe folgenden Code:
Sub variable_bereiche_start()
Dim wkb As Workbook
Dim wks As Worksheet
For Each wkb In Workbooks
For Each wks In wkb.Worksheets
With wks
last_cell = .Cells(Rows.Count, 256).End(xlUp).Row '--> letzte Zelle aktuelles Blatt
If wks.Name = "NW-Mod" Then
MsgBox (last_cell)
End If
End With
Next wks
Next wkb
End Sub
Irgendwas stimmt damit nicht.
1. jedes Arbeitsblatt wird 2x anfefaßt
2. beim ersten Aufruf des Blattes ist die Ermittlung der letzten Zelle immer 1
beim 2. ten mal stimmt der Wert dann
3. wie kann ich die letzte Zelle ermitteln auch wenn zeilen ausgeblendet sind?
Ich weis net mehr was ich machen soll, denn manchmal ist der Wert der letzten Zelle auch beim 2.ten mal 1 und ich weiß net warum.
Vielleicht habt Ihr eine Idee
Danke schonmal
Steffen Schmerler