Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 82 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 79, 80, 81, 82, 83, 84, 85 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: zufälliges Bild aus Ordner in Zelle einfügen 
Phelan XLPH

Antworten: 6
Aufrufe: 169

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Jan 2013, 08:10   Titel: AW: zufälliges Bild aus Ordner in Zelle einfügen Version: Office 2007
...das lag am "*einst*.*"

Option Explicit


Dim vntPictures As Variant

Public Sub Leistungskarten()
Dim strPath As String
Dim strFile As String
Dim objCell As Range
Dim objPicture As Picture
Dim intCount As Integer

strPath = "C:\Users\Boss\Pictures\" 'Anpassen *****

If IsEmpty(vntPictures) Then
ReDim vntPictures(0)
strFile = Dir(strPath & "*.*")
Do While strFile <> ""
Select Case LCase(Right(strFile, 3))
Case "jpg", "bmp", "gif"
ReDim Preserve vntPictures(intCount)
vntPictures(intCount) = strFile
intCount = intCount + 1
End Select
strFile = Dir()
Loop

If intCount = 0 Then
MsgBox "keine Bild ...
  Thema: Fehler im Array 
Phelan XLPH

Antworten: 10
Aufrufe: 134

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Jan 2013, 08:01   Titel: AW: Fehler im Array Version: Office 2007
Arrays sind nicht Allerheilsmittel, hier ist die Ersetzen-Methode zu bevorzugen.
  Thema: Zeilen Filter gem. Kriterium 
Phelan XLPH

Antworten: 10
Aufrufe: 167

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Jan 2013, 07:57   Titel: AW: Zeilen Filter gem. Kriterium Version: Office 2010
Hallo,

so in etwa
  Thema: Telnummern formatieren 
Phelan XLPH

Antworten: 8
Aufrufe: 149

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2013, 18:18   Titel: AW: Telnummern formatieren Version: Office 2010
Nimm Rudi's Code.
  Thema: DocumentProperties(""). prüfen ob vorhanden 
Phelan XLPH

Antworten: 9
Aufrufe: 195

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2013, 17:47   Titel: AW: DocumentProperties(""). prüfen ob vorhanden Version: Office 2010
Ok jetzt hab ich es verstanden:

Das müsste laufen in deinem Code:
If objWorkbook.BuiltinDocumentProperties("Category").Value = 0 Then
  Thema: DocumentProperties(""). prüfen ob vorhanden 
Phelan XLPH

Antworten: 9
Aufrufe: 195

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2013, 17:35   Titel: AW: DocumentProperties(""). prüfen ob vorhanden Version: Office 2010
Ich kenne nur CustomDP und BuiltInDP.

Diese Unterscheidung muss bei Function-Aufruf mitegegeben werden:
If IsDocumentPropertyExists(.Parent, "Category", True) Then >> bei Custom
If IsDocumentPropertyExists(.Parent, "Category", False) Then >> bei BuiltIn
  Thema: Code mit Haltepunkt funktioniert, ohne nicht 
Phelan XLPH

Antworten: 7
Aufrufe: 156

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2013, 16:56   Titel: AW: Code mit Haltepunkt funktioniert, ohne nicht Version: Office 2007
..sehe keinen Code. Bin kein Hellseher.
  Thema: DocumentProperties(""). prüfen ob vorhanden 
Phelan XLPH

Antworten: 9
Aufrufe: 195

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2013, 16:48   Titel: AW: DocumentProperties(""). prüfen ob vorhanden Version: Office 2010
in welcher Zeile? was wird markiert?

EDIT:

Sub x()
With ThisWorkbook.CustomDocumentProperties
If IsDocumentPropertyExists(.Parent, "Category", True) Then
MsgBox .Item("Category").Value = 0
Else
MsgBox "CDP 'Category' existiert in dieser Datei nicht!"
End If
End With
End Sub

Function IsDocumentPropertyExists(wb As Workbook, sDpName As String, blnCustomDP As Boolean) As Boolean
On Error Resume Next
If blnCustomDP Then
IsDocumentPropertyExists = _
Not wb.CustomDocumentProperties(sDpName) Is Nothing
Else
IsDocumentPropertyExists = _
Not wb.BuiltinDocumentProperties(sDpName) Is Nothing
End If
On Error GoTo 0
End Function
  Thema: suche Makro f.Zeilen einfügen, kopieren, Werte transponieren 
Phelan XLPH

Antworten: 11
Aufrufe: 516

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2013, 16:43   Titel: AW: suche Makro f.Zeilen einfügen, kopieren, Werte transponi Version: Office 2010
Also, ich sehe da keinen Unterschied... Confused
  Thema: DocumentProperties(""). prüfen ob vorhanden 
