ich habe ein problem.
und zwar versuche ich mit dem nachfolgenden Makro punkte nach Ihrere Lage im karth. Koordinatensystem zusortieren (verschiedene Sheets) und ihnen die entsprechenden Verschiebgsvektoren x,y,z, zuzuordnen.
Mein problem besteht nun darin, dass es mir
erstens nicht gelingt
die variable y auf den verschiedenen sheets unterschiedlich zu definieren, soll heisssen, dass y von anfang an immer größer wird und mit 257 die Zahl der Spalten aber begrenzt ist
und zweitens die abfrage ob der Punkt schon esistiert nicht erkennt.
Mein Makro
Select Case koord
Case "x"
d = 0
Case "y"
d = 1
Case "z"
d = 2
End Select
Sheets(datei).Select
zuordnung = punkt & "-" & tube
y = 0
For i = 1 To Worksheets(datei).Cells(Rows.Count, 2).End(xlUp).Row
If Worksheets(datei).Cells(i, 2).Value = "Step" Then
For y = 1 To Worksheets(zuordnung).Cells(1, Columns.Count).End(xlToLeft).Column
If Worksheets(zuordnung).Cells(1, y).Value = tunnel Then
j = y - 3
Else: End If
Next y
j = y + 3
Sheets(zuordnung).Cells(1, j).Value = tunnel
Else
lz = Worksheets(zuordnung).Cells(Rows.Count, (j + d)).End(xlUp).Row
Worksheets(zuordnung).Cells((lz + 1), (j + d)).Value = Worksheets(datei).Cells(i, 3).Value
End If
Next i
mfg mimmo