Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 344 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 341, 342, 343, 344, 345, 346, 347 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Zeilen mit gleichem Wert in Spalte A in neue Tabellenblätter 
Phelan XLPH

Antworten: 8
Aufrufe: 271

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Dez 2010, 17:11   Titel: AW: Zeilen mit gleichem Wert in Spalte A in neue Tabellenblä Version: Office 2003
Statt:
wsTmp.UsedRange.Copy
das:
wsTmp.UsedRange.Offset(1).Copy
  Thema: Mehrfachverwendung von "Private Sub" 
Phelan XLPH

Antworten: 25
Aufrufe: 1798

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Dez 2010, 17:03   Titel: AW: Mehrfachverwendung von "Private Sub" Version: Office 2003
Wie wärs mit ein Paar Manolo Blahnik?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngCell As Range
Dim rngBereich As Range
Dim bytColor1 As Byte
Dim bytcolor2 As Byte
'
'Überwachungsbereich_1
Set rngBereich = Intersect(Target, Range("M19:BF24"))
If Not rngBereich Is Nothing Then
'
For Each rngCell In rngBereich
Select Case rngCell.Value
Case Is > ""
bytColor1 = 46 'orangener Hintergrund
Case Else
bytColor1 = 36 ' gelber Hintergrund
End Select
'
rngCell.Interior.ColorIndex = bytColor1
rngCell.Font.ColorIndex = bytcolor2
Next rngCell
End If
'
'Überwachungsbereich_2
Set rngBereich = Intersect(Target, Range("M25:BF30"))
If Not rngBereich Is Nothing Then
'
For Each rngCell In rngBereich
Select Case rngCell.Value
Case Is > ""
bytColor1 = 15 'grauer Hinte ...
  Thema: Zeilen einfärben nach Pulldownauswahl 
Phelan XLPH

Antworten: 7
Aufrufe: 224

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Dez 2010, 16:47   Titel: AW: Zeilen einfärben nach Pulldownauswahl Version: Office 2010
dass es nur 3 bed. Formatierungen gibt...?

Du hast doch Excel2010!!!!!!!!!
  Thema: Formeln in der Zelle verschwinden und man sieht nur Werte 
Phelan XLPH

Antworten: 3
Aufrufe: 197

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Dez 2010, 16:42   Titel: AW: Formeln in der Zelle verschwinden und man sieht nur Wert Version: Office 2003
Entferne den Blattschutz und führe den Code aus:
Cells.FormulaHidden = False
  Thema: Einschulungsplan Drag n Drop + benutzerdefinierte Formatieru 
Phelan XLPH

Antworten: 26
Aufrufe: 1629

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Dez 2010, 16:25   Titel: AW: Einschulungsplan Drag n Drop + benutzerdefinierte Format Version: Office 2010
Nun ist eine Überschneidung nicht möglich.
  Thema: Pivottabelle in schreibgeschützten Blatt aktualisieren 
Phelan XLPH

Antworten: 11
Aufrufe: 1292

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Dez 2010, 16:15   Titel: AW: Pivottabelle in schreibgeschützten Blatt aktualisieren Version: Office 2003
ws.Protect "pw"

Geh mit dem Cursor auf Protect und drücke F1:
jetzt siehst du welche Argumente du alles beim Schutz über VBA setzen kannst.

ws.Protect Password:="pw", AllowUsingPivotTables:=True
  Thema: Select Case funktioniert nicht 
Phelan XLPH

Antworten: 15
Aufrufe: 352

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Dez 2010, 15:46   Titel: AW: Select Case funktioniert nicht Version: Office 2007
Set ddef = ....
  Thema: Einschulungsplan Drag n Drop + benutzerdefinierte Formatieru 
Phelan XLPH

Antworten: 26
Aufrufe: 1629

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Dez 2010, 15:26   Titel: AW: Einschulungsplan Drag n Drop + benutzerdefinierte Format Version: Office 2010
Ok.

Zero's Lösung gefällt mir auch ganz gut, aber es werden leider
bei wahl eines 1-stündigen Seminars das darunter liegende mit eingefärbt.

Es kommt somit zu Überschneidung die nicht beachtet werden.

Da wär jetzt die Lösung von Volker ganz praktisch. das sich der nächst
mögliche leer Termin-Beginn neu berechnet.

Hier ist wiederum der Nachteil dass wenn zuerst Einträge im unteren bereich
sich befinden, die bei Neu-Eintrag sich in der Zeit nach hinten verschieben.

Wenn es da nicht zu streitereien kommt Smile Very Happy Laughing
  Thema: Mehrfachverwendung von "Private Sub" 
Phelan XLPH

