Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1628to1632
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

X Y Koordinaten erstellen

X Y Koordinaten erstellen
14.06.2018 14:13:55
Manuela
Hallo zusammen,
ich möchte XY Koordinaten erstellen.
Ist es Möglich das mir über eine VBA Anforderung die Daten (X) (Y) (delta X) (delta y) (Anzahl X) (Anzahl Y) eingebe und mir die Tabelle erstellt wird.
Hört sich vielleicht Kompliziert an, aber hier ein kleines Beispiel:
Anzahl in X = 3
Anzahl in Y = 2
X1 = 100 mm
Y1 = 50 mm
Delta X = 2mm
Delta Y = 1mm
Somit sollte sich anhand der Werte eine Tabelle Erstellen:
X1 = 100mm
X2 = 104mm
X3 = 108mm
Y1 = 50mm
Y2 = 51mm
Ich hoffe einer kann mir helfen. Und bedanke mich schon mal recht Herzlich.
Gruß
Manuela

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: X Y Koordinaten erstellen
14.06.2018 14:24:30
mmat
Das Beispiel in der Aufgabestellung ist falsch, es muß
X1 = 100mm
X2 = 102mm
X3 = 104mm
lauten oder alternativ "Deltax=4mm"
Sub tabelle()
Const X = 3
Const Y = 2
Const X1 = 100
Const Y1 = 50
Const DX = 2
Const DY = 1
Dim n As Long, r As Long
Workbooks.Add
r = 1
For n = 0 To X - 1
Cells(r, 1) = CStr(X1 + n * DX) + "mm"
r = r + 1
Next
r = r + 1
For n = 0 To Y - 1
Cells(r, 1) = CStr(Y1 + n * DY) + "mm"
r = r + 1
Next

AW: X Y Koordinaten erstellen
14.06.2018 14:27:53
Manuela
Du hast recht, habe mich vertan.
Danke für den Code. Funktioniert so wie ich das wollte. Werde es mir Anpassen soweit ich es benötige.
Danke nochmal für die schnelle Antwort & Lösung.
Gruß
Anzeige
gerne!
14.06.2018 14:37:04
mmat

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige