Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 223 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 220, 221, 222, 223, 224, 225, 226 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: SetFocus & Tab in Active-X Controls 
Phelan XLPH

Antworten: 7
Aufrufe: 703

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Dez 2011, 23:16   Titel: SetFocus & Tab in Active-X Controls Version: Office 2010
Hallo,

gibt es einen Trick von Steuerelement zu Steuerelement auf einem Blatt zu springen.

Ich habe TextBoxen und Comboboxen.
  Thema: Liste per vba sortieren 
Phelan XLPH

Antworten: 10
Aufrufe: 303

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Dez 2011, 17:51   Titel: AW: Liste per vba sortieren Version: Office 2003
Private Sub Worksheet_Change(ByVal Target As Range)
Call Blattschutz_aufheben
Dim vntTmp As Variant
Dim i As Long, n As Long
If Not Intersect(Target, Range("A7:A" & Rows.Count)) Is Nothing Then
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
If Target.Count = 1 And Target.Row Mod 3 = 1 And IsNumeric(Target.Cells(1)) Then
If Target <> "" Then

If Target < Target.Offset(1) Then
Target.Resize(3) = Target - 0.9
Else
Target.Resize(3) = Target + 0.9
End If

With Range("A7:A" & Rows.Count).Resize(, 14)
.Sort .Cells(1), xlAscending, Header:=False
End With
For i = 7 To Cells&# ...
  Thema: Makro ist langsam 
Phelan XLPH

Antworten: 3
Aufrufe: 192

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Dez 2011, 17:39   Titel: AW: Makro ist langsam Version: Office 2k (2000)
Nimm den Filter zur Hilfe und Kopier das jeweilige Filter-Ergebnis in die
entsprechenden Blätter.

so z.B.:

Sub FilterCopy()
Dim i As Integer
Dim vntaSuchwerte As Variant

vntaSuchwerte = Array(910, 930, 940, 950, 990)

With Worksheets("eingang").Range("A1").CurrentRegion.EntireColumn
For i = 0 To UBound(vntaSuchwerte)
.AutoFilter 1, vntaSuchwerte(i)
.Parent.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Copy _
Worksheets(vntaSuchwerte(i) & "n").Cells(Rows.Count, 1).End(xlUp).Offset(1)
Next
.AutoFilter
End With
End Sub
  Thema: Nullen bei Nachkomma 
Phelan XLPH

Antworten: 3
Aufrufe: 304

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Dez 2011, 14:57   Titel: AW: Nullen bei Nachkomma Version: Office 2003
oder besser so:

With Sheets("Kontoauszug")
.Range("H5:H" & .Rows.Count).NumberFormat = "[Blue] ""S"" * 0.00 ;[Red] ""H"" * - 0.00 ;[Red] ""H"" * 0.00 "
End With
  Thema: Nullen bei Nachkomma 
Phelan XLPH

