Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 261 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 258, 259, 260, 261, 262, 263, 264 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Combobox2 in Abhängigkeit von ComboBox1 füllen 
Phelan XLPH

Antworten: 3
Aufrufe: 818

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Apr 2011, 23:14   Titel: AW: Combobox2 in Abhängigkeit von ComboBox1 füllen Version: Office 2007
googeln: ComboBox abhängig von ComboBox
  Thema: Wert in Matrix suchen, gleicher Wert, sonst nächst < oder 
Phelan XLPH

Antworten: 5
Aufrufe: 977

BeitragForum: Excel Formeln   Verfasst am: 15. Apr 2011, 22:25   Titel: AW: Wert in Matrix suchen, gleicher Wert, sonst nächst < Version: Office 2003
so,
  Thema: Suchfunktion über Userform 
Phelan XLPH

Antworten: 48
Aufrufe: 3064

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Apr 2011, 19:32   Titel: AW: Suchfunktion über Userform Version: Office 2003
Jetzt kostets was Cool
  Thema: Summenprodukt() Aber was ist mit Text? 
Phelan XLPH

Antworten: 5
Aufrufe: 1969

BeitragForum: Excel Formeln   Verfasst am: 15. Apr 2011, 18:44   Titel: AW: Summenprodukt() Aber was ist mit Text? Version: Office 2003
oder:
=SUMMENPRODUKT(--(A1:A5000="ja");--(B1:B5000="nein");C1:C5000)
  Thema: Wert in Matrix suchen, gleicher Wert, sonst nächst < oder 
Phelan XLPH

Antworten: 5
Aufrufe: 977

BeitragForum: Excel Formeln   Verfasst am: 15. Apr 2011, 18:38   Titel: AW: Wert in Matrix suchen, gleicher Wert, sonst nächst < Version: Office 2003
Hallo,

vielleicht hab ichs verstanden,,,
  Thema: User Defined Function 
Phelan XLPH

Antworten: 5
Aufrufe: 491

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Apr 2011, 16:44   Titel: AW: User Defined Function Version: Office XP (2002)
Das geht auch kürzer:
Public Function NPSx(M As Range) As Integer
With WorksheetFunction
NPSx = ((.Sum(M.Columns(1)) - .Sum(M.Columns(3))) / _
.Sum(M.Columns(1), M.Columns(2), M.Columns(3))) * 100
End With
End Function
  Thema: VBA Textsuche in Matrix 
Phelan XLPH

Antworten: 41
Aufrufe: 1765

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Apr 2011, 16:19   Titel: AW: VBA Textsuche in Matrix Version: Office 2007
Sieh dir die datei an.
  Thema: Permutation mit VBA 
Phelan XLPH

Antworten: 10
Aufrufe: 1313

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Apr 2011, 16:13   Titel: AW: Permutation mit VBA Version: Office 2010
ETO hab deinen Code gepimpt Very Happy

Sub ComboWithoutRep2Groups()
'(c) EtoPHG office-loesung.de
Const n As Long = 18 ' Gesamtzahl
Const m As Long = 9 ' Gruppe daraus

Dim arrIx(1 To m) As Long
Dim lngCol As Long
Dim lngRow As Long
Dim lngRowOffset As Long
Dim lngColOffset As Long
Dim lngTotal As Long
Dim bWrap As Boolean
Dim arrDaten As Variant
Dim arrErg As Variant
Dim t As Single

t = Timer
arrDaten = Array("P1", "P2", "P3", "P4", "P5", "P6", "P7", "P8", "P9", "P10", "P11", "P12", "P13", "P14", "P15", "P16", "P17", "P18")

lngTotal = WorksheetFunction.Combin(n, m)
lngRowOffset = 1
lngColOffset = 1

