Hi,
ich habe ein ziemlich lächerliches Problem, zumindest kommt es mir so vor, aber ich habe nun schon alles versucht.
Hier mal der Code:
--------------------------------
Private Sub berechnen_click()
Dim Dampfzuströmung As String
Dim Variante As String
Dim n As Variant
Dim counter As String
Dim m As Variant
Dim z, s As Integer
Dim zelle As String
Dim startrow As String
Dim startcolumn As String
Dim variable As Integer




counter = "0"
For Each n In [A4:AC4]
If n.Value = "ND" Then
counter = counter + 1
End If
Next



Select Case counter
Case "1"

startrow = "52"
startcolumn = "L"

For Each m In [B26:AB26]
If m.Value = "" Then

Else
z = m.Row
s = m.Column


zelle = startcolumn & startrow

variable = Worksheets("Dateneingabe").Cells(s, z).Value
'Range(zelle).Value = Cells(s, z).Value

startrow = startrow + 9
End If
Next
....
-----------------------------
Die Zuweisung
variable = Worksheets("Dateneingabe").Cells(s, z).Value
funktioniert einfach nicht. s und z sind zwar korrekt eingegeben und werden im Debug Mode auch angezeigt, aber der Wert dieser Zelle wird einfach nicht in "Variable" geschrieben.
Kann sich jemand vorstellen warum?
Gruß und dank
greg