|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
startrek am 23.11.2004 um 09:40 Uhr (0)
Tobias, VBA kennt kein Pi. Die Zahl wirst Du wohl oder übel erstmal hinterlegen müssen. Gibt es denn nun ein eigenes Dateiformat in VBA zum tabellarischen Ablegen von ausgelesenen Daten? Nun, am besten Du lässt die Endung gleich ganz weg ... Das ist doch schnurz, es kommt auf s Trennzeichen an, Tab, Kommata, Semikolon, $, |, weissderGeier Momentan schreibst Du eh nur ein Textfile mit der Endung *.xls, wenn Du diese mit Excel öffnest, hast Du sicher schon bemerkt, dass erst mal der Texterkennungsassi a ...
| | In das Form Autocad VBA wechseln |
|
Excel : Mit Excel kleine Berechnungsprogramme schreiben
startrek am 10.10.2004 um 20:05 Uhr (0)
Abend Wera, bin mir nicht sicher, ob ich das vollumfängliche Ausmaß der Fragestellung/Problematik verstanden hab , bzw. was Du denne genau meinst mit kleinem Rechenprogramm Mal ein simples Beispiel anbei, wie man zB was rechnen könnte eimal mit und einmal ohne VBA, bei mit VBA hab ich die Sehnenlänge und Stichhöhe weggelassen, nachdem ich grad Probleme hatte selbst Pi zu deklarieren, wollns ja net übertreiben zum Sonntagabend Da mir halt wiegesagt noch etwas unklar ist, in welche Richtung das Ga ...
| | In das Form Excel wechseln |
|
INVENTOR VBA : mehrdimensionales Datenfeld
startrek am 09.06.2005 um 14:36 Uhr (0)
Schreib ich mir halt selber was ;-) vielleicht ne kleine Spielerei am Rande? Klassischerweise brauch ich hier ein zweifaches for-next um den string zu verketten. Gehts auch auf einen Hieb? ZB mit Join() Ein join() benötigt ja was eindimensionales. Mit x=array(a) erhalte ich auch als Unter-Unter-Element nen string(1 to 10). Preisfrage: Blos wie zum Geier komm ich denne da dran? Code: Sub question() Dim a$(1 To 3, 1 To 10), r%, c%, x For r = 1 To 3 For c = 1 To 10 a(r, c) = CStr(r) ...
| | In das Form INVENTOR VBA wechseln |
|
Excel : Mit Excel kleine Berechnungsprogramme schreiben
startrek am 10.10.2004 um 21:00 Uhr (0)
Hallo Wera, ähm ja überspringen wir mal paar deiner Absätze und kommen zu diesem Fakt: Leider habe ich das zip nicht öffnen können, seltsam. Ja seltsam isses, Gegenfrage haste gespeichert, entzippt und dann nochmal versucht ??? Wg. des VBA an sich, ich kenn jetz deinen Kenntnisstand nicht, bei Intresse evtl. mal hier gucken: http://www.ti5.tu-harburg.de/manual/vba5/httoc.htm Wenn wer noch bessre Links hat: posten, posten, posten Ansonsten, ein gutes Buch is auch nich schlecht, find zB den M ...
| | In das Form Excel wechseln |
test_duplikate.xls.txt |
Excel : Excel: Zeilen vergleichen und zusammenführen
startrek am 29.12.2006 um 23:34 Uhr (1)
Hallo,bin ziemlich spät dran heute, hier auch mal noch ein Chaotencode zum Thema;-)Code:Sub test() Dim i&, x%, flag As Boolean, arr, arrIndex% With Sheets("Tabelle1") arr = Application.Transpose(Range(.Cells(1, 1), .Cells(2, 4))) x = 2 For i = 3 To .Cells(Rows.Count, 1).End(xlUp).Row flag = False For arrIndex = LBound(arr, 2) To UBound(arr, 2) If .Cells(i, 1) = arr(1, arrIndex) Then If InStr(1, arr(4, arrIndex), .Cells(i, 4)) = 0 Then _ arr(4, arrIndex) = arr(4 ...
| | In das Form Excel wechseln |
|
Excel : Excel: Zeilen vergleichen und zusammenführen
startrek am 29.12.2006 um 23:34 Uhr (0)
Hallo,bin ziemlich spät dran heute, hier auch mal noch ein Chaotencode zum Thema;-)Code:Sub test() Dim i&, x%, flag As Boolean, arr, arrIndex% With Sheets("Tabelle1") arr = Application.Transpose(Range(.Cells(1, 1), .Cells(2, 4))) x = 2 For i = 3 To .Cells(Rows.Count, 1).End(xlUp).Row flag = False For arrIndex = LBound(arr, 2) To UBound(arr, 2) If .Cells(i, 1) = arr(1, arrIndex) Then If InStr(1, arr(4, arrIndex), .Cells(i, 4)) = 0 Then _ arr(4, arrIndex) = arr(4 ...
| | In das Form Excel wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
startrek am 23.11.2004 um 16:45 Uhr (0)
Dein Winkelproblem kann ich nicht nachvollziehen, ebensowenig wie das was Du da zusammencodest. Prüfe mal die Werte im Direktfenster / Lokalfenster [elem] Die kannst Du ja ggf. via copypaste in Excel einfügen und dann Daten/Text in Spalten ... Code: Sub x() Const Pi# = 3.14159265358979 Dim elem As AcadEntity, ip For Each elem In ThisDrawing.ModelSpace If TypeOf elem Is IAcadBlockReference Then ip = elem.InsertionPoint Debug.Print ip(0), ip(1), ip(2), elem.Rotat ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Probleme bei mehrspaltiger Listbox
startrek am 02.12.2004 um 02:39 Uhr (0)
verdammt Tobias, das war kein joke. Fakt ist, du veranstaltest hier eine Odyssee ... Die begann damit, Blockdaten in ein Textfile zu schreiben, ging über Excel bis hin zu Listviews. Ich frag mich was als nächtes kommt, die Zwischenablage? Okay, ich will ja keinen hier fertig machen, aber so langsam solltest Du dir [oder dein cheffe] mal darüber im klaren werden, worauf der ganze Blockzauber eigentlich hinauslaufen soll. Holger und Axel haben alles bereits gesagt, mit dem Konzept steht und fällt alles, u ...
| | In das Form Autocad VBA wechseln |
|
Excel : visual-basic formular in excel
startrek am 08.07.2004 um 12:53 Uhr (0)
Hi, ohne Frank vorweggreifen zu wollen, in seinem Beispiel liegt die Zeile Userform1.Show im Klassenmodul Workbook_Open. In nem normalen Modul sähe des dann so aus: sub show_me() Userform1.Show end sub Eine UF fügst Du im VBE unter Einfügen/Userform ein, und deren Elemente Textfelder/Labels/Buttons aus der Werkzeugsammlung. Wenn ich dich richtig verstehe, willst Du mit den Textboxen rechnen, das hiesse dann auch noch diverse Gültigkeitsabfragen zu veranstalten - etwa like: if Not IsNumeric(Textbox1.Text) ...
| | In das Form Excel wechseln |
|
Rund um Autocad : Layer steuern über Excel
startrek am 05.08.2004 um 11:27 Uhr (0)
eigentlich ist das untige furchtbar, aber weils heute so heiss draussen ist Sowas hatte ich irgendwann mal für die erforderliche *.cnv zum Konvlay von CadWiesel ge_test_et, aaaber so richtig, hm, darf man nicht weiter drüber nachdenken ... Code: A B C D E F 1 NAME alt NAME neu FARBE alt FARBE neu LINETYPE alt LINETYPE neu 2 A_Waende 00new 7 7 CONTINUOUS CONTINUOUS 3 A_Fenster 00new 21 7 CONTINUOUS CONTINUOUS Code: Option Explicit Sub LayerTest() Dim i As Long Open d:list.cnv ...
| | In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Texte von dwg-Zeichnung ins Word od. Excel
startrek am 13.01.2007 um 18:47 Uhr (0)
Hallo & Willkommen auf cad.de,mal absolut auf die Schnelle gemacht,bei formatierten MTexten haste aber schlechte Karten ...Benütze aber ggf. auch mal die Suchfunktion,in der Richtung gabs/gibts vielleicht noch bessere Lösungen als meine;-) http://ww3.cad.de/foren/ubb/Forum54/HTML/009287.shtml#000001 Gruss Nancy-- Code:Option ExplicitSub desd() Dim dObj As New DataObject Dim sset As AcadSelectionSet Dim ent As AcadEntity, s$ On Error GoTo hell Set sset = ThisDrawing.SelectionSets.Add("myset") sset.Sel ...
| | In das Form Rund um Autocad wechseln |
|
VBasic : freie Zeile in Excel
startrek am 06.02.2004 um 19:34 Uhr (0)
Abend BJ, unter xls läufts, aber denke mal das Activecell hat s hier in sich, versuch s mal ohne. Dim lastRow& lastRow = ActiveSheet.Range( A65536 ).End(xlUp).Row + 1 Cells(lastRow, 1).Select oder With objActiveSheet .Range( A65536 ).End(xlUp).Offset(1, 0).Select End With BTW nochwas, das elende select ..., ich persönlich versuche es weitestgehend zu vermeiden, nur wenns mal unbedingt sein muss halt. Soll heissen, select kann einem ganz schön auf die Füsse fallen, weil Du jedesmal an der Zelle kl ...
| | In das Form VBasic wechseln |
|
Excel : visual-basic formular in excel
startrek am 31.01.2005 um 18:22 Uhr (0)
Martin, mal back to the roots, ich kanns nur nochmal so erklären: Angenommen, Du hast einen Button in deiner Tabelle: Code: Private Sub commandbutton1_click() userform1.show modal userform1.show 0 nonmodal end sub So wird die Userform geladen und der Benutzer kann deren Steuerelemte bedienen, die halt je nach dem, irgendwas machen, oder auch nicht;-) Üblicherweise gehört dann in die Userform1 noch ein Button Beenden/Cancel mit dem der Benutzer nach die Userform wieder beendet. Code: p ...
| | In das Form Excel wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
