Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 288 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 285, 286, 287, 288, 289, 290, 291 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Doppelte Zeilen automatisch löschen 
Phelan XLPH

Antworten: 15
Aufrufe: 1088

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. März 2011, 11:05   Titel: AW: Doppelte Zeilen automatisch löschen Version: Office 2010
Falls Spalte E nach duplikaten durchsucht werden soll dann ändere folgende zeile:
arr = .Range("E1:E" & .Range("E:E").Find("*", , , , , xlPrevious).Row)
  Thema: Tabellen vergleichen 
Phelan XLPH

Antworten: 8
Aufrufe: 166

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. März 2011, 09:28   Titel: AW: Tabellen vergleichen Version: Office 97
Sub ph()
Dim ar As Variant
Dim i As Long
Dim vgl As Object
Dim rng As Range
Dim lngLZ As Long
Dim wksQ As Worksheet
Dim wksZ As Worksheet

Set wksQ = Worksheets("Tabelle1") 'Anpassen *************
Set wksZ = Worksheets("Tabelle2") 'Anpassen *************

Set vgl = CreateObject("Scripting.Dictionary")

With wksZ
lngLZ = .Cells(Rows.Count, 3).End(xlUp).Row
ar = .Range("C1:C" & lngLZ)
End With

For i = 2 To UBound(ar)
If ar(i, 1) <> "" Then _
vgl(ar(i, 1)) = 0
Next

With wksQ
ar = .Range("C1:C" & .Cells(Rows.Count, 3).End(xlUp).Row)

For i = 2 To UBound(ar)
If Not vgl.exists(ar(i, 1)) Then
...
  Thema: Umkehrung für Format / Text Funktion 
Phelan XLPH

Antworten: 17
Aufrufe: 647

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. März 2011, 09:07   Titel: AW: Umkehrung für Format / Text Funktion Version: Office 2007
speicher die x-Werte in array und greife dann auf dieses zu.

oder so:
Sub ph()
MsgBox CDbl(WorksheetFunction.Text(5.56321456, "[h]"))
End Sub
  Thema: Flexgrid to Excel, Text als Zahl formatieren 
Phelan XLPH

Antworten: 17
Aufrufe: 1558

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. März 2011, 08:30   Titel: AW: Flexgrid to Excel, Text als Zahl formatieren Version: Office 2007
Hallo martin,

hier ein Bsp., kannst du dir aber auch aufzeichnen.

Columns(2).NumberFormat = "Hh:mm:ss"
Columns(3).NumberFormat = "#,##0.0"
  Thema: Mehrspaltige Listbox - Ausgabe der Werte 
Phelan XLPH

Antworten: 6
Aufrufe: 945

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. März 2011, 20:31   Titel: AW: Mehrspaltige Listbox - Ausgabe der Werte Version: Office 2007
ein array mit den selectierten Daten wär mir lieber. Smile
  Thema: Mehrspaltige Listbox - Ausgabe der Werte 
Phelan XLPH

Antworten: 6
Aufrufe: 945

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. März 2011, 20:15   Titel: AW: Mehrspaltige Listbox - Ausgabe der Werte Version: Office 2007
@Daniel

funktioniert das auch bei Multiselect?
  Thema: Doppelte Zeilen automatisch löschen 
Phelan XLPH

Antworten: 15
Aufrufe: 1088

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. März 2011, 19:28   Titel: AW: Doppelte Zeilen automatisch löschen Version: Office 2010
Falls die Daten unsortiert bleiben sollen dann so:

Sub DoppelteLoeschenUnsortierterDaten()
Dim arr As Variant
Dim i As Long
Dim Dic As Object

Set Dic = CreateObject("Scripting.Dictionary")

Application.ScreenUpdating = False
With Worksheets("OffeneRG")
arr = .Range("L1:L" & .Range("L:L").Find("*", , , , , xlPrevious).Row)
For i = 1 To UBound(arr)
Dic(arr(i, 1)) = Val(Dic(arr(i, 1))) + 1
Next
For i = 1 To UBound(arr)
If Dic(arr(i, 1)) > 1 Then arr(i, 1) = True Else arr(i, 1) = Empty
Next
With .UsedRange.Columns
With .Item(.Count).Offset(, 1)
.Resize(UBound(arr)) = arr
.EntireRow.Sort .Cells(1), Header:=xlYes
On Error Resume N ...
  Thema: Kommentare/Indikatoren verbergen 
Phelan XLPH

