Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 95 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 92, 93, 94, 95, 96, 97, 98 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Scripting Dictionary, super komplexe Aufgabenstellung. 
Phelan XLPH

Antworten: 23
Aufrufe: 598

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Dez 2012, 15:53   Titel: AW: Scripting Dictionary, super komplexe Aufgabenstellung. Version: Office 2003
For k = 1 To UBound(arD, 2) Step 8

'8' statt '6' ! (Blockbreite = Schrittweite in 'Daten')
  Thema: Automatische Gruppierung mittels VBA 
Phelan XLPH

Antworten: 9
Aufrufe: 339

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Dez 2012, 11:59   Titel: AW: Automatische Gruppierung mittels VBA Version: Office 2003
Ebenen >8 geht werden als Ebene 8 gesetzt.

Sub GroupLevel()
Dim rngC As Range
Dim i As Long
Dim anz As Long

Application.ScreenUpdating = False

With Tabelle1
.Rows.ClearOutline
For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
.Rows(i).OutlineLevel = WorksheetFunction.Min(.Cells(i, 1).Value, 8)
Next
End With
End Sub
  Thema: Farbige Zelle in Abhängigkeit des Zahlenwertes 
Phelan XLPH

Antworten: 4
Aufrufe: 1116

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Dez 2012, 11:34   Titel: AW: Farbige Zelle in Abhängigkeit des Zahlenwertes
Ist das hier nicht das gleiche:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim objCell As Range
Dim lngColorIndex As Long

'Schleife über alle geänderten Zellen
For Each objCell In Target

'Zeile 1 nicht berücksichtigen da Überschriften
If objCell.Row > 1 Then
'lngColorIndex zurücksetzen
lngColorIndex = xlColorIndexNone
'unterscheide die Spalten
Select Case objCell.Column
'Spalte A
Case 1: If objCell.Value < 1 Then lngColorIndex = 3
'Spalte B
Case 2: If objCell.Value > 3 Then lngColorIndex = 3
'Spalte C
Case 3: If objCell.Value < 500000 Then lngColorIndex = 3
'Case n 'weitere Spalten
End Select

'Jetzt die Farbeienschaft der Zelle setzen
objCell.Interior.ColorIndex = lngColorIndex

E ...
  Thema: Suche beschleunigen 
Phelan XLPH

Antworten: 9
Aufrufe: 154

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Dez 2012, 09:22   Titel: AW: Suche beschleunigen Version: Office 2007
...die Zeile kannst du rausnehmen, die ist sinnlos:
treffer = treffer + 1
  Thema: Application.EnableEvents = False funktioniert nicht 
Phelan XLPH

Antworten: 5
Aufrufe: 210

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Dez 2012, 23:47   Titel: AW: Application.EnableEvents = False funktioniert nicht Version: Office 2010
Hier ein kleines Beispiel mit einem Button und einer TextBox.

Eine Meldung wird nur angezeigt wenn manuell der wert der TextBox
geämdert wird, per Button geibt es keine Anzeige der meldung.

Dim blnEventSperre As Boolean

Private Sub CommandButton1_Click()
blnEventSperre = True
TextBox1.Text = "Test " & Int(Rnd * 1000) + 1
blnEventSperre = False
End Sub

Private Sub TextBox1_Change()
If Not blnEventSperre Then
MsgBox TextBox1.Text
End If
End Sub
  Thema: Application.EnableEvents = False funktioniert nicht 
Phelan XLPH

Antworten: 5
Aufrufe: 210

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Dez 2012, 23:34   Titel: AW: Application.EnableEvents = False funktioniert nicht Version: Office 2010
Application.EnableEvents gilt nicht für die Steuerelemente.

Da musst du dir mit einem globalem Merker behelfen.
  Thema: besondere Sortierung 
Phelan XLPH

