|
Moin
Brauche eure Hilfe.
Public EB(500)
Public AB(500)
Sub Bloecke()
'letzte Zeile ermitteln
zz = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
'###
'Anfang Messblock
For I = 14 To zz + 1
If Right(Range(Cells(I, 3), Cells(I, 3)).Value, 2) = "01" Then
AB(yi) = Range(Cells(I, 3), Cells(I, 3)).Row
End If
Next I
'###
'Ende Messblock
For I = 15 To zz + 1
If Right(Range(Cells(I, 3), Cells(I, 3)).Value, 2) = "01" Then
EB(yi) = Range(Cells(I, 3), Cells(I, 3)).Row - 1
End If
If Right(Range(Cells(I, 3), Cells(I, 3)).Value, 2) = "" Then
EB(yi) = Range(Cells(I, 3), Cells(I, 3)).Row - 1
End If
Next I
Call a
End Sub
Sub a()
For y = 1 To 8
MsgBox AB(2) & " - " & EB(2) & " / " & y
Next y
End Sub
Gebe ich in den IF 's eine MSGBOX ein bekomme ich die Werte (Zeilennummer)
Wieso bekomme in Sub a() keine Werte angezeigt?
Was mache ich mit den Öffendlichen Variablen falsch?
Schonmal im Vorraus Vielen Dank
|