Phelan XLPH

Antworten: 9
Aufrufe: 195

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2013, 16:00   Titel: AW: DocumentProperties(""). prüfen ob vorhanden Version: Office 2010
If objWorkbook.CustomDocumentProperties("Category").Value = 0 Then

...vorausgesetzt die zu öffnende Datei besitzt eine CDP mit dem Namen 'Category'.

EDIT:

hier noch eine Möglichkeit um es prüfen ob eine CDP mit dem Namen existiert:

Sub x()
With ThisWorkbook.CustomDocumentProperties
If IsDocumentPropertyExists("Category", True) Then
MsgBox .Item("Category").Value = 0
Else
MsgBox "CDP 'Category' existiert in dieser Datei nicht!"
End If
End With
End Sub
Function IsDocumentPropertyExists(sDpName As String, blnCustomDP As Boolean) As Boolean
On Error Resume Next
With ThisWorkbook
If blnCustomDP Then
IsDocumentPropertyExists = _
Not .CustomDocumentProperties(sDpName) Is Nothing
Else
IsDocumentPropertyExists = _
Not .BuiltinDocumentProperties(sDpN ...
  Thema: Farbe zählen nach Spalte auf mehreren Sheets 
Phelan XLPH

Antworten: 31
Aufrufe: 428

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2013, 15:42   Titel: AW: Farbe zählen nach Spalte auf mehreren Sheets Version: Office 2007
Scheint ein AdressProblem zu geben:

Function SummeProdukt_Spezial(DatenBereich As Range, KriterienBereich As Range, n)
Dim i As Long, sumX, sFormel As String
Dim D_Adr As String, K1_Adr As String
Dim K2_Adr As String, K3_Adr As String

D_Adr = DatenBereich.Parent.Name & "!" & DatenBereich.Address
K1_Adr = KriterienBereich.Parent.Name & "!" & KriterienBereich.Columns(1).Address
K2_Adr = KriterienBereich.Parent.Name & "!" & KriterienBereich.Columns(2).Address
K3_Adr = KriterienBereich.Parent.Name & "!" & KriterienBereich.Columns(3).Address

For i = 0 To n
With KriterienBereich
sFormel = _
"(" & D_Adr & ">=" & K2_Adr & "-" & i & "*" & K3_Adr & "-" & K1_Adr & ")*" & _
...
  Thema: Farbe zählen nach Spalte auf mehreren Sheets 
Phelan XLPH

Antworten: 31
Aufrufe: 428

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2013, 15:33   Titel: AW: Farbe zählen nach Spalte auf mehreren Sheets Version: Office 2007
"#Name?" bedeutet dass der Funktionsname nicht bekannt ist!

Die Funktion muss in ein StanardModul zB. Modul1!!!!!!!!!!!!!!!
  Thema: Farbe zählen nach Spalte auf mehreren Sheets 
Phelan XLPH

Antworten: 31
Aufrufe: 428

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2013, 15:17   Titel: AW: Farbe zählen nach Spalte auf mehreren Sheets Version: Office 2007
Cool
  Thema: Farbe zählen nach Spalte auf mehreren Sheets 
Phelan XLPH

Antworten: 31
Aufrufe: 428

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2013, 14:50   Titel: AW: Farbe zählen nach Spalte auf mehreren Sheets Version: Office 2007
Hallo,

hier mal eine UDF:
Function SummeProdukt_Spezial(DatenBereich As Range, KriterienBereich As Range, n)
Dim i As Long, sumX, sFormel As String
Dim D_Adr As String, K1_Adr As String
Dim K2_Adr As String, K3_Adr As String

D_Adr = DatenBereich.Address(, , , 1)
K1_Adr = KriterienBereich.Columns(1).Address(, , , 1)
K2_Adr = KriterienBereich.Columns(2).Address(, , , 1)
K3_Adr = KriterienBereich.Columns(3).Address(, , , 1)

For i = 0 To n
With KriterienBereich
sFormel = _
"(" & D_Adr & ">=" & K2_Adr & "-" & i & "*" & K3_Adr & "-" & K1_Adr & ")*" & _
"(" & D_Adr & "<=" & K2_Adr & "-" & i & "*" & K3_Adr & ")"
...
  Thema: Farbe zählen nach Spalte auf mehreren Sheets 
Phelan XLPH

Antworten: 31
Aufrufe: 428

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2013, 14:24   Titel: AW: Farbe zählen nach Spalte auf mehreren Sheets Version: Office 2007
Ist das richtig, alle Regeln haben als Formatierung eien blaue Zellfärbung?
 
Seite 82 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 79, 80, 81, 82, 83, 84, 85 ... 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