Antworten: 7
Aufrufe: 148

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Dez 2012, 23:22   Titel: AW: besondere Sortierung Version: Office 2010
Wink Very Happy [url=http://www.online-excel.de/excel/singsel_vba.php?f=116]Benutzerdefinierte Sortierung
  Thema: Suche beschleunigen 
Phelan XLPH

Antworten: 9
Aufrufe: 154

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Dez 2012, 23:16   Titel: AW: Suche beschleunigen Version: Office 2007
Open Worksheets("Einstellungen").Range("D11").Value For Input As #1
Do Until EOF(1)
Line Input #1, strTxt
i = i + 1
If i > 1000 Then Exit Do
If InStr(strTxt, arr) Then
treffer = treffer + 1
ReDim Preserve arrErg(UBound(arrErg) + 1)
arrErg(UBound(arrErg)) = strTxt
End If
Loop
i = 0
Close
  Thema: VBA aus Access lesen,wie lange dauert 
Phelan XLPH

Antworten: 6
Aufrufe: 131

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Dez 2012, 21:23   Titel: AW: VBA aus Access lesen,wie lange dauert Version: Office 2010
tja, hättste aber auch selber testen können. Rolling Eyes
  Thema: VBA aus Access lesen,wie lange dauert 
Phelan XLPH

Antworten: 6
Aufrufe: 131

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Dez 2012, 21:01   Titel: AW: VBA aus Access lesen,wie lange dauert Version: Office 2010
Hab grad ne Access-Tabelle in Excel importiert:

65.500 Datensätze bei 6 Feldern ca. 1,4 sec.

Ist das lang?
  Thema: VBA aus Access lesen,wie lange dauert 
Phelan XLPH

Antworten: 6
Aufrufe: 131

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Dez 2012, 20:13   Titel: AW: VBA aus Access lesen,wie lange dauert Version: Office 2010
nicht lang
  Thema: Scripting.Dictionary -> Werte aus 1.Tab in 2.Tab übertrag 
Phelan XLPH

Antworten: 9
Aufrufe: 115

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Dez 2012, 19:39   Titel: AW: Scripting.Dictionary -> Werte aus 1.Tab in 2.Tab über Version: Office 2007
Hallo,

hast du Leerzeieln in 'Master'?
  Thema: Suche beschleunigen 
Phelan XLPH

Antworten: 9
Aufrufe: 154

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Dez 2012, 19:37   Titel: AW: Suche beschleunigen Version: Office 2007
Also ich find das schon recht schnell...

Hier zusammengefasst:

Sub x()
Dim sn As String
Dim strTxt As String
Dim i As Long
Dim zeile As Long
Dim arErg As Variant
Dim strPfad As String
Dim t As Single

t = Timer

sn = 123456

ReDim arErg(1 To 1000000)

For zeile = 7 To 7 Step 4
strPfad = Worksheets("Einstellungen").Range("D" & zeile).Value
'For zeile = 7 To 19 Step 4
Open strPfad For Input As #1 ' txt öffnen
Do Until EOF(1) ' arbeite weiter, solange das Dateiende der txt nicht erreicht
Line Input #1, strTxt ' eine einzelne Zeile importieren
If InStr(strTxt, sn) Then ' Wenn Suchbegriff in der eingelesenen Zeile enthalten, dann Wert an Ergebnisstring anfü ...
  Thema: Unterscheidung engl. bzw. deutsch. Excel 
Phelan XLPH

Antworten: 4
Aufrufe: 173

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Dez 2012, 18:32   Titel: AW: Unterscheidung engl. bzw. deutsch. Excel Version: Office 2007
Hallo,

in deutsch bringt er mir schon mal alles wie es sein soll.
Jetzt muss mir der Kunde das noch bestätigen auf seine englisch-version.
  Thema: Scripting.Dictionary -> Werte aus 1.Tab in 2.Tab übertrag 
Phelan XLPH

Antworten: 9
Aufrufe: 115

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Dez 2012, 18:27   Titel: AW: Scripting.Dictionary -> Werte aus 1.Tab in 2.Tab über Version: Office 2007
Sub SpaltenKopieren()
Dim wsBase As Worksheet
Dim wsResult As Worksheet
Dim rngCr As Range
Dim rngCb As Range
Dim lngRows As Long

Set wsResult = Worksheets("Tabelle2")
Set wsBase = Worksheets("Master Sales Report (3)")

lngRows = wsBase.Range("A1").CurrentRegion.Rows.Count

For Each rngCb In Intersect(wsBase.Rows(3), wsBase.Range("A1").CurrentRegion)
For Each rngCr In Intersect(wsResult.Rows(3), wsResult.Range("A3").CurrentRegion)
If rngCb.Value = rngCr.Value Then
rngCb.Resize(lngRows - 3).Offset(1).Copy rngCr.Offset(1)
End If
Next
Next

End Sub
 
Seite 95 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 92, 93, 94, 95, 96, 97, 98 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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