Schleife
30.03.2020 13:54:58
Fredo
ich sehe den Wald vor lauter Bäumen nicht mehr. Was ist falsch an dem Codeschnipsel?
Option Explicit
Dim StZeile As Long
Dim StSpalte As Long
Sub StammdatenLaden()
With Tabelle5
If .Range("B24").Value = Empty Then Exit
Sub StammdatenLaden()
With Tabelle5
If .Range("B24").Value = Empty Then Exit Sub
.Range("B26").Value = True 'Setzt Patient geladen auf WAHR
StZeile = Range("B24").Value 'StammZeile wird festgelegt
For StSpalte = 18 To 34
.Range(.Cells(21, StSpalte).Value).Value = Cells(StZeile, StSpalte).Value
Next StSpalte
On Error Resume Next
' .Range("B3").Value = False
' .Shapes("PatientNeu").Visible = msoCTrue
' .Shapes("PatientWeg").Visible = msoCTrue
' .Shapes("PatientAbruch").Visible = msoCTrue
' .Shapes("PatientSave").Visible = msoCTrue
.Range("B26").Value = False 'Setzt Patient geladen auf FALSCH
End With
End Sub
An dieser Stelle bricht der Code ab
.Range(.Cells(21, StSpalte).Value).Value = Cells(StZeile, StSpalte).Value
wenn ich im Haltemodus über die Variablen klicke, werden jedoch die richtigen Werte Zeile 21, Spalte 18) angezeigt.
Wer kann mir weiterhelfen?
Vielen Dank
der Fredo