Antworten: 7
Aufrufe: 1258

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. März 2011, 13:19   Titel: AW: Kommentare/Indikatoren verbergen Version: Office 2007
Was sind Inikatoren, hab ich sowas schon gegessen und habs nicht gemerkt? Shock
  Thema: String zu Date und dann Zahl dahinter löschen, aber addieren 
Phelan XLPH

Antworten: 45
Aufrufe: 1035

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. März 2011, 12:23   Titel: AW: String zu Date und dann Zahl dahinter löschen, aber addi Version: Office 2003
erg = LCase(c.Value) Like "*month*"
  Thema: Berechnung / Verteilung von Geld 
Phelan XLPH

Antworten: 5
Aufrufe: 590

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. März 2011, 12:20   Titel: AW: Berechnung / Verteilung von Geld Version: Office 2003
Das ist eine UDF, kopiere es in ein StandardModul.

Dann kannst du diese Funktion über Excel aufrufen.

zB: =Verteilung($E$1;$F$1;ZEILE(A1))
Ziehe die Formel dann runter um die restlichen Ergebnisse zu erhalten.
  Thema: String zu Date und dann Zahl dahinter löschen, aber addieren 
Phelan XLPH

Antworten: 45
Aufrufe: 1035

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. März 2011, 12:13   Titel: AW: String zu Date und dann Zahl dahinter löschen, aber addi Version: Office 2003
@Hoddel
Worksheets("WPtoMSP").Range("K2:K" & Cells(Rows.Count, 11).End(xlUp).Row)
>> unzureichende Refernzierung

besser so:
With Worksheets("WPtoMSP")
For Each c In .Range("K2:K" & .Cells(.Rows.count, 11).End(xlUp).Row)
erg = c.Value Like "*month*"
If erg = True Then
For i = 1 To Len(c)
If IsNumeric(Mid(c, i, 1)) Then
summe = summe + CDbl(Mid(c, i, 1))
Else
End If
Next
c.Value = summe & " months"
End If
Next
End With
  Thema: Berechnung / Verteilung von Geld 
Phelan XLPH

Antworten: 5
Aufrufe: 590

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. März 2011, 11:59   Titel: AW: Berechnung / Verteilung von Geld Version: Office 2003
Function Verteilung(kapital, beitrag, pos)
Dim n As Long
Dim ar() As Variant

If Val(beitrag) = 0 Then Exit Function
If Val(kapital) = 0 Then Exit Function

Do
ReDim Preserve ar(n)
ar(n) = beitrag * (n + 1)
n = n + 1
Loop Until kapital < WorksheetFunction.Sum(ar) + ar(n - 1)
Verteilung = ar(pos - 1)
End Function
  Thema: Flexgrid to Excel, Text als Zahl formatieren 
Phelan XLPH

Antworten: 17
Aufrufe: 1558

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. März 2011, 08:12   Titel: AW: Flexgrid to Excel, Text als Zahl formatieren Version: Office 2007
Hallo Martin, versuchs hiermit:

Sub ph()
With objXLWks
With .Cells.Find("")
.NumberFormat = "General"
.Copy
End With
.Range(.Cells(2, 3), .Cells(nRows, nCols)).PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd
Application.CutCopyMode = False
End With
End Sub
  Thema: M/M/C Warteschlangenmodell in VBA 
Phelan XLPH

Antworten: 2
Aufrufe: 1022

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. März 2011, 14:04   Titel: AW: M/M/C Warteschlangenmodell in VBA Version: Office 2003
Vielleicht so:

Sub MMC()
Dim n As Integer
Dim c As Integer
Dim Muj As Double
Dim Lambda As Double
Dim a As Double
Dim p As Double
Dim P0 As Double

'P0 = 1 / ? von n=0(unter Summenzeichen) bis c-1(Über Summenzeichen) + a ^ n / n! + a^c / c!*(1-p);
'wobei a= lambda /Muj und p= Lambda/(Muj*c) !

Lambda = 10
Muj = 2
c = 3
n = 1

For n = n - 1 To c - 1
a = Lambda / Muj
p = Lambda / (Muj * c)
P0 = P0 + a ^ n / WorksheetFunction.Fact(n) + a ^ c / WorksheetFunction.Fact(c) * (1 - p)
Next
P0 = 1 / P0
MsgBox P0
End Sub
  Thema: Zuordnung erhalten 
Phelan XLPH

Antworten: 4
Aufrufe: 217

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. März 2011, 13:41   Titel: AW: Zuordnung erhalten Version: Office 2003
Hallo,

google nach: ComboAbhängigVonCombo.xls
 
Seite 288 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 285, 286, 287, 288, 289, 290, 291 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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