Antworten: 25
Aufrufe: 1798

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Dez 2010, 15:17   Titel: AW: Mehrfachverwendung von "Private Sub" Version: Office 2003
Also wenns jetzt nicht funktioniert dann schenk ich dir das Paar rotte Schuhe.
Fragt sich nur noch welches Paar?! Laughing

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngCell As Range
Dim bytColor1 As Byte
Dim bytcolor2 As Byte
'
'Überwachungsbereich_1
Set Target = Intersect(Target, Range("M19:BF24"))
If Not Target Is Nothing Then
'
For Each rngCell In Target
Select Case rngCell.Value
Case Is > ""
bytColor1 = 46 'orangener Hintergrund
Case Else
bytColor1 = 36 ' gelber Hintergrund
End Select
'
rngCell.Interior.ColorIndex = bytColor1
rngCell.Font.ColorIndex = bytcolor2
Next rngCell
End If
'
'Überwachungsbereich_2
Set Target = Intersect(Target, Range("M25:BF30"))
If Not Target Is Nothing Then
'
For Each rngCell In Target
Select Case rngCell.Value
Case Is > ""
...
  Thema: Pivottabelle in schreibgeschützten Blatt aktualisieren 
Phelan XLPH

Antworten: 11
Aufrufe: 1292

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Dez 2010, 15:12   Titel: AW: Pivottabelle in schreibgeschützten Blatt aktualisieren Version: Office 2003
Das in "DieseArbeitsmappe"
Private Sub Workbook_Open()
PT_aktualisieren
End Sub

Das in ein StandardModul (z.B. Modul1)
Sub PT_aktualisieren()
Dim ws As Worksheet
Dim pt As PivotTable
For Each ws In ThisWorkbook.Worksheets
If ws.PivotTables.Count Then
ws.Unprotect "pw" 'Passwort anpassen
For Each pt In ws.PivotTables
pt.RefreshTable
Next
ws.Protect "pw" 'Passwort anpassen
End If
Next
End Sub

Alle Blätter müssten dann das gleiche Passwort haben (hier bsp: "pw").
Könnten auch verschiedene sein ist dann aber aufwendiger
  Thema: String in Enum Element umwandeln 
Phelan XLPH

Antworten: 3
Aufrufe: 1113

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Dez 2010, 15:04   Titel: AW: String in Enum Element umwandeln Version: Office 2k (2000)
Nu ja das sind ja auch wd-Konstanten! Befindest sich der Code
in einer Excel- oder Word-Datei?

Falls in Excel und eine Late Binding vorliegt, sind dem excel die wd-Konstanten
von Word nicht bekannt.

Somit ist deine Lösung M.E. gut und nicht anders machbar.
  Thema: Mehrfachverwendung von "Private Sub" 
Phelan XLPH

Antworten: 25
Aufrufe: 1798

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Dez 2010, 14:59   Titel: AW: Mehrfachverwendung von "Private Sub" Version: Office 2003
in der mitte ist noch ein end sub , das muss noch weg,
habs übersehen.
  Thema: Zeilen mit gleichem Wert in Spalte A in neue Tabellenblätter 
Phelan XLPH

Antworten: 8
Aufrufe: 271

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Dez 2010, 14:54   Titel: AW: Zeilen mit gleichem Wert in Spalte A in neue Tabellenblä Version: Office 2003
Hiermit wird der separierte Daten-Bereich in die Zwischenablage kopiert
wsTmp.UsedRange.Copy

Und mit der ClpLesen-Funktion aus der Zwischenablage gelesen und direkt in
die Datei wieder eingelesen.

Open Pfad & ar(i, 1) & ".prn" For Output As #1
Print #1, ClpLesen
Close #1

...viele Wege fürn nach Rom.

Sollte dir der Vorgang zu lange dauern kannst du durch Abschaltung der
Bildschirmaktualisierung das Ganze beschleunigen.
  Thema: Mehrfachverwendung von "Private Sub" 
Phelan XLPH

Antworten: 25
Aufrufe: 1798

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Dez 2010, 14:46   Titel: AW: Mehrfachverwendung von "Private Sub" Version: Office 2003
Hallo Carolina,

nehmen wir an du hast 2 Paar Schuhe. Beide Paare sind rot.
Nun fragst du mich welche du anziehen sollst und ich sage die "roten".

Dennoch weißt du nicht welches Paar ich meine!

Prozedurnamen dürfen nur einmal im Container existieren und müssen daher
eindeutig sein.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngCell As Range
Dim bytColor1 As Byte
Dim bytcolor2 As Byte
'
'Überwachungsbereich_1
Set Target = Intersect(Target, Range("M19:BF24"))
If Target Is Nothing Then Exit Sub
'
For Each rngCell In Target
Select Case rngCell.Value
Case Is > ""
bytColor1 = 46 'orangener Hintergrund

Case Else
bytColor1 = 36 ' gelber Hintergrund
End Select
'
rngCell.Interior.ColorIndex = bytColor1
rngCell.Font.ColorIndex = bytcolor2
Next rngCell
End Sub

'
'Überwachungsbereich_2
Set Target = Intersect(Target, Range("M25:BF30"))
If Target Is Nothing ...
  Thema: Einschulungsplan Drag n Drop + benutzerdefinierte Formatieru 
Phelan XLPH

Antworten: 26
Aufrufe: 1629

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Dez 2010, 14:35   Titel: AW: Einschulungsplan Drag n Drop + benutzerdefinierte Format Version: Office 2010
Schade das immer wieder unprofessionelle Kommentare kommen

Wen meinst du damit?
 
Seite 344 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 341, 342, 343, 344, 345, 346, 347 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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