Einfachere Darstellung
28.10.2017 20:37:49
Barbaraa
Im Beispiel unten seht Ihr einen neu erstellten Type namens "Ort", das sind zwei Koordinaten. Der wird mit Zellinhalten befüllt.
Geht das nicht irgend wie einfacher? Mit Array oder Range oder so was?
So ungefähr: Zentrum=( ... :-)
Option Explicit
Private Type Ort
Waagrecht As Long
Senkrecht As Long
End Type
Sub Test()
Dim c As Long, d As Long, Zentrum As Ort
'Kann man folgende Zeilen kompakter schreiben?
Zentrum.Waagrecht = ActiveCell.Offset(0, 1)
Zentrum.Senkrecht = ActiveCell.Offset(0, 2)
End Sub