|
Excel : Bilder ausblenden/eiblenden per VB
bst am 19.09.2004 um 19:29 Uhr (0)
Abend Kai, ich würde die Bilder ein/ausblenden, nicht löschen/hinzufügen. Woran scheitert s denn beim Ein/Ausblenden ? Übrigens, ob das folgende auch mit xl97 funktioniert, weiß ich nicht. Ich habe hier nur noch xl2k. Obwohl xl2k eigentlich alle Grafikobjekte mittlerweile via Shapes anspricht, und Dinge wie Pictures als veraltet gelten erzeugt der Makrorekorder beim Einfügen-Grafik-Aus Datei nach wie vor dieses: ActiveSheet.Pictures.Insert dateiname Ansonsten kannst Du via Shapes darauf zugreifen: A ...
|
| In das Form Excel wechseln |
|
Excel : Textkonvertierungsassistent
bst am 10.12.2004 um 15:47 Uhr (0)
Auch Hallo, wenn die Textdatei immer gleich aussieht könntest Du es auch via Makro lösen. Versuch mal sowas wie unten. Zeichne Dir ggf. via Makrorekorder Deine Parameter auf und baue diese in das Makro ein. Interessant ist hier insbesondere FieldInfo. Je ein Array entspricht einer zu importierenden Spalte. Die 1. Zahl dort drinne ist die Spaltennummer, die 2. der zu importierende Datentyp. 2 = Text. HTH , Bernd -- Option Explicit Sub OpenLstDatei() Dim fname As Variant Dim fFilter As String ...
|
| In das Form Excel wechseln |
|
Excel : Makro mit Rückgängigfunktion
bst am 27.06.2005 um 12:53 Uhr (0)
Hallo Bernd, Nein. Speichere einfach vorher ab und lade nach den Änderungen die Datei ggf. neu. Oder mach s im VBA per Hand selber. Siehe: http://j-walk.com/ss/excel/tips/tip23.htm HTH, Bernd
|
| In das Form Excel wechseln |
|
Excel : Datenexport in *.dat Datei
bst am 28.06.2005 um 13:08 Uhr (0)
Hi Nancy, solange keine bösen Sonderzeichen drinne sind, ist s doch so bestens, oder etwa nicht ;-) CU , Bernd
|
| In das Form Excel wechseln |
|
Excel : Imprtieren von bestimmten Werten aus txt.Datei
bst am 17.07.2006 um 15:54 Uhr (0)
Hallo,Du sprichst von Spalten. Stehen die Daten in der Textdatei denn nebeneinander ? Wenn ja, welches Trennzeichen ?Oder stehen sie untereinander ?Dann versuche mal sowas.CU, Bernd-- Code:Option ExplicitConst StartPfad = "E:TEST" MIT am ENDE !Dim objRegExp As Object, objMatchCollection As ObjectFunction ReadValues(ByVal strFname As String, ByRef dblFlaeche As Double, ByRef dblDichte As Double) As Boolean Dim intHandle As Integer Dim strOneLine As String ReadValues = False intHandle = FreeFile Ope ...
|
| In das Form Excel wechseln |
|
Excel : Imprtieren von bestimmten Werten aus txt.Datei
bst am 13.09.2006 um 13:51 Uhr (0)
Hi jonnyw79,ist die Reihenfolge immer X Y Z oder muß man das auswerten ?Und, ist das zusätzlich zu obigen FLÄCHENINHALT bzw. MITTLERE DICHTE oder ist das was Neues ?CU, Bernd
|
| In das Form Excel wechseln |
|
Excel : Imprtieren von bestimmten Werten aus txt.Datei
bst am 13.09.2006 um 14:35 Uhr (0)
Hi jonnyw79,versuchs mal so.Villeicht wäre es hier vorzuziehen 2 Mal zu suchen, da die beiden zu suchenden Ausdrücke doch sehr unterschiedlich sind. Und dadurch das Suchmuster ziemlich kopmpliziert wird.CU, Bernd-- Code:Option ExplicitConst StartPfad = "E:TEST" MIT am ENDE !Dim objRegExp As Object, objMatchCollection As ObjectType tInputData Flaeche As Double Dichte As Double X As Double Y As Double Z As DoubleEnd TypeFunction ReadValues(ByVal strFname As String, ByRef inp As tInputData) As Bo ...
|
| In das Form Excel wechseln |
|
Excel : Text Datei bearbeiten
bst am 09.11.2007 um 08:39 Uhr (0)
Morgen auch,FWIW, ich hätte das so angefangen.CU, Bernd-- Code:Option ExplicitSub x() Dim intInpHandle As Integer Handle Eingabedatei Dim intOutHandle As Integer Handle Ausgabedatei Dim strOneLine As String Eine Zeile Dim intPos As Integer Position des 1. Leerzeichens in einer Zeile intInpHandle = FreeFile Open "e: estinp.txt" For Input As #intInpHandle intOutHandle = FreeFile Open "e: estout.txt" For Output As #intOutHandle Do While Not EOF(intInpHandle) Line Input #intInpHand ...
|
| In das Form Excel wechseln |
|
Excel : Text Datei bearbeiten
bst am 09.11.2007 um 10:58 Uhr (0)
Hi, Zitat:aber es filtert die erste Zahlengruppe nicht raus.Hmm, dann hatte ich wohl die Anfrage nicht richtig verstanden. Ich dachte Deine Eingabedaten hätten die Form:0 123.456 78.9011 323.456 178.901..38875 38.328 59.333und Du willst da die erste Zahl rauslöschen, also alles vom Zeilenanfang bis inklusive des ersten Leerzeichens. Zitat:bst, was ist da der Vorteil gegenüber dem Script von Thomas?IMHO sollte es:a) noch schneller sein, da es auf den hier unnötigen "Redim Preserve" verzichtet undb) auch mit ...
|
| In das Form Excel wechseln |
|
Excel : Text Datei bearbeiten
bst am 09.11.2007 um 11:53 Uhr (0)
Hi,ist Dir das Ausgabeformat egal, d.h. kann es auch:33.36039X11.93997sein wobei X exakt ein Leerzeichen ist?Oder müssen da exakt 4 Leerzeichen sein, oder exakt so viele wie eingelesen wurden, oder ??CU, Bernd
|
| In das Form Excel wechseln |
|
Excel : Text Datei bearbeiten
bst am 09.11.2007 um 12:11 Uhr (0)
Hi,hmm, jetzt habe auch ich (endlich) die angehängten Dateien gefunden ...Ist Dir mit sowas gedient?Ersetzt an jedem Zeilenanfang Leerzeichen + Ziffern + Leerzeichen durch nichts, via:re.Pattern = "^s+d+s+"^ Anfang der Zeiles+ beliebig viele Leerzeichend+ beliebig viele Zifferns+ beliebig viele LeerzeichenCU, Bernd-- Code:Option ExplicitSub x() Dim intInpHandle As Integer Handle Eingabedatei Dim intOutHandle As Integer Handle Ausgabedatei Dim strOneLine As String Eine eingelesene Zeile Dim intPo ...
|
| In das Form Excel wechseln |
|
Excel : Text Datei bearbeiten
bst am 09.11.2007 um 13:58 Uhr (0)
Hi,kann ich nicht nachvollziehen. Bei mir hier geht das auch direkt.CU, Bernd
|
| In das Form Excel wechseln |
|
Excel : Text Datei bearbeiten
bst am 09.11.2007 um 14:42 Uhr (0)
Hmm,kein Plan. Da re.Replace einen String zurückliefert sollte das eigentlich immer gehen.Übrigens, Was willst Du denn mit "Private Declare Function GetSaveFileName" ?In Excel gibt es "Application.GetOpenFilename" sowie "Application.GetSaveAsFilename", siehe VBA-Hilfe dazu.CU, Bernd
|
| In das Form Excel wechseln |
