Auslesen und in einem neuen Sheet einfügen

Hallo Community,
ich habe folgendes Problem und benötige unbedingt hilfe...
Es wird jetzt relativ viel Text kommen also BITTE nicht abschrecken, aber die Erfahrung zeigt, wenn man jemanden etwas erklären möchte....sollte man das auch gründlich machen :)
#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+
Ich würde gerne aus einem bestimmten Tabellenblatt, Werte auslesen, diese Werte in einem anderem Tabelleblatt einfügen und mit den "alten" Werten vergleichen und bei einer Änderung mit dem neuen Wert diese Änderung aktualisieren.
#25 = CARTESIAN_POINT('',(0.E+000,0.E+000,100.)); ' Das ist z.B. eine Zeile dessen Werte ich benötige, es gibt mehrere Zeilen die immer mit #ZAHL beginnen.
#25 = CARTESIAN_POINT('',(X,Y,Z)); 'Und die Werte die ich brauche, stehen in der Klammer
Ich werde die Datei-Hochladen, sodass Ihr eine Vorstellung bekommt wie das aussieht und wo man diese Werte speichert.
Ich habe mir natürlich auch schon gedanken gemacht, wie das aussehen könnte.
#7 = PRODUCT('Quader_1','Quader_1','',(#8)); 'Name des ersten Bauteils in dem die Werte sind.
Die Ersten 3 FIX-Werte ODER ggf. nur den ersten als FIX-Wert Name des Bauteils ist notwendig um zu wissen wie die Range ist. Also zwischen #7 und #355(Bauteil 2) stehen die Werte vom Bauteil 1
#25 = CART...
#46 = CART...
#161 = CART...
die Nächsten 3(1) Wert(e) mit dem folgenden Schema
#355 = PRODUCT('Quader_2','Quader_2','',(#356)); 'Bauteil 2
Hier genau wie Bauteil 1 stehen die Werte zwischen #355 und #699(Bauteil 3)
344+(#25 = CART...) = #369 = CART...
344+(#46 = CART...) = #390 = CART...
344+(#161 = CART...)= #505 = CART...
#699 = PRODUCT('Quader_3','Quader_3','',(#700)); 'Bauteil 3
344+(#369 = CART...)= #713 = CART...
344+(#390 = CART...)= #734 = CART...
344+(#505 = CART...)= #849 = CART...
usw. mit Bauteil 4,5,6,n
Wie man erkennt, sind die ersten Werte FIX und dann folgt eine Addition zwischen dem Ergebnis von vorherigem Wert und dem Basiswert von 344.
Warum pro Bauteil 3 Werte gesucht werden soll? Soll als Plausibilisierungscheck dienen.
FALLS das zu umständlich SEIN SOLLTE, dann reicht auch NUR ein Wert pro Bauteil!!!
#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+#+
Angaben zur Datei: https://www.herber.de/bbs/user/90637.zip
Die zu suchenden Werte stehen im Tabellenblatt "FreeCAD_STEP"
Im Tabellenblatt "Ein_Ausgabe" werden die gesuchten Werte unter 'Positionskoordinaten FreeCAD' eingetragen.
JEDOCH der Vergleich bzw. die aktualisierung der alten Werte erfolgt unter 'Startkoordinaten Quader'.
D.h. Positionskoor. und Startkoord. werden verglichen und bei einer Änderung wird dann die Werte unter Startkoord. auf Positionskoor. gesetzt.
Im Modul: Modul_Button_FreeCAD_öffnen soll der Programmteil programmiert werden, da dieses Modul mit dem Button "FreeCAD-STEP Datei öffnen" verknüpft ist.
Gruß
CE

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Test() Dim wks As Worksheet Set wks = Worksheets("FreeCAD_STEP") Dim Zeile As Long Const Zeile1 As Long = 36 With wks For Zeile = 1 To Zeile1 If Cells(Zeile, 1).Value = "CARTESIAN_POINT" Then MsgBox "Gefunden" Else MsgBox "Nicht gefunden" End If Next Zeile End With End Sub

Sub Test3() Dim wks As Worksheet Dim ZeileP As Long, ZeileCP As Long, ZeileL As Long Dim gefCP As String Dim x() As String Dim z() As String Dim y() As String Const Fall1 As Long = 37 'Bauteil 1 = PRODUCT('Quader_1','Quader_1'... Const Fall2 As Long = Fall1 + 396 'Bauteil 2 = PRODUCT('Quader_2','Quader_2'... Const Fall3 As Long = Fall2 + 396 'Bauteil 3 = PRODUCT('Quader_3','Quader_3'... Set wks = Worksheets("FreeCAD_STEP") ZeileL = Cells(Rows.Count, 1).End(xlUp).Row With wks For ZeileP = 1 To ZeileL If Cells(ZeileP, 1).Value Like "[#]#* = PRODUCT(*" Then For ZeileCP = 1 To ZeileL 'If Cells(ZeileP, 1).Value Like "[#]#* = PRODUCT(*" Then If Cells(ZeileCP, 1).Value Like "[#]#? = CARTESIAN_POINT(*(*));" Then gefCP = Cells(ZeileCP, 1).Value '#25 = CARTESIAN_POINT('',(x.,y.,z.)); x = Split(gefCP) y = Split(Split(gefCP, "(")(2), ",") z = Split(Split(Split(gefCP, "(")(2), ")")(0), ",") Select Case ZeileCP Case Fall1 MsgBox x(UBound(x)) MsgBox y(UBound(y)) MsgBox z(UBound(z)) Case Fall2 MsgBox x(UBound(x)) MsgBox y(UBound(y)) MsgBox z(UBound(z)) Case Fall3 MsgBox x(UBound(x)) MsgBox y(UBound(y)) MsgBox z(UBound(z)) End Select End If Next ZeileCP End If Next ZeileP End With End Sub

Sub Test() Dim wks As Worksheet, wks1 As Worksheet Dim ZeileP As Long, ZeileCP As Long, ZeileL As Long Dim gefCP As String Dim a As Variant Dim x As Single, y As Single, z As Single Const Fall1 As Long = 37 'Bauteil 1 = PRODUCT('Quader_1','Quader_1'... Const Fall2 As Long = Fall1 + 396 'Bauteil 2 = PRODUCT('Quader_2','Quader_2'... Const Fall3 As Long = Fall2 + 396 'Bauteil 3 = PRODUCT('Quader_3','Quader_3'... Set wks = Worksheets("FreeCAD_STEP") Set wks1 = Worksheets("Ein_Ausgabe") ZeileL = Cells(Rows.Count, 1).End(xlUp).Row With wks For ZeileP = 1 To ZeileL For ZeileCP = 1 To ZeileL If Cells(ZeileP, 1).Value Like "[#]#* = PRODUCT(*" Then If Cells(ZeileCP, 1).Value Like "[#]#? = CARTESIAN_POINT(*(*,*,*));" Then gefCP = Cells(ZeileCP, 1).Value '#25 = CARTESIAN_POINT('',(x.,y.,z.)); a = Split(Split(Split(gefCP, "(")(2), ")")(0), ",") x = CDbl(Val(Replace(a(0), ".", Application.DecimalSeparator))) y = CDbl(Val(Replace(a(1), ".", Application.DecimalSeparator))) z = CDbl(Val(Replace(a(2), ".", Application.DecimalSeparator))) Select Case ZeileCP Case Fall1 wks1.Cells(11, 15).Value = x wks1.Cells(11, 16).Value = y wks1.Cells(11, 17).Value = z 'Case Fall2 'MsgBox x 'MsgBox y 'MsgBox z 'Case Fall3 'MsgBox x 'MsgBox y 'MsgBox z End Select End If End If Next ZeileCP Next ZeileP End With End Sub

If .Cells(ZeileCP, 1).Value Like "[#]#? = CARTESIAN_POINT(*(*,*,*));" Then x = findCartesianPoint(.Cells(ZeileCP,1).Text,1) y = findCartesianPoint(.Cells(ZeileCP,1).Text,2) z = findCartesianPoint(.Cells(ZeileCP,1).Text,3)

With wks Cells(row,column)... ' Falsch: Addressiert eine Zelle im aktiven Blatt, nicht in wks .Cells(row,column)... ' Richtig: Addressiert eine Zelle im With-Objekt, d.h. hier wks End With wks.Cells(row,column)... ' Addressierung mit vorgestelltem Parent. 'Zelle bezieht sich auf wks-Objekt

Guten morgen Hansueli
...mann mann mann manchmal habe ich ne extrem lange Leitung, bei soviel Code verliert man echt den Überlick :p
Habe deine Funktion nun in meinem Button eingefügt und die x,y,z-Werte so umschrieben wie du es vorgeschlagen hast. Funktioniert soweit gut, die Kommawerte werden aber nicht angezeigt. 10.5 usw...
Wer hat dir gesagt, Val durch CDbl und den . (Dezimalpunkt) durch den Application.DecimalSeparator zu ersetzen?
Ein Kollege hat mir den Tipp gegeben...ich habe es mir schon gedacht dass das nicht so sein kann.
Ich kenne aus c++ float sind ja Fließkommazahlen und anscheinend unter VBA laut es single.
Müsste dann CSng...hat aber auch nicht funktionert.
Stehe jetzt gerade auch noch vor dem Problem wie ich das automatisiert machen kann.
D.h. für das nächste Produkt die nächsten CP-Werte.
Die ersten Werte müssen so sein, keine Frage aber dann muss ne Schleifenart her...und wie genau ich das Schreibe, da stecke ich gerade fest.
Gruß
CE

wertCP=25 //Quader_1'#25 wertCP = wertCP + 344 '344 heißt keine 344 ZEILEN später, sondern eigentlich #25+#344=#369 //Quader_2 #369+#344=#713 //Quader_3 usw. 'Weil eine # kann 2 Zeilen oder mehr in Excel haben. 'Daher Gefährlich mit Zeilen zu arbeiten...s.o.

Beliebteste Forumthreads (12 Monate)

Auslesen und in einem neuen Sheet einfügen

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread