|
Excel : Excel: Zeilen kopieren
startrek am 02.05.2005 um 18:40 Uhr (0)
Abend Christoph, bin irgendwie grade etwas aus der Übung, egal - versuche es mal so: Code: Sub give_me_five() Dim a, ro%, col As Byte, i As Byte, x% x = Cells(Rows.Count, 1).End(xlUp).Row letzte belegte Zeile in A a = Range(Cells(2, 1), Cells(x, 6)) Spalte 1-6 ggf. anpassen ReDim b(1 To 5 * UBound(a, 1), 1 To UBound(a, 2)) i = 1 For ro = 1 To UBound(a, 1) For col = 1 To UBound(a, 2) b(i, col) = a(ro, col) b(i + 1, col) = a(ro, col) b(i + 2, col) = a( ...
| | In das Form Excel wechseln |
|
Excel : Excel zellen einfrieren oder sperren?
startrek am 22.04.2003 um 21:32 Uhr (0)
Hallo Willi, ergänzend zu Caladia, nur als Tip: du kannst die Spalten auch mit Werten(hinterlegen) insofern Du sie zur Weiterberechnung brauchst und dann Ausblenden Spalte markieren und im Kontext Ausblenden anwählen ... und wech isse, aber du kannst weiterhin mit Ihr "rechnen" mach ich gern, es spart Platz bei vielen Spalten und wer scrollt schon gern horizontal? (oder im tabellblatt code ne sroll-area festlegen, aber ich denke das wird für den Anfang zu verrückt) grüsse Nancy
| | In das Form Excel wechseln |
|
VBasic : Merkwürdiges Verhalten von EXCEL mit VBA
startrek am 21.05.2004 um 16:36 Uhr (0)
Hi Gregi, kannst nur mal probieren CU Nancy -- Code: Public Function job(Nummer As Variant) As String Application.Volatile Dim lngZeilenAnzahl As Long, wks As Worksheet Dim i As Integer Set wks = Sheets( Tabelle1 ) lngZeilenAnzahl = wks.Cells(Rows.Count, 1).End(xlUp).Row If IsEmpty(Nummer) Then job = : Exit Function For i = 2 To lngZeilenAnzahl If Nummer = wks.Cells(i, 1).Value Then job = wks.Cells(i, 2).Value: Exit For End If Select Case Numm ...
| | In das Form VBasic wechseln |
|
Excel : Schriftkopf in Excel-Datei
startrek am 29.09.2006 um 19:43 Uhr (0)
*** Kamera nehmen und knipsen ;-) muss aber erstmal ziggi rauchen - ist gerade mittag und Bild ist zu gross :-(Nach dem Satz musste ich auch erstmal eine rauchen,mir war bis vorhin nicht klar, was meint er denne mit Kamera?;-)Naja, hatte das halt immer etwas umständlicher gemacht,aber die Idee war supi für den Anwendungsfall!Aber das mit der Größe ist mir auch aufgefallen,bläht unheimlich auf;-(Naja, ist ja auch kein Fotobearbeitungsproggie, wer weiss was da intern abgeht;-)lg Nancy
| | In das Form Excel wechseln |
|
Autocad VBA : Schleife nach xls
startrek am 08.01.2004 um 13:05 Uhr (0)
Hallo Holger, vielen Dank für deine klare Aussage bzgl. Volumenkörpern. Okay, da habe ich vielleicht ein gerade etwas unglückliches Beispiel/Fragestellung erwischt. (der centroid lag mir wohl noch im Blut, vergessen wir die 3DObjecte ) Guddi, kurz nochmal zur Hauptfrage/Schleife(n): Der Code läuft bei mir mehrfach durch, also ich sehe in Excel wie er mehrfach (je nachdem wieviel Objekte gewählt sind) Spalten A, B & C durchläuft und am Ende steht in jeder Spalte dasselbe untereinander. Habe schon das for ...
| | In das Form Autocad VBA wechseln |
|
Excel : Definition von EXCEL-Grafik
startrek am 06.10.2004 um 13:20 Uhr (0)
Hi Edo, hm, schwierig;-) mal als klitzekleiner Ansatz, wobei man halt immer die Items(n) der Range() bzw. Shapes() wissen muss, wenn s denn viele, verschiedene sind/werden sollen. Wenn dann aber einmal die Gruppe benannt wurde, ist im Nachgang der Zugriff einfacher. Jedenfalls hab ich momentan keine bessre Idee für deinen Ansatz. lg Nancy -- Code: Sub x() Dim x%, y% Dim h%, b%, tFl% x = 100: y = 100 h = 300: b = 300: tFl = 20 With ActiveSheet.Shapes .AddLine x, y, x + b, y .AddLine ...
| | In das Form Excel wechseln |
|
Excel : Benutzeroberfläche in Excel
startrek am 13.07.2004 um 15:33 Uhr (0)
Hi Oli, hmmm, sag ich da jetz auch mal Innerhalb eines Blattes seien zB 3 Optionbuttons und ein Commandbutton, dann etwa so ? Private Sub CommandButton1_Click() If OptionButton1 Then UserForm1.Show If OptionButton2 Then UserForm2.Show If OptionButton3 Then UserForm3.Show End Sub Optionbutton haben die Eigenschaft [sofern sie nicht in unterschiedlichen Gruppen sind], dass immer nur eines aktviert sein kann, sie sich also gegenseitig ausschließen. Blattübergreifend funktioniert das so erstmal dann nicht ...
| | In das Form Excel wechseln |
|
Autocad VBA : combobox laden
startrek am 18.12.2004 um 18:55 Uhr (0)
Hi n welcome Guido, naja, mal Hand aufs Herz, mit Acad programmieren hat das ja nun nur bedingt zu tun ;-), egal ... - mit nem Textfile könntes zB so laufen: Code: Private Sub UserForm_Initialize() Dim s$ Open c: emp 1.txt For Input As #1 While Not EOF(1) Line Input #1, s ComboBox1.AddItem s Wend Close #1 End Sub Geht auch mit Excel, dazu mal die Beispiele in der Online-Hilfe [getobject, createobject, early- oder late binding] anschauen und dann halt nen Zähler einbauen ...
| | In das Form Autocad VBA wechseln |
|
Rund um Autocad : text aus dwg exportieren
startrek am 08.03.2005 um 21:53 Uhr (0)
auch noch ein Vorschlag, Ja die lieben MTexte machen einem hier das Leben schwer, habs mal der einfachheit halber simply in ne txt geschrieben, mit nem $ als Trenner, muss man dann halt unter Excel in Zeilenumbrüche ersetzen oder Daten Text in Spalten especially für MTexte freilich ;-) Alle andren Formatierungen ebenso aussen vor, das wird sonst bissel heftiger [isMirSchlecht;-)] ... lg Nancy Code: Sub xx() Dim i&, s$, arr With ThisDrawing.ModelSpace Open d: extit.txt For Output As #1 For i ...
| | In das Form Rund um Autocad wechseln |
|
Autocad VBA : Access-Datei öffnen (vba)
startrek am 09.03.2005 um 12:05 Uhr (0)
Oh, ich dachte das mit dem Shell hat sich erledigt, vergisses das wird so nix ;-) Guck mal in der Hilfe, ob da ein Bsp. zu finden ist, ansonsten häng ich mal eines von einer Excel-CD dran, wie vom Prinzip her der Zugriff gehen könnte. Allerdings hab ich mit sowas auch noch nicht viel gemacht, also bei weiteren Fragen ist mein Name Hase. HTH , Nancy Code: Sub rec_fields() Dim conn As New Connection Dim rec As New Recordset Dim f As Field Dim ws As Worksheet Dim i& Set ws = ThisWorkbook.Worksh ...
| | In das Form Autocad VBA wechseln |
|
Excel : visual-basic formular in excel
startrek am 01.02.2005 um 10:20 Uhr (0)
Moin Martin, Code: Me.Range(Me.Cells(2, Target.Column), Me.Cells(90, Target.Column)).Clear die Zeile stammt ja sicher aus einem Private Sub Worksheet _blabla() Event? in dem Falle bezieht sich das Me auf das Tabellenblatt in dem der Code sitzt. In einer Userform wird das so nie laufen, da ja der Code innerhalb der UF steht und somit Me die ausführende Userform selber ist. Was du da somit von der UF verlangst ist sowas: Code: Userform1.Range(Userform1.Cells(2, Target.Column), Userform1.Cells( ...
| | In das Form Excel wechseln |
|
Autocad VBA : Flächennachweis
startrek am 02.02.2004 um 14:36 Uhr (0)
Mensch Harry, Danke für deinen Support & thx für den Link Ich bin mir jetzt nicht ganz sicher, denke aber auch, alles weitere in xls, dh. der Code liefer mir jetzt zB sowas: deltaX 42,6016337897688 deltaY 0 deltaX 0 deltaY 47,5005143514831 deltaX -16,2585945120821 deltaY 0 deltaX 0 deltaY -20,3573632760519 deltaX -10,2902497212156 deltaY -12,132166109952 beep deltaX -16,0527895564711 deltaY 0 deltaX 0 deltaY -15,0109849654792 Soo jetzt halt das ganze in eine *.txt oder gleich nach excel schreiben, oki, ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Text?
startrek am 07.03.2006 um 22:32 Uhr (0)
Moment mal, ich stell mich jetzt mal ganz doof;-)Also: Ich bekomme die Daten über ein externes Programm in ein Script gewandelt. In dem Programm ist die Genauigkeit von 3 Nachkommastellen fest veranktert.weiter schreibst du: Da jedoch in der Layerzeile mehr Angaben stehen, als in der Textzeile, geht das mit Text in Spalten machen über Excel auch nur sehr mühselig.Du sprichst von einem reinen Textfile, ja? Oder halt *.scr?Wenn ja, wäre es IMHO gleich besser mit dem evil_by_root, also das File zu ändern, al ...
| | In das Form Autocad VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