Antworten: 3
Aufrufe: 304

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Dez 2011, 14:35   Titel: AW: Nullen bei Nachkomma Version: Office 2003
Dann setz das Format doch so:
Sheets("Kontoauszug").Cells(i, 8).NumberFormat = """S"" * 0.00"
  Thema: Datei-Vergleich-Makro beschleunigen 
Phelan XLPH

Antworten: 17
Aufrufe: 819

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Dez 2011, 14:27   Titel: AW: Datei-Vergleich-Makro beschleunigen Version: Office 2007
Dann hast du aber keinen schnellen Rechner Smile
  Thema: Datei-Vergleich-Makro beschleunigen 
Phelan XLPH

Antworten: 17
Aufrufe: 819

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Dez 2011, 13:10   Titel: AW: Datei-Vergleich-Makro beschleunigen Version: Office 2007
Hast du es kontrolliert?

das macht er hiermit:
vntaVgl(3, n) = Dic(vntaNeu(i, 1))

Ich benutze das Dictionary um Elementen-Paare zu speichern.
Voraussetzung dafür ist das UNIKATE in SpalteA von ALT stehen.
  Thema: Datei-Vergleich-Makro beschleunigen 
Phelan XLPH

Antworten: 17
Aufrufe: 819

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Dez 2011, 13:00   Titel: AW: Datei-Vergleich-Makro beschleunigen Version: Office 2007
Das muss natürlich so heißen:

vntaVgl(1, v) = vntaNeu(i, 1)
vntaVgl(2, v) = vntaNeu(i, 2)
vntaVgl(3, v) = Dic(vntaNeu(i, 1))
vntaVgl(4, v) = vntaNeu(i, 3)
vntaVgl(5, v) = vntaNeu(i, 4)
vntaVgl(6, v) = vntaNeu(i, 5)
  Thema: Liste per vba sortieren 
Phelan XLPH

Antworten: 10
Aufrufe: 303

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Dez 2011, 21:08   Titel: AW: Liste per vba sortieren Version: Office 2003
zu 1. habe es mit der bedingten Formatierung gelöst. Siehe hochgeladene Datei
zu 2. probiers aus
  Thema: Datei-Vergleich-Makro beschleunigen 
Phelan XLPH

Antworten: 17
Aufrufe: 819

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Dez 2011, 18:57   Titel: AW: Datei-Vergleich-Makro beschleunigen Version: Office 2007
Hallo,

teste das mal.

Sub Daten_Vergleichen()

Dim WsVgl As Worksheet
Dim WsNeu As Worksheet
Dim WsAlt As Worksheet

Dim i As Integer
Dim n As Integer
Dim a As Integer
Dim v As Integer

Dim vntaNeu As Variant
Dim vntaAlt As Variant
Dim vntaVgl As Variant

Dim Dic As Object
Dim t As Single

t = Timer

Set WsVgl = ActiveWorkbook.Worksheets(1)
With Workbooks.Open("T:\ZS\OS\VIADOR\ALK\ALK02_STES_Vermittlungsgrad_neu.xlsx")
Set WsNeu = .Worksheets(1)
End With
With Workbooks.Open("T:\ZS\OS\VIADOR\ALK\ALK02_STES_Vermittlungsgrad_alt.xlsx")
Set WsAlt = .Worksheets(1)
End With

Set Dic = CreateObject("Scripting.Dictionary")

n = WsNeu.Cells(WsNeu.Rows.Count, 1).End(xlUp).Row
a = W ...
  Thema: Liste per vba sortieren 
Phelan XLPH

Antworten: 10
Aufrufe: 303

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Dez 2011, 17:49   Titel: AW: Liste per vba sortieren Version: Office 2003
ersetze bestehenden Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim vntTmp As Variant
Dim i As Long, n As Long
If Not Intersect(Target, Range("B7:B" & Rows.Count)) Is Nothing Then
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
If Target.Count = 1 And Target.Row Mod 3 = 1 And IsNumeric(Target.Cells(1)) Then
If Target <> "" Then

If Target < Target.Offset(1) Then
Target.Resize(3) = Target - 0.9
Else
Target.Resize(3) = Target + 0.9
End If

With Range("B7:B" & Rows.Count).Resize(, 12)
.Sort .Cells(1), xlAscending, Header:=False
End With
For i = 7 To Cells( ...
  Thema: String in Array schreiben und "zusammenfassen" 
Phelan XLPH

Antworten: 12
Aufrufe: 364

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Dez 2011, 17:28   Titel: AW: String in Array schreiben und "zusammenfassen" Version: Office 2007
Wie soll er das checken, wenns ihm keiner sagt?!
  Thema: String in Array schreiben und "zusammenfassen" 
Phelan XLPH

Antworten: 12
Aufrufe: 364

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Dez 2011, 15:07   Titel: AW: String in Array schreiben und "zusammenfassen" Version: Office 2007
Brauchst du es als UDF?

Function Mittelwert_X(Suchwert, WerteBereich As Range, KriterienBereich As Range)
Dim i As Integer
Dim dblSumme As Double

Set KriterienBereich = KriterienBereich.Columns(1)

For i = 1 To WerteBereich.Columns.Count
dblSumme = dblSumme + WorksheetFunction.SumIf(KriterienBereich, Suchwert, WerteBereich.Columns(i))
Next
Mittelwert_X = dblSumme / WorksheetFunction.CountIf(KriterienBereich, Suchwert) / WerteBereich.Columns.Count
End Function
  Thema: String in Array schreiben und "zusammenfassen" 
Phelan XLPH

Antworten: 12
Aufrufe: 364

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Dez 2011, 14:53   Titel: AW: String in Array schreiben und "zusammenfassen" Version: Office 2007
Schreib folgende Formel in D2 und zieh sie runter:

=WENN(ZÄHLENWENN($C$2:C2;C2)=1;(SUMMEWENN(C:C;C2;A:A)+SUMMEWENN(C:C;C2;B:B))/ZÄHLENWENN(C:C;C2)/2;"")
  Thema: String in Array schreiben und "zusammenfassen" 
Phelan XLPH

Antworten: 12
Aufrufe: 364

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Dez 2011, 14:46   Titel: AW: String in Array schreiben und "zusammenfassen" Version: Office 2007
Ist der Mittelwert von C1 = 9/4 ?
 
Seite 223 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 220, 221, 222, 223, 224, 225, 226 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen