Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 415 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 412, 413, 414, 415, 416, 417, 418 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Hierarchie im Sheet abbilden 
Phelan XLPH

Antworten: 34
Aufrufe: 2949

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Sep 2010, 10:32   Titel: AW: Hierarchie im Sheet abbilden Version: Office 2007
Hallo Orginal (was wahrscheilich Original heißen soll),

wenn du schon etwas bemängelst, dann gebe dich auch zu erkennen.
Denn wahre Größe ist hüllenlos.
  Thema: Datensätze automatisch aktuallisieren 
Phelan XLPH

Antworten: 2
Aufrufe: 198

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Sep 2010, 23:53   Titel: AW: Datensätze automatisch aktuallisieren Version: Office 2007
Hat einer den durcheinander verstanden ????
Ääähhhmmm, nö! Cool
  Thema: Erweitertes Dictionary 
Phelan XLPH

Antworten: 8
Aufrufe: 634

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Sep 2010, 22:12   Titel: AW: Erweitertes Dictionary Version: Office 2003
Danke
  Thema: Importieren von TXT Dateien 
Phelan XLPH

Antworten: 21
Aufrufe: 1180

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Sep 2010, 21:52   Titel: AW: Importieren von TXT Dateien Version: Office 2007
Beispiel ohne Öffnen-Dialog:

Sub TxtImport()

Dim Datei As String
Dim Pfad As Variant
Dim i As Integer
Dim n As Integer
Dim BlattNameTmp As String

