Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 585 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 582, 583, 584, 585, 586, 587, 588 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: String Handling - Performance Optimierung 
Phelan XLPH

Antworten: 7
Aufrufe: 528

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Aug 2009, 15:19   Titel: AW: String Handling - Performance Optimierung Version: Office 2k (2000)
schu mal nach der Replace-methode in der VBA-Hilfe nach
  Thema: String Handling - Performance Optimierung 
Phelan XLPH

Antworten: 7
Aufrufe: 528

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Aug 2009, 15:14   Titel: AW: String Handling - Performance Optimierung Version: Office 2k (2000)
Steht s1 so in einer Zelle?

vielleicht langt das hier:
Sub test()
Columns(1).Replace " A;B;C;D;E;F;G;H;I ", " A;B;C;XYZ;E;F;G;H;I "
End Sub
  Thema: eine Zelle im Bereich finden 
Phelan XLPH

Antworten: 3
Aufrufe: 320

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Aug 2009, 14:59   Titel: AW: eine Zelle im Bereich finden Version: Office 2003
hi,

was heisst hier "schleifensalat"...tz,tz,tz,... Rolling Eyes

Sub y()
Dim zell As Range
Dim rng As Range

Set rng = Tabelle3.Range("A3:I45") 'Anpassen
For Each zell In rng
If zell.Interior.ColorIndex = 3 Then
MsgBox "Bitte Nach-Bestellen!", , "Achtung!"
Exit For
End If
Next
End Sub
  Thema: VBA Code aus Excel 2007 wird in EXCEL 2003 nicht erkannt 
Phelan XLPH

Antworten: 6
Aufrufe: 447

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Aug 2009, 14:49   Titel: AW: VBA Code aus Excel 2007 wird in EXCEL 2003 nicht erkannt Version: Office 2003
Benutz den Spezialfilter
  Thema: Ereignis für Autofilter? 
Phelan XLPH

Antworten: 3
Aufrufe: 360

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Aug 2009, 14:45   Titel: AW: Ereignis für Autofilter? Version: Office 2003
Keine Chance!

Da musst du dann per code den schutz deaktivieren/aktivieren
  Thema: Programmlaufzeiten darstellen 
Phelan XLPH

Antworten: 13
Aufrufe: 435

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Aug 2009, 14:41   Titel: AW: Programmlaufzeiten darstellen Version: Office 2003
Naja ob dir das gefallen wird ....??!!

Sub x()
Dim arrIn As Variant
Dim arrVgl As Variant
Dim v As Long
Dim Dic As Object
Dim i As Long, k As Long
Application.ScreenUpdating = False

Set Dic = CreateObject("Scripting.Dictionary")

With Tabelle1 'anpassen ****************
arrIn = .Range("A2:D" & .Cells(.Rows.Count, 1).End(xlUp).Row)
End With

For i = 1 To UBound(arrIn)
Dic(arrIn(i, 2)) = Dic(arrIn(i, 2)) & ";" & arrIn(i, 1) & ";" & arrIn(i, 3) & ";" & arrIn(i, 4)
Next


With Tabelle2 'anpassen ****************
arrVgl = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)

arrIn = Dic.Keys
For i = 0 To UBound(arrIn)
For k = 1 To UBound(Split(Mid(Dic(arrIn(i)), 2), &quo ...
  Thema: Dropdown Auswahlliste Dynamisch 
Phelan XLPH

Antworten: 4
Aufrufe: 3666

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Aug 2009, 14:01   Titel: AW: Dropdown Auswahlliste Dynamisch Version: Office 2003
Dann machen wir aus dem Komma ein semikolon,da das Trennzeichen
unabänderlich als Komma angesehen wird.

ersetze das:
txt = txt & "," & SL.GetKey(i)
durch das:
txt = txt & "," & Replace(SL.GetKey(i),",",";")
  Thema: VBA Toggle Button Code aktivieren und deaktivieren 
Phelan XLPH

Antworten: 2
Aufrufe: 3659

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Aug 2009, 07:19   Titel: AW: VBA Toggle Button Code aktivieren und deaktivieren Version: Office 2003
ins codefenster der tabelle, falls ToggleButton auf der tabellle:
Private Sub ToggleButton1_Click()
Dim i As Long, laR As Long
Application.ScreenUpdating = False
If ToggleButton1 Then
laR = Cells(Rows.Count, 42).End(xlUp).Row
For i = laR To 1 Step -1
If Cells(i, 42).Text = "YES" Then
Rows(i).Hidden = True
End If
Next i
Else
Rows.Hidden = False
End If
Application.ScreenUpdating = True
End Sub
  Thema: Druckdialog anzeigen 
Phelan XLPH

Antworten: 3
Aufrufe: 707

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Aug 2009, 07:01   Titel: AW: Druckdialog anzeigen Version: Office 2k (2000)
Option Explicit

Sub DruckDialog()
If Application.Dialogs(xlDialogPrint).Show = False Then Exit Sub
End Sub
  Thema: Excel CSV Dateien zusammenführen 
Phelan XLPH

Antworten: 15
Aufrufe: 3073

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Aug 2009, 23:45   Titel: AW: Excel CSV Dateien zusammenführen Version: Office 2003
Yo hab mich verdenkt dann halt so, wenn nicht so dann probiers mit nem
Stossgebet Richtung Himmel Very Happy

Sub test()
DateiListeAnzeigen "D:\test\", "Konsolidierung.txt" 'anpassen
End Sub

Sub DateiListeAnzeigen(Ordnerangabe, Datei)
Dim fso As Object, o As Object, d As Object, da As Object
Dim f As Object, txt As String, s As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set o = fso.GetFolder(Ordnerangabe)
Set da = o.Files
For Each d In da
If d.Name Like "*.txt" Then
Set f = fso.OpenTextFile(Ordnerangabe & d.Name, 1)
If f.AtEndOfLine = True Then
f.Close
Else
If txt = "" Then
txt = f.ReadAll
Else
s = f.ReadAll
txt = txt & Mid$(s, InStr(s, vbLf) + 1)
End If
f.Close
End If
End If
Next
Set f = fso.OpenTextFil ...
  Thema: Excel CSV Dateien zusammenführen 
Phelan XLPH

Antworten: 15
Aufrufe: 3073

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Aug 2009, 23:27   Titel: AW: Excel CSV Dateien zusammenführen Version: Office 2003
blaumarkiertes entfernen:
txt = txt & vbCrLf & Join(arr, vbCrLf)
  Thema: Excel CSV Dateien zusammenführen 
Phelan XLPH

Antworten: 15
Aufrufe: 3073

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Aug 2009, 22:51   Titel: AW: Excel CSV Dateien zusammenführen Version: Office 2003
Bei mir tut der Code genau das.

Vielleicht hast du jede menge Leerzeilen?
  Thema: Excel CSV Dateien zusammenführen 
Phelan XLPH

Antworten: 15
Aufrufe: 3073

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Aug 2009, 22:08   Titel: AW: Excel CSV Dateien zusammenführen Version: Office 2003
schau mal ob das tut:

Sub test()
DateiListeAnzeigen "D:\test\", "Konsolidierung.txt" 'anpassen
End Sub

Sub DateiListeAnzeigen(Ordnerangabe, Datei)
Dim fso, o, d, da, s, fq, fz, txt, arr
Set fso = CreateObject("Scripting.FileSystemObject")
Set o = fso.GetFolder(Ordnerangabe)
Set da = o.Files
For Each d In da
'Debug.Print d.Name
If d.Name Like "*.txt" Then
Set fq = fso.OpenTextFile(Ordnerangabe & d.Name, 1)
If fq.AtEndOfLine = True Then
fq.Close
Else
If txt = "" Then
txt = fq.ReadAll
Else
arr = Split(fq.ReadAll, vbCrLf)
arr(0) = ""
txt = txt & vbCrLf & Join(arr, vbCrLf)
End If
fq.Close
End If
End If
Next
Set fz = fso.OpenTextFile(Ordnerangabe & Datei, 8, True)
fz.Wr ...
  Thema: Namen löschen 
Phelan XLPH

Antworten: 2
Aufrufe: 317

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Aug 2009, 21:58   Titel: AW: Namen löschen Version: Office 2007
Achtung löscht ALLE NamenBereiche:
Sub NamenLoeschen()
Dim n As Name
For Each n In ThisWorkbook.Names
n.Delete
Next
End Sub
  Thema: ComboBox/DropDown vordefinieren 
Phelan XLPH

Antworten: 4
Aufrufe: 4022

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Aug 2009, 19:25   Titel: AW: ComboBox/DropDown vordefinieren Version: Office 2003
So?!
 
Seite 585 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 582, 583, 584, 585, 586, 587, 588 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web