ReDim arrErg(1 To lngTo ...
  Thema: VBA Textsuche in Matrix 
Phelan XLPH

Antworten: 41
Aufrufe: 1765

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Apr 2011, 15:40   Titel: AW: VBA Textsuche in Matrix Version: Office 2007
geh mal schrittweise den code durch bis eine Übereinstimmung gefunden wurde
und eine Überschreibung stattgefunden hat, dann stop den Durchlauf.

dann versuch es nochmal ganz normal.
  Thema: Permutation mit VBA 
Phelan XLPH

Antworten: 10
Aufrufe: 1313

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Apr 2011, 15:34   Titel: AW: Permutation mit VBA Version: Office 2010
Laughing Laughing Laughing genau.

Sub KombinationXXX()

Dim i As Long, j As Long
Dim n As Long, k As Long
Dim x As Long, v As Variant
Dim springen As Long
Dim zaehler As Long
Dim anzahl As Long
Dim arDaten As Variant
Dim arKomb As Variant
Dim pos As Long
Dim arTmp As Variant

arDaten = Array("P1", "P2", "P3", "P4", "P5", "P6", "P7", "P8", "P9", "P10", "P11", "P12")

k = 6
n = 12

If n < k Then Exit Sub
anzahl = Application.WorksheetFunction.Combin(n, k)

If anzahl > 2 ^ 16 Then Exit Sub ' Excel 2003
'If anzahl > 2 ^ 20 Then Exit Sub ' Excel 2007

ReDim arKomb(1 To anzahl + 1, 1 To 6)

With Sheets("Tabelle1")
.Range("A1").CurrentRegio ...
  Thema: Permutation mit VBA 
Phelan XLPH

Antworten: 10
Aufrufe: 1313

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Apr 2011, 14:47   Titel: AW: Permutation mit VBA Version: Office 2010
Ist deine Kugel immer noch trüb?

Die sagt dir sicherlich das per Zufall immer ein Paar gezogen werden soll.
Was vielleicht noch kommt, dass zu gewährleisten ist, dass alle Konstellationen durchlaufen werden sollen.
  Thema: VBA Textsuche in Matrix 
Phelan XLPH

Antworten: 41
Aufrufe: 1765

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Apr 2011, 14:42   Titel: AW: VBA Textsuche in Matrix Version: Office 2007
Sub PH_SVW() 'etwas schneller
Dim ws_4 As Worksheet
Dim ws_9 As Worksheet
Dim arQ As Variant
Dim arS As Variant
Dim arErg As Variant
Dim i As Long
Dim k As Long
Dim t As Single

t = Timer

Set ws_4 = Worksheets("4")
Set ws_9 = Worksheets("9")

arQ = ws_9.Range("C2:D" & ws_9.Cells(ws_9.Rows.Count, 3).End(xlUp).Row)
arS = ws_4.Range("D2:D" & ws_4.Cells(ws_4.Rows.Count, 4).End(xlUp).Row)

arErg = arS

For i = 1 To UBound(arS)
For k = 1 To UBound(arQ)
If InStr(LCase$(arS(i, 1)), LCase$(arQ(k, 1))) Then _
arErg(i, 1) = arQ(k, 2)
Next
Next

ws_4.Range("AQ2").Resize(UBound(arErg)) = arErg

MsgBox Timer - t & " sec.", , " PH"
End Sub
  Thema: Permutation mit VBA 
Phelan XLPH

Antworten: 10
Aufrufe: 1313

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Apr 2011, 14:26   Titel: AW: Permutation mit VBA Version: Office 2010
Naja wenns weiter nix is...

'Kombination (Ohne Beachtung der Reihenfolge u. ohne Zurücklegen)
'zB Lotto 6aus49; Urherber: Maiflower
Sub Kombination()

Dim i As Long, j As Long
Dim n As Long, k As Long
Dim x As Long, v As Variant
Dim springen As Long
Dim zaehler As Long
Dim anzahl As Long
Dim arDaten As Variant
Dim arKomb As Variant
Dim pos As Long

arDaten = Array("P1", "P2", "P3", "P4", "P5", "P6", "P7", "P8", "P9", "P10", "P11", "P12")

k = 6
n = 12

If n < k Then Exit Sub
anzahl = Application.WorksheetFunction.Combin(n, k)

If anzahl > 2 ^ 16 Then Exit Sub ' Excel 2003
'If anzahl > 2 ^ 20 Then Exit Sub ' Excel 2007

ReDim arKomb(1 To anzahl + 1, 1 To k)

W ...
  Thema: VBA Textsuche in Matrix 
Phelan XLPH

Antworten: 41
Aufrufe: 1765

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Apr 2011, 13:32   Titel: AW: VBA Textsuche in Matrix Version: Office 2007
Dann hat deine SpalteD in "4" ebenso Leere Felder.
  Thema: Die untere Array-Grenze muss 0 sein 
Phelan XLPH

Antworten: 16
Aufrufe: 1053

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Apr 2011, 13:20   Titel: AW: Die untere Array-Grenze muss 0 sein Version: Office 2k (2000)
@Nepumuk

Warum verwendest du IsEmpty() und nicht ="" oder = Empty.
Mit IsEmpty werden Leerstrings, erzeugt durch Formeln, nicht erkannt.
 
Seite 261 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 258, 259, 260, 261, 262, 263, 264 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: MS Frontpage