Die folgende Zeile bringt Laufzeitfehler '438':
Sub Zugriff()
txtInhalt1A = Worksheets("ASW4 Vergleich").ActiveCell.Offset(RowArbeitsblatt1, txtSpalte1A).Value
End Sub
Gruß Werner
Sub Zugriff()
txtInhalt1A = Worksheets("ASW4 Vergleich").ActiveCell.Offset(RowArbeitsblatt1, txtSpalte1A).Value
End Sub