|
VBasic : einlesen von koordinaten aus excel in autocad mit vba
startrek am 05.02.2006 um 18:42 Uhr (0)
Hi & Willkommen,hier ein Beispiel von Acad aus Excel:Code:Sub test() Const xlup& = -4162 Dim xlApp As Object, xlWB As Object Dim i&, acP#(2) Set xlApp = CreateObject("excel.application") Set xlWB = xlApp.workbooks.Open("d:mappe1.xls") With ThisDrawing.ModelSpace For i = 1 To xlWB.Sheets(1).Cells(xlApp.Rows.Count, 1).End(xlup).Row spalte A [x] acP(0) = xlWB.Sheets(1).Cells(i, 1) Spalte B [y] acP(1) = xlWB.Sheets(1).Cells(i, 2) Spalte C [z] acP(2) = xlWB.Sheets(1).Cells(i, 3) .AddPoint ...
|
| In das Form VBasic wechseln |
|
VBasic : VBA Excel Befehl
startrek am 11.02.2005 um 13:20 Uhr (0)
Hallo, nen Befehl gibts nicht, alternativ vielleicht mit Autofilter auf Nichtleere , ansonsten nur mit Schleifchen Code: Sub zzz() Dim i As Long, cell As Range For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(i, 1) Then If cell Is Nothing Then Set cell = Cells(i, 1) _ Else Set cell = Union(cell, Cells(i, 1)) End If Next cell.Select End Sub Gruss Nancy -- ps: hier jibbet auch ein Excel-Forum ;-)
|
| In das Form VBasic wechseln |
|
VBasic : Problem in der VBA-Programmierung
startrek am 12.01.2005 um 14:11 Uhr (0)
Nachtrag, was n dat eigentlich? Set objBase = RevolvedProduce_1 setze damit die Bohrung auf der aktuellen Körper drauf da fehlt entweder objApp oder objDoc davor, oder? Set objBase = objApp. RevolvedProduce_1 Oder was auch immer der Revolver_1 sein mag ..., sicher kein Element von Excel;-) Übrigens, wozu startest Du das Teil überhaupt aus Excel? Gruss Nancy
|
| In das Form VBasic wechseln |
|
VBasic : in Excel Zeile löschen?
startrek am 24.09.2004 um 10:41 Uhr (0)
Hi san, rows(3).delete lg Nancy
|
| In das Form VBasic wechseln |
|
VBasic : Excel beenden
startrek am 24.09.2004 um 19:36 Uhr (0)
http://ww3.cad.de/foren/ubb/Forum226/HTML/000140.shtml
|
| In das Form VBasic wechseln |
|
VBasic : Merkwürdiges Verhalten von EXCEL mit VBA
startrek am 21.05.2004 um 14:10 Uhr (0)
Hi Gregi, hm, schwer zu sagen, mal geraten: Irgendein Typenkonflikt vielleicht? Wie schaut denn die Funktion aus? CU Nancy
|
| In das Form VBasic wechseln |
|
VBasic : Mehrfachselektion von Tabellen unter Excel
startrek am 18.07.2003 um 13:29 Uhr (0)
Hi Ulf, nun mich hat nur das mehrfach bissel irritiert, weil s ja alle sind Dir auch schönes WE Gruss Nancy
|
| In das Form VBasic wechseln |
|
VBasic : Merkwürdiges Verhalten von EXCEL mit VBA
startrek am 26.05.2004 um 11:30 Uhr (0)
Hi Gregi, hm, keine Ideen weiter, versuch mal mit einer simplen sub dies zu provozieren, und geh mal mit F8 durch, was denne da so abgeht lg Nancy
|
| In das Form VBasic wechseln |
|
VBasic : Excel - Anzahl der Rows
startrek am 09.09.2003 um 19:29 Uhr (0)
Hi, in Ergänzung, ich mach s immer so: Dim lastA As Long lastA = Range( A65536 ).End(xlUp).Row + 1 Gruss Nancy
|
| In das Form VBasic wechseln |
|
VBasic : kontextmenue
startrek am 01.06.2005 um 19:30 Uhr (0)
Hi babablue, ehrlichgesagt keine Ahnung ... Aber mal ernsthaft, wenns Dir drum geht die Commandbars im VBE anzupassen, mit eigenen Routinen zu erweitern, dann ist das da so bissel ne Sache für sich. In der Excel-Entwicklungsumgebung funktioniert sowas zB. nur über ein Klassemodul/Event, da die VBE-Commandbars/Commandbarbuttons die Property on action nicht verarbeiten. Workarround zum Eingriff in die [xl]-VBE Umgebung siehe hier: http://support.microsoft.com/default.aspx?scid=kb;en-us;Q280607 oder Ne ...
|
| In das Form VBasic wechseln |
|
VBasic : in Excel Zeile löschen?
startrek am 24.09.2004 um 11:25 Uhr (0)
san, Du musst das Pferd von hinten aufzäumen ;-) Code: Sub del_rows() Dim i& For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 If Cells(i, 1).Value = xxx Then Rows(i).Delete Next End Sub Ach übrigens lg Nancy
|
| In das Form VBasic wechseln |
|
VBasic : VBA Excel Befehl
startrek am 11.02.2005 um 17:53 Uhr (0)
Zitat: Original erstellt von startrek: ansonsten nur mit Schleifchen tztz, man lernt wohl nie aus - geht auch ohne! ;-) Gruss Nancy Code: Sub test() With ActiveSheet.Columns(1) .ColumnDifferences(.SpecialCells(xlCellTypeBlanks)).Select End With End Sub
|
| In das Form VBasic wechseln |
|
VBasic : Visual Basic in Excel
startrek am 09.02.2005 um 15:38 Uhr (0)
Moin Robert, auf die Schnelle, sowas? (abhängig vom markierten Bereich) Code: Sub Übung1() Dim i As Long With Selection If .Columns.Count 1 Then Exit Sub .Copy For i = .Row To .Row + .Rows.Count Step 2 Cells(i, .Column + 2).PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _ , Transpose:=True Next End With Application.CutCopyMode = False End Sub Gruss Nancy
|
| In das Form VBasic wechseln |
