|
Excel : Mit Excel_Makros MS Word starten ??!
startrek am 08.10.2004 um 17:33 Uhr (0)
Hallo Thomas, yeps, so geht s, aber mach mal folgendes in dem *.dot Dokument Extras Seriendruck 1 Hauptdokument/Erstellen Serienbriefe Aktives Fenster 2 Daten importieren Datenquelle öffnen (typ *.xls) Dort halt eine Excel-Datei angeben. Die *.dot speichern und nun nochmal mit getobject() das Ding aufrufen und ... gut festhalten ;-) Ich bin mir fast sicher, dass dies Jürgens-Prob ist, was ich aber [noch] nicht verstehe, wozu das Ganze eigentlich gut sein soll ??? lg Nancy
| | In das Form Excel wechseln |
|
Excel : Zellenmarkierungen aufheben
startrek am 27.10.2004 um 18:27 Uhr (0)
Abend auch, ähm, ja mit Bordmitteln wir s wohl leider nix. Aber mal ganz unspannend und was das Wichtigste ist - auch nicht weiter durchdacht Code: Sub re() Range(Left(Selection.Address, InStrRev(Selection.Address, , ) - 1)).Select End Sub Sollte immer den zuletzt gewählten Bereich/Zelle demarkieren , vielleicht hilfts ja zu was ;-) [könnt man ja u.U. ins Kontext einbinden, hab ich jetzt aber nicht probiert] lg Nancy
| | In das Form Excel wechseln |
|
Excel : Zellbereich in TXT
startrek am 27.01.2005 um 17:34 Uhr (0)
Hi Bernd, bin kein besonderer Freund von SaveAs ;;-)) Versuch s mal so in etwa, bezieht sich aber nur auf A1:A196: Code: Sub x() Dim i& Open c: empProjekt SCR Autocad.scr For Output As #1 For i = 1 To 196 Print #1, Sheets( Fertig ).Cells(i, 1).Value Next Close #1 End Sub Gruss Nancy -- ps: wenn Du nur immer einen selektierten Zellbereich bzw. mehrere Spalten möchtest, sag nochmal Bescheid
| | In das Form Excel wechseln |
|
Excel : Datenexport in *.dat Datei
startrek am 27.06.2005 um 14:22 Uhr (0)
Moin Frank, manman was buddelst du denne für n lustiges Zeug aus? ;-)) Ähm, versuche es mal so, allerdings wie du das mit der letzten Zeile meintest, weiss ich nicht so recht, schlimmstenfalls nimm : For r = 2 to ubound(arr,1) - 1 Code: Sub to_dat_files() Dim ws As Worksheet Dim s As String, r As Long, c As Integer Dim arr For Each ws In ActiveWorkbook.Worksheets arr = ws.UsedRange Open "D:" & ws.Name & ".dat" For Output As #1 For r = 2 To UBound(arr, 1) ...
| | In das Form Excel wechseln |
|
Excel : Datenexport in *.dat Datei
startrek am 27.06.2005 um 17:54 Uhr (0)
Hi Frank, Mist! ;;-)) Fällt mir auf die Schnelle auch nix ein, ausser wieder ein direktes Auslesen, hübsch eine Zelle nach der Anderen;-) Usedrange.Value als auch usedrange.value2 bringen nix und Usedrange.Text gibbets nicht. Dim arr() as string geht auch nicht, da der Herr Range ein Variant braucht. Und ein cstr(arr(r,c]] ist zu spät, die Messe wird bei der Übergabe des Rangebereiches an das Variant gelesen. Ich hoffe deine Tabellen sind keine Riesenteile, wird also etwas langsamer, keine andre Idee grad ...
| | In das Form Excel wechseln |
|
Excel : Datenexport in *.dat Datei
startrek am 27.06.2005 um 20:18 Uhr (0)
Ich nochmal ;-) menno, die Zwischenablage - thats it! Hätt ich eigentlich drauf kommen müssen tun ..., stümmts @Bernd/Max? ;;-)) Also Frank, das wäre zB ein Ansatz der auf dem besten Weg zum Erreichen der Lichtgeschwindigkeit wäre. Wobei da irgendwie noch Müll drinnen steht, konnte die Zeichen jetzt auf die Schnelle nicht festzurren. Geht ja nurmal ums Prinzip, ich mein das Abklopfen jeder Zelle funzt zwar auch, aber das Clipboard dagegen ist sowas wie die Geschwindigkeit eines Skilifts aber mit Mach3 ; ...
| | In das Form Excel wechseln |
|
Excel : Datenexport in *.dat Datei
startrek am 28.06.2005 um 22:13 Uhr (0)
Hi Bernd, ups, das war wohl ein Error im trekkie-System, stimmt - es stimmt. :-) BTW , auf 3 verschiedenen Betriebssystemen scheint der Win-Standardeditor, jedesmal verschiedene End-of-Line für Chr(13) zu nehmen, dem Irrtum war ich gestern erlegen, da sich auf dem einen PC | und | [das kleinere] absolut ähnelten und ich dachte der macht die Spaltentrenner falsch. Hab aber heute mit Vim festgestellt - der ist nicht so trügerisch - dasses doch korrekt war, Danke :-) @Frank: ... und probiert?;-) Macht bei m ...
| | In das Form Excel wechseln |
|
Excel : Datenexport in *.dat Datei
startrek am 30.06.2005 um 14:23 Uhr (0)
Hi Frank, sorry, Kurznotation war reine Faulheit;-) Nein, i& ist kein i wie i nteger, denn wenns eines wäre, hättste Zeile 32.767 nen Überlauf;-) $ = String % = Integer & = Long ! = Single # = Double @ = Currency lg Nancy
| | In das Form Excel wechseln |
|
Excel : Speichern mit Makro
startrek am 14.08.2005 um 01:56 Uhr (0)
Wenn ich das richtig verstanden habe, muss oder müsste ich mir Visual Basic aneignen ...Jein - ganz so wild ist das ganze nun eigentlich auch nicht;-)Wenns um Dynamik geht, also wie in deinem Falle eben, reicht es zB die Verkettung der strings vberstanden zu haben und schon bastelt man sich fix einen eigenen String mit einer Variablen draus.Also ich sage mal so, wenn man die gröbsten Grundlagen der Programmierung, damit meine ich vor allem die Variablendeklaration & -übergabe [wobei die Sprache eher sekun ...
| | In das Form Excel wechseln |
|
Excel : Speichern mit Makro
startrek am 16.08.2005 um 21:36 Uhr (0)
Abend,versuch mal ein saveas statt des savecopyas.Ein SaveAs schliesst aber die aktuelle Datei, deswegen vorher nochmal speichern:[code]Sub sichereals() newfilename = Range("C3").Value wert aus c3 holen ChDir "C:Dokumente und EinstellungenxxEigene DateienExcel" with activeworkbook if not .saved then .save .saveas Filename:= _ "C:Dokumente und EinstellungenxxEigene DateienExcel" & newfilename & ".xls" end withEnd SubHTH Nancy
| | In das Form Excel wechseln |
|
Excel : Exel fügt zeichen beim abspeichern als txt mit ein
startrek am 27.01.2006 um 20:06 Uhr (0)
Ahhhh Lothi,oki, wenn du Excel nur zur Kontrolle nimmst, dann würde ich die Datei, wenn Kontrolle okay ungespeichert schliessen, also mir von Excel da gar nicht erst irgendwelchen SaveAs-Murks aufzwingen lassen.Die Original.TXT nennst Du dann einfach in Orginal.ASC um, da weiss man was man hat[te];;-)))Code:Sub kontrolle_okay() Dim s As String s = ActiveWorkbook.FullName aktueller Pfad & Name ActiveWorkbook.Close 0 nicht speichern Urdatei *.TXT in *.ASC umbenennen Name s As Left(s, Len(s) - 3) & "ASC" ...
| | In das Form Excel wechseln |
|
Excel : Datei zersplittern
startrek am 15.08.2006 um 15:50 Uhr (0)
Hi Kristof,sowas ?Gruss, Nancy
| | In das Form Excel wechseln |
|
Excel : Schriftkopf in Excel-Datei
startrek am 29.09.2006 um 12:45 Uhr (0)
Hallo,mal als Vorschlag mit einem Textfeld.Das Ausfüllen ist aber nicht ganz so bequem, als wie wenns Zellen/Attribute wären;-)Was andres fällt mir auf die Schnelle grade auch nicht ein.Kurz zur Herleitung:Bildfläche vergrößern, Hintergrund weiss.In Excel dann Textfeld einfügen, auf den grau markierten Rahmen Rechtsklick Textfeld formatierenReiter Farben und Linien, Ausfüllen/Farbe FülleffekteReiter Graphik Grafik auswählen ...Gruss, Nancy
| | In das Form Excel wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
