|
Excel : Makro
startrek am 08.09.2003 um 20:18 Uhr (0)
Hi $, eine Antwort wg. Makro ... hm, glaube eher nicht. Direkt in xls fällt die Frage IMHO nicht. Könnte mir sowas eher als flash vorstellen, wenns denn unbedingt sein muss... Aber ist denn deine Hilfe so komplex, als dass du sie nicht als normale htm/chm mit bildchen machen kannst und in xls über nen eigenen Hilfebutton referenzierst? Dazu zB ne Möglichkeit im Anhang: in der aktiven Mappe/Datei gibts ein eigenes Hilfemenue, welches in anderen Mappen nicht sichtbar ist Gruss Nancy -- Documentation: The ...
| | In das Form Excel wechseln |
|
Excel : Word und Outlook
startrek am 23.10.2003 um 18:58 Uhr (0)
Hallo Mike, ich nehm zwar kein Outlook , aber man kann doch dort die Datei als zb *.dbf oder *.xls exportieren. (habs nicht versucht, wg. fehlendem Plugin) Okay - jetzt mal angenommen, es gäbe die Adress.xls - gehst Du in Word auf Extras Seriendruck In diesem Teil öffnest Du die Datenquelle Adress.xls Und dann definierst Du im Document die Felder über diesen recht versteckelten Button oben links (sh. shot) Gruss Nancy
| | In das Form Excel wechseln |
|
Excel : Arbeitsgruppenvorlage mit auto. Zähler
startrek am 25.11.2003 um 17:07 Uhr (0)
Hallo zusammen, ori_1: ... enthält Pablo s Code, der ausgelöst wird mit F12 bzw. Speichern unter ori_2: ... in etwa Andreas aber ohne Button, auszulösen mit Strg + u kurz zur Erklärung: der Nachteil liegt am Pfad, was also via F12 frei wählbar bezieht sich hier momentan nur auf den aktuellen (Ordner)Pfad. Aber es geht ja erstmal um s Prinzip. Die Makros sind definitiv gelöscht, sobald die neue Datei 1x gespeichert wurde, ginge auch mit workbook_open, aber da hätten wir ja wieder ein Makro drin ;-) CU ...
| | In das Form Excel wechseln |
|
Excel : exportieren
startrek am 01.01.2004 um 17:23 Uhr (0)
So jetzt noch mal richtig, transponiert werden jeweils alle belegten Spalten. HTH Nancy -- Option Explicit Sub transponse() Dim startCell As Range, cell1 As Range, cell2 As Range Dim rowNr&, colNr&, i&, x& x = Range( A1 ).CurrentRegion.Rows.Count For i = 1 To x Set startCell = Cells(i, 1) rowNr = startCell.Row: colNr = startCell.Column If IsEmpty(startCell) Then Exit Sub rechtes Zeilenende suchen, Endzelle in zelle1 speichern For colNr = startCell.Column To 256 If IsEmpty(Cel ...
| | In das Form Excel wechseln |
|
Excel : DXF-DWG Tabelle in Excel
startrek am 07.01.2004 um 16:24 Uhr (0)
Hi Jowe, Du hast leider dein CAD-Proggie nicht angegeben. Auch weiss ich nicht, ob Du dies interaktiv tun willst. Ein recht bescheidener Ansatz weiter unten. Das Makro ist unter Acad gängig, da ich da aber eine totale Null in ac/vba bin, kann ich Dir erstmal nicht besser helfen. Der Schwerpunkt gewählter Volumenkörper wird in deiner offenen Mappe eingetragen, x in Spalte A, y in B, z in C. Mehr bekomm ich momentan nicht auf die Bahn Du musst natürlich den Pfad anpassen. (Solltest Du Excel erst im Makr ...
| | In das Form Excel wechseln |
|
Excel : Formatierung - Ausblenden
startrek am 22.01.2004 um 18:24 Uhr (0)
Hallo Harald, so richtig geblickt hab ichs noch nicht Leere Zeilen/Spalten/Beides ??? Der Code ist ein Schuss ins Blaue. Sheetname bzw. Index musst Du anpassen, ebenso ggf. Password. HTH Nancy -- Sub HideEmptyRC() Dim iR As Long, iC As Long ggf. Blattschutz aufheben If Sheets(1).Protect Then Sheets(1).Unprotect alle Leerzeilen For iR = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1 If Application.WorksheetFunction.CountA(Rows(iR)) = 0 Then _ Rows(iR).Hidden = True Next iR alle Leerspa ...
| | In das Form Excel wechseln |
|
Excel : Formatierung - Ausblenden
startrek am 23.01.2004 um 10:44 Uhr (0)
Hallo Harald, stimmt eigentlich nicht, sind ja die Funktionen fürs Kopieren hinterlegt, man sieht nur nichts auf´m Ausdruck Okay, dann gehe ich jetzt mal davon aus, dass der Code nix bringt. Wenns Dir nur wegen ausdrucken ist, versuch mal einen Autofilter zu setzen, da hast Du relativ viele Möglichkeiten die Ansicht zu organisieren. zB Zeile1 markieren -- Daten -- Autofilter Den Blattschutz musst vorher aber auch aufheben. Ansonsten noch mal melden lg Nancy
| | In das Form Excel wechseln |
|
Excel : Symbolleiste abhängig von geöffneter Datei
startrek am 23.03.2004 um 21:55 Uhr (0)
Hi Toto, zum 1. deinem eigentlichen Problem: ... ungetestet, IMHO muss da ein string stehen: application.commandbars("Toto").visible = true achte auf die "" zum 2. Nebensache: hier mal ein Auszug wie ich das immer gemacht habe, anders kann ichs nun wieder nicht alles aufs workbook open Ereignis. CU Nancy -- Code: Option Explicit Private Sub Workbook_Open() On Error Resume Next Dim cb As CommandBar, cbb As CommandBarButton Application.CommandBars.Add("Kalkulation") BV auslagern S ...
| | In das Form Excel wechseln |
|
Excel : Mit Excel_Makros MS Word starten ??!
startrek am 08.10.2004 um 15:48 Uhr (0)
Hi Jürgen, ne Lösung hab ich auch nicht, aber wenigstens auch xl abgeschossen Okay, ein *.dot Hauptdokument mit einer *.xls Datenquelle verknüpfen und dann via getobject starten ... ... im Taskmanager sind ein Winword- sowie zwei Excel-Prozesse, CPU-Nutzung 100% Hmm, keine Idee was da so furchtbar schiefläuft, irgendwie verschluckt er sich wohl an der verknüften xl-Datei, welche ja durch das Öffnen der dot auch geöffnet wird ... aber keine Ahnung wie das handeln, leider ;-( lg Nancy
| | In das Form Excel wechseln |
|
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 |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
