Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 76 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 73, 74, 75, 76, 77, 78, 79 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: datum mit zahl vergleichen 
Phelan XLPH

Antworten: 2
Aufrufe: 44

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jan 2013, 12:02   Titel: AW: datum mit zahl vergleichen Version: Office 2007
If Cells(3,i) = Month(Cells(k, 2)) Then
  Thema: Spezialfilter nimmt keine Kriterien an 
Phelan XLPH

Antworten: 11
Aufrufe: 171

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jan 2013, 11:54   Titel: AW: Spezialfilter nimmt keine Kriterien an Version: Office 2010
Hallo Hiob,

das Datum muss vor Filterung in eine Zahl umgewandelt werden.

Hier ein Beispiel mit Um- und Rückwandlung des Datums.
  Thema: 10 Zeilen-Jump, ohne ausgeblendete Zeilen 
Phelan XLPH

Antworten: 11
Aufrufe: 153

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Jan 2013, 23:16   Titel: AW: 10 Zeilen-Jump, ohne ausgeblendete Zeilen Version: Office 2010
Sub x()
Dim rngC As Range
Dim rngRange As Range
Dim i As Long

On Error Resume Next
Set rngRange = Range("A1:A50").SpecialCells(xlCellTypeVisible)
On Error GoTo 0

If Not rngRange Is Nothing Then
For Each rngC In rngRange
i = i + 1
If i > 10 Then
rngC = "Test"
Exit For
End If
Next
End If
End Sub
  Thema: 10 Zeilen-Jump, ohne ausgeblendete Zeilen 
Phelan XLPH

Antworten: 11
Aufrufe: 153

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Jan 2013, 22:04   Titel: AW: 10 Zeilen-Jump, ohne ausgeblendete Zeilen Version: Office 2010
Sub x()
Dim i As Long
For i = 1 To 50 Step 10
If i > 1 Then
If Not Rows(i).Hidden Then
Cells(i, 1) = "Test"
Exit For
End If
End If
Next
End Sub
  Thema: 10 Zeilen-Jump, ohne ausgeblendete Zeilen 
Phelan XLPH

Antworten: 11
Aufrufe: 153

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Jan 2013, 21:29   Titel: AW: 10 Zeilen-Jump, ohne ausgeblendete Zeilen Version: Office 2010
Sub x()
Dim i As Long
For i = 1 To 50 Step 10
If Not Rows(i).Hidden Then
Cells(i, 1) = "Test"
Exit For
End If
Next
End Sub [*]
  Thema: 10 Zeilen-Jump, ohne ausgeblendete Zeilen 
Phelan XLPH

Antworten: 11
Aufrufe: 153

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Jan 2013, 21:11   Titel: AW: 10 Zeilen-Jump, ohne ausgeblendete Zeilen Version: Office 2010
Sub x()
Dim i As Long
For i = 1 To 50 Step 10
If Not Rows(i).Hidden Then
Cells(i, 1) = "Test"
End If
Next
End Sub
  Thema: Schleife zum Ausfiltern des größten Wertes je Gruppe ??? 
Phelan XLPH

Antworten: 15
Aufrufe: 253

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Jan 2013, 20:50   Titel: AW: Schleife zum Ausfiltern des größten Wertes je Gruppe ??? Version: Office 2010
yup, das sollte ich mir genauer ansehen... Confused Smile Very Happy
  Thema: WorksheetFunction.Max gibt falschen Wert aus 
Phelan XLPH

Antworten: 3
Aufrufe: 190

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Jan 2013, 20:12   Titel: AW: WorksheetFunction.Max gibt falschen Wert aus Version: Office 2003
Zeig den Code.
  Thema: Schleife zum Ausfiltern des größten Wertes je Gruppe ??? 
Phelan XLPH

Antworten: 15
Aufrufe: 253

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Jan 2013, 20:07   Titel: AW: Schleife zum Ausfiltern des größten Wertes je Gruppe ??? Version: Office 2010
Schick, aber recht großer Aufwand.

Kannst du das hier erklären:
Public Function NewEnum() As IUnknown
'Attribute NewEnum.VB_UserMemId = -4
Set NewEnum = mobjMaxValue.[_NewEnum]
End Function
  Thema: besteht eine "Insert" Möglichkeit mit PasteSpezial 
Phelan XLPH

Antworten: 4
Aufrufe: 92

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Jan 2013, 19:08   Titel: AW: besteht eine "Insert" Möglichkeit mit PasteSpe Version: Office 2010
Sub Makro1()
With Selection
Sheets("Tabelle2").Range("A1").Resize(Intersect(.Cells, .Cells(1).EntireColumn).Count + 1).EntireRow.Insert Shift:=xlDown
.Copy
Sheets("Tabelle2").Range("A1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End With
End Sub
  Thema: Schleife zum Ausfiltern des größten Wertes je Gruppe ??? 
Phelan XLPH

Antworten: 15
Aufrufe: 253

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Jan 2013, 18:43   Titel: AW: Schleife zum Ausfiltern des größten Wertes je Gruppe ??? Version: Office 2010
Kannst du ein kleines Beispiel basteln?
  Thema: Schleife zum Ausfiltern des größten Wertes je Gruppe ??? 
Phelan XLPH

Antworten: 15
Aufrufe: 253

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Jan 2013, 18:31   Titel: AW: Schleife zum Ausfiltern des größten Wertes je Gruppe ??? Version: Office 2010
Hallo,

Bei Collection gibts keine Möglichkeit zur Prüfung des Key. Sad
  Thema: besteht eine "Insert" Möglichkeit mit PasteSpezial 
Phelan XLPH

Antworten: 4
Aufrufe: 92

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Jan 2013, 18:03   Titel: AW: besteht eine "Insert" Möglichkeit mit PasteSpe Version: Office 2010
Sub Makro1()
Selection.EntireRow.Copy
Sheets("Tabelle2").Range("A1").Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub
  Thema: ListBox: .Clear vs .List = Array() 
Phelan XLPH

Antworten: 6
Aufrufe: 241

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Jan 2013, 17:57   Titel: AW: ListBox: .Clear vs .List = Array() Version: Office 2010
Halllo,

hier ein Test-Beispiel.
  Thema: ListBox: .Clear vs .List = Array() 
Phelan XLPH

Antworten: 6
Aufrufe: 241

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Jan 2013, 10:49   Titel: ListBox: .Clear vs .List = Array() Version: Office 2010
Hallo liebe Leut,

hab grad rausgefunden, dass das Säubern der Lisbox über .Clear
bei großer Datenmenge seine Zeit benötigt.

Schneller läufts wenn der ListBox eine LEERES Array zugewiesen wird:
ListBox1.List = Array()

Wieso das so ist, weiß ich nicht, aber vielleicht habt ihre eine Idee?!

Smile
 
Seite 76 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 73, 74, 75, 76, 77, 78, 79 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project