Pfad = "d:\test\"
Datei = Dir(Pfad & "TTT*.txt") 'Beispiel "TTT*.txt" ************
Do While Datei <> ""
Open Pfad & Datei For Input As #1
Call WriteToCLP(Replace(Input(LOF(1), #1), "|", vbTab))
Close #1

With ThisWorkbook
With .Worksheets.Add(, .Sheets(.Sheets.Count))
'----BlattNamen auf Existenz prüfen---
BlattNameTmp = Datei
Do While IsSheetExist(BlattNameTmp)
n = n + 1
BlattNameTmp = Datei & " (" & n & ")"
Loop
.Name = Blat ...
  Thema: Importieren von TXT Dateien 
Phelan XLPH

Antworten: 21
Aufrufe: 1180

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Sep 2010, 21:46   Titel: AW: Importieren von TXT Dateien Version: Office 2007
Test mal,

aber wenn die alle Dateien einen ähnlichen Name haben dann könnte
der Pfad fest gewählt werden alle ähnlichen Dateien importiert werden
ohne über den Öffnen-Dialog zu gehen. Nur so eon Tip.

Sub TxtImport()

Dim DateiPfad As Variant
Dim i As Integer
Dim n As Integer
Dim BlattNameTmp As String

DateiPfad = Application.GetOpenFilename("Text Files (*.txt), *.txt", , , , True)
If Not IsArray(DateiPfad) Then Exit Sub

For i = 1 To UBound(DateiPfad)

Open DateiPfad(i) For Input As #1
Call WriteToCLP(Replace(Input(LOF(1), #1), "|", vbTab))
Close #1

With ThisWorkbook
With .Worksheets.Add(, .Sheets(.Sheets.Count))
'----BlattNamen auf Existenz prüfen---
BlattNameTmp = Dir(DateiPfad(i))
...
  Thema: Importieren von TXT Dateien 
Phelan XLPH

Antworten: 21
Aufrufe: 1180

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Sep 2010, 21:15   Titel: AW: Importieren von TXT Dateien Version: Office 2007
Welche Namen sollen die TabellenReiter erhalten? die Dateinamen?
  Thema: Importieren von TXT Dateien 
Phelan XLPH

Antworten: 21
Aufrufe: 1180

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Sep 2010, 21:08   Titel: AW: Importieren von TXT Dateien Version: Office 2007
Also bei mir läufts...

Außerdem solltest du Pfad als Variant deklarieren und auf "Boolean" prüfen, damit
der Abbruch-Button auch greift:

Dim Pfad As Variant
Pfad = Application.GetOpenFilename("Text Files (*.txt), *.txt")
If TypeName(Pfad) = "Boolean" Then Exit Sub
  Thema: Erweitertes Dictionary 
Phelan XLPH

Antworten: 8
Aufrufe: 634

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Sep 2010, 21:01   Titel: AW: Erweitertes Dictionary Version: Office 2003
@Exceltüftler

welcher Verweis muss gesetzt werden damit das Dictionary erkannt wird?
  Thema: Importieren von TXT Dateien 
Phelan XLPH

Antworten: 21
Aufrufe: 1180

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Sep 2010, 19:10   Titel: AW: Importieren von TXT Dateien Version: Office 2007
Ja, bau es doch ein.
  Thema: Hierarchie im Sheet abbilden 
Phelan XLPH

Antworten: 34
Aufrufe: 2949

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Sep 2010, 12:00   Titel: AW: Hierarchie im Sheet abbilden Version: Office 2007
Hallo,

30.000Zeilen >> 2,4 sec.

hier nochmal für Excel 2000-2003:
  Thema: Zahlen zuordnen... 
Phelan XLPH

Antworten: 16
Aufrufe: 756

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Sep 2010, 09:43   Titel: AW: Zahlen zuordnen... Version: Office 2007
Hallo,

als VBA:

Sub ph()
Dim arrNa As Variant
Dim DicNamen As Object
Dim DicDaten As Object
Dim DicNoten As Object
Dim i As Long
Dim z As Long

Set DicNamen = CreateObject("Scripting.Dictionary")
Set DicDaten = CreateObject("Scripting.Dictionary")
Set DicNoten = CreateObject("Scripting.Dictionary")

With Tabelle1
arrNa = .Range(.Cells(1, 1), .Cells(1, .Columns.Count).End(xlToLeft))

MsgBox Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose(arrNa)), ";")

For i = 1 To UBound(arrNa, 2)
If arrNa(1, i) <> "" Then
DicNamen(arrNa(1, i)) = i
DicDaten(arrNa(1, i)) = .Range(.Cells(2, i), .Cells(Rows.Count, i).End(xlU ...
  Thema: Daten aus Textdatei einlesen und in Excel formatieren 
Phelan XLPH

Antworten: 10
Aufrufe: 835

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Sep 2010, 01:01   Titel: AW: Daten aus Textdatei einlesen und in Excel formatieren Version: Office 2007
Hallo,

dieser Code dürfte um eineiges schneller sein.

Sub TxtImport_ph()
Dim i As Long
Dim pfad As String
Dim s As String
Dim t As Single

t = Timer

On Error GoTo ENDE
Application.ScreenUpdating = False

pfad = "d:\test\T.txt" 'ANPASSEN **********************

Open pfad For Input As #1
s = Input(LOF(1), #1)
Close #1

Call schreiben(s)

With Tabelle1 'ANPASSEN ********************************
.UsedRange.Clear

With .Range("A1")
.Value = 1
.TextToColumns .Cells(1), xlDelimited, xlTextQualifierNone _
, False, False, False, False, False, False

.Parent.Paste .Cells(1)
.EntireColumn.Replace " ", "", xlPart
.EntireColumn.Replace """" ...
  Thema: Spezialfilter 
Phelan XLPH

Antworten: 4
Aufrufe: 351

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Sep 2010, 20:55   Titel: AW: Spezialfilter Version: Office 2007
hallo,

hier eine Möglichkeit mit dem Autofilter
  Thema: Spezialfilter 
Phelan XLPH

Antworten: 4
Aufrufe: 351

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Sep 2010, 18:08   Titel: AW: Spezialfilter Version: Office 2007
Hallo Dani,

das geht nicht. Es wird nur in Fest-Werte und Formate kopiert.
  Thema: Daten aus Textdatei einlesen und in Excel formatieren 
Phelan XLPH

Antworten: 10
Aufrufe: 835

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Sep 2010, 17:59   Titel: AW: Daten aus Textdatei einlesen und in Excel formatieren Version: Office 2007
Wie ist die Durchlaufzeit?
 
Seite 415 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 412, 413, 414, 415, 416, 417, 418 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA