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

Antworten: 8
Aufrufe: 235

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. März 2011, 17:13   Titel: AW: Zellfarbe mit Makros Version: Office 2003
Do Until p > 37
  Thema: Summen bilden, wenn die 3. Spalte gleich ist 
Phelan XLPH

Antworten: 9
Aufrufe: 236

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. März 2011, 17:10   Titel: AW: Summen bilden, wenn die 3. Spalte gleich ist Version: Office 2003
optimiert:

Sub Makro_PH()
Dim lz As Long
Dim lz2 As Long

'Letzte gefüllte Zelle in SpaltA ermitteln
lz = Cells(Rows.Count, 1).End(xlUp).Row

'Ausgabezeile setzen (letzetZeile +4)
lz2 = lz + 4

'Bereich [A(Ausgabezeile):Z(gesamtanzahlBlattzeilen)] säubern
Range("A" & lz + 1 & ":Z" & Rows.Count).ClearContents

'Mit dem Spezialfilter aus Spalte C [C3:C(lz)] Unikate nach Ausgabeposition kopieren [C(lz2)]
Range("C3:C" & lz).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("C" & lz2 - 1), Unique:=True
With Range("C" & lz2 - 1, Range("C" & lz2 - 1).End(xlDown))
'Unikate-bereich sortieren
.Sort .Cells(1), xlAscending, Header:=xlYes
...
  Thema: Summen bilden, wenn die 3. Spalte gleich ist 
Phelan XLPH

Antworten: 9
Aufrufe: 236

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. März 2011, 16:55   Titel: AW: Summen bilden, wenn die 3. Spalte gleich ist Version: Office 2003
Sub Makro_PH()
Dim lz As Long
Dim lz2 As Long

'Letzte gefüllte Zelle in SpaltA ermitteln
lz = Cells(Rows.Count, 1).End(xlUp).Row

'Ausgabezeile setzen (letzetZeile +4)
lz2 = lz + 4

'Bereich [A(Ausgabezeile):Z(gesamtanzahlBlattzeilen)] säubern
Range("A" & lz2 & ":Z" & Rows.Count).ClearContents

'Mit dem Spezialfilter aus Spalte C [C3:C(lz)] Unikate nach Ausgabeposition kopieren [C(lz2)]
Range("C3:C" & lz).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("C" & lz2 - 1), Unique:=True
With Range("C" & lz2 - 1, Range("C" & lz2 - 1).End(xlDown))
'Unikate-bereich sortieren
.Sort .Cells(1), xlAscending, Header:=xlYes
'Unikate-Be ...
  Thema: Umkehrung für Format / Text Funktion 
Phelan XLPH

Antworten: 17
Aufrufe: 647

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. März 2011, 16:32   Titel: AW: Umkehrung für Format / Text Funktion Version: Office 2007
und wie willst du dann 13 Stunden von 13 Tagen unterscheiden?
  Thema: Doppelte Zeilen automatisch löschen 
Phelan XLPH

Antworten: 15
Aufrufe: 1088

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. März 2011, 16:26   Titel: AW: Doppelte Zeilen automatisch löschen Version: Office 2010
Ja falls du noch eine Überschrift einfügen möchtest.
  Thema: Datenbereich zu komplex - if not greift nicht 
Phelan XLPH

Antworten: 1
Aufrufe: 737

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. März 2011, 16:14   Titel: AW: Datenbereich zu komplex - if not greift nicht Version: Office 2007
Benutze den Spezialfilter
  Thema: Doppelte Zeilen automatisch löschen 
Phelan XLPH

Antworten: 15
Aufrufe: 1088

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. März 2011, 15:23   Titel: AW: Doppelte Zeilen automatisch löschen Version: Office 2010
du benötigst ein zusätzliches Blatt mit dem Namen "Test".

ersetze das:
On Error Resume Next
.SpecialCells(xlCellTypeConstants, xlLogical).EntireRow.Delete
On Error GoTo 0durch das:
On Error Resume Next
With .SpecialCells(xlCellTypeConstants, xlLogical)
Intersect(Range(.Parent.Columns(1), .Parent.Columns(.Column - 1)), .EntireRow).Copy _
Worksheets("Test").Range("A2")
End With
.SpecialCells(xlCellTypeConstants, xlLogical).EntireRow.Delete
On Error GoTo 0
  Thema: Ini auslesen und Werte in eine ListBox übertragen 
Phelan XLPH

Antworten: 15
Aufrufe: 824

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. März 2011, 15:05   Titel: AW: Ini auslesen und Werte in eine ListBox übertragen Version: Office 2007
teste es doch, müsste funktionieren, wenn auch etwas kompliziert.
  Thema: Umkehrung für Format / Text Funktion 
Phelan XLPH

Antworten: 17
Aufrufe: 647

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. März 2011, 15:04   Titel: AW: Umkehrung für Format / Text Funktion Version: Office 2007
Du sollst auch die 11 oder 13 eintragen nur musst du diese dasnn durch 24
dievidieren um die Kommazahl zu erhalten.
  Thema: Doppelte Zeilen automatisch löschen 
Phelan XLPH

Antworten: 15
Aufrufe: 1088

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. März 2011, 14:51   Titel: AW: Doppelte Zeilen automatisch löschen Version: Office 2010
Wenn du einen Filter gesetzt hast dann deaktiviere diesen.
  Thema: Doppelte Zeilen automatisch löschen 
Phelan XLPH

Antworten: 15
Aufrufe: 1088

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. März 2011, 14:15   Titel: AW: Doppelte Zeilen automatisch löschen Version: Office 2010
J genau ich bekomme auch das Ergebnis. In Spalte E wird nach doppelten gesucht
und gefunden und gelöscht.
  Thema: Summen bilden, wenn die 3. Spalte gleich ist 
Phelan XLPH

Antworten: 9
Aufrufe: 236

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. März 2011, 13:56   Titel: AW: Summen bilden, wenn die 3. Spalte gleich ist Version: Office 2003
Spezialfilter + Formel-Funktionen:

Sub Makro_PH()
Dim lz As Long
Dim lz2 As Long

lz = Cells(Rows.Count, 1).End(xlUp).Row

lz2 = lz + 4

Range("A" & lz2 & ":Z" & Rows.Count).ClearContents


Range("C3:C" & lz).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("C" & lz2 - 1), Unique:=True
With Range("C" & lz2 - 1, Range("C" & lz2 - 1).End(xlDown))
.Sort .Cells(1), xlAscending, Header:=xlYes
.Cells(1).ClearContents
.ClearFormats
End With

With Range("C" & lz2, Range("C" & lz2).End(xlDown))
.Offset(, 2).Resize(, 4).FormulaR1C1 = "=SUMIF(R4C3:R41C3,RC3,R4C:R41C)"
.Offset(, 6) ...
  Thema: Umkehrung für Format / Text Funktion 
Phelan XLPH

Antworten: 17
Aufrufe: 647

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. März 2011, 13:53   Titel: AW: Umkehrung für Format / Text Funktion Version: Office 2007
=11/24

Da ein tag 24/24 tel sind einfach die 11 durch 24 teilen.
  Thema: Hilfe bei Vergleich 
Phelan XLPH

Antworten: 3
Aufrufe: 161

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. März 2011, 13:19   Titel: AW: Hilfe bei Vergleich Version: Office 2003
Jeweils die User-IDs miteinander vergleichen und dann muss ich 5 dahinter stehende Parameter vergleichen.

Wie sehen diese User-Ids mit den 5 parametern aus? Ist alles in einer Zelle?
  Thema: Umkehrung für Format / Text Funktion 
Phelan XLPH

Antworten: 17
Aufrufe: 647

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. März 2011, 13:12   Titel: AW: Umkehrung für Format / Text Funktion Version: Office 2007
versteh ich nicht.
 
Seite 287 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 284, 285, 286, 287, 288, 289, 290 ... 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 Word Serienbriefe