Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 543 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 540, 541, 542, 543, 544, 545, 546 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: bestimmte zellen löschen 
Phelan XLPH

Antworten: 7
Aufrufe: 224

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Sep 2009, 17:16   Titel: AW: bestimmte zellen löschen Version: Office 2003
Robert, s. oben!
  Thema: bestimmte zellen löschen 
Phelan XLPH

Antworten: 7
Aufrufe: 224

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Sep 2009, 16:51   Titel: AW: bestimmte zellen löschen Version: Office 2003
Hallo Robert,

Sub x()
Dim i As Long, k As Integer
Dim arr As Variant, rng As Range

Set rng = Range("C1:C" & Cells(Rows.Count, 3).End(xlUp).Row)
arr = rng
For i = 1 To UBound(arr)
For k = 1 To UBound(arr, 2)
If IsNumeric(arr(i, k)) Then _
If arr(i, k) < 7000000000# Then _
arr(i, k) = ""
Next
Next
rng = arr
End Sub

Korrektur
  Thema: Youtube Video abspielen 
Phelan XLPH

Antworten: 11
Aufrufe: 1464

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Sep 2009, 22:11   Titel: AW: Youtube Video abspielen Version: Office 2003
Kann ich den obigen Code irgendwie unterbrechen?

Sonst muss ich alle Videso durchlaufen lassen.?!
  Thema: Youtube Video abspielen 
Phelan XLPH

Antworten: 11
Aufrufe: 1464

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Sep 2009, 21:21   Titel: AW: Youtube Video abspielen Version: Office 2003
Danke euch beiden Smile

@Rosch, tut leider nicht >> Fullscrean (Player) deaktiviert, unscharf und
HQ-Button verschwunden....genau das Gegenteil.

Aber Egal, so scharf muss es auch nicht unbedingt sein.

Danke nochmals an euch beide.

@Rosch, danke für die Anregung.
  Thema: Zeilen in Spalte(n) auflisten 
Phelan XLPH

Antworten: 30
Aufrufe: 1777

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Sep 2009, 21:11   Titel: AW: Zeilen in Spalte(n) auflisten Version: Office 2003
teste mal:

Sub phelan()
Dim arr As Variant
Dim arrOut() As Variant
Dim Dic As Object
Dim DicLeerZeile As Object
Dim LeerZeile As Long
Dim LeerZeileMerk As Variant
Dim i As Long, k As Long
Dim m As Long

Set Dic = CreateObject("Scripting.Dictionary")
Set DicLeerZeile = CreateObject("Scripting.Dictionary")

With Tabelle1.Range("A1").CurrentRegion
arr = .Offset(1).Resize(.Rows.Count - 1)
End With

For i = 1 To UBound(arr)
If UBound(arr, 2) > 3 Then
For k = 4 To UBound(arr, 2)
Dic(arr(i, 1) & "#" & arr(i, 2) & "#" & arr(i, 3)) = _
Dic(arr(i, 1) & "#" & arr(i, 2) & "#" & arr(i, 3)) & ";" & arr(i, k)
Next
End If
Next

LeerZeile = 1
m = -2
...
  Thema: excel vba pfad zerlegen um Dateien zu schließen 
Phelan XLPH

Antworten: 8
Aufrufe: 3961

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Sep 2009, 19:34   Titel: AW: excel vba pfad zerlegen um Dateien zu schließen Version: Office 2003
hai Maik.

so?!

Workbooks(Dir(zelle.Value)).Close
  Thema: Youtube Video abspielen 
Phelan XLPH

Antworten: 11
Aufrufe: 1464

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Sep 2009, 19:31   Titel: AW: Youtube Video abspielen Version: Office 2003
Danke anton,

mit dem I-Net-Codes hab ichs noch nicht so.

Gefällt mir sehr gut. Eine Kleinigkeit noch. Wenn
das Bild in Fullscreen ist, was ja auch sein soll, ist das Bild etwas
unscharf. Klick auf "HQ" (HighQuality nehme ich mal an) ist das
Bild richtig scharf.

Kann man das auch noch per VBA realisieren oder ist das was
Web-Code-Technisches (XML denke ich)?

Weiss nicht was da so alles möglich ist?

Ich sollte mich mit dem Thema mehr beschäftigen...
Für Links zu Infos wäre ich dankbar.
  Thema: Youtube Video abspielen 
Phelan XLPH

Antworten: 11
Aufrufe: 1464

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Sep 2009, 14:24   Titel: AW: Youtube Video abspielen Version: Office 2003
hoch mit mir Very Happy
  Thema: Daten sortieren mit mehr als 3 Kriterien ??? 
Phelan XLPH

Antworten: 26
Aufrufe: 2665

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Sep 2009, 13:20   Titel: AW: Daten sortieren mit mehr als 3 Kriterien ??? Version: Office XP (2002)
Smile zum Abschluss:funktionierts denn jetzt?
  Thema: Daten sortieren mit mehr als 3 Kriterien ??? 
Phelan XLPH

Antworten: 26
Aufrufe: 2665

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Sep 2009, 12:42   Titel: AW: Daten sortieren mit mehr als 3 Kriterien ??? Version: Office XP (2002)
In einem Label geht das mit Wingdings3 und einem u. Nicht aber im Command-Button

...in XL2007 geht das schon. Spielt auch keine Rolle.
Nimm halt ">>" (2*größer-Zeichen).

Im RefEdit-Feld erhalte ich immer eine Adresse Tabelle1'!$A$1:$F$27 angezeigt

Mein Ref-Edit schluckt anscheinend das "'".

Nun das kommt daher, dass ich die gesamte Adresse beschneide
RefEdit1.Value = Split(Bereich.Address(, , , True), "]")(1)

Bau ein Replace ein, um den Apostroph zu löschen
RefEdit1.Value = Split(Replace(Bereich.Address(, , , True),"'",""), "]")(1)
  Thema: Manche Zellen löschen 
Phelan XLPH

Antworten: 2
Aufrufe: 197

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Sep 2009, 12:29   Titel: AW: Manche Zellen löschen Version: Office 2k (2000)
Sub x()
Dim Suchwerte As Variant
Dim rngBereich As Range
Dim rngF As Range
Dim rngDel As Range
Dim i As Integer

Suchwerte = Array("123", "*345*", "789") 'Erweiterbar

Set rngBereich = Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row)

With rngBereich
'.Sort .Cells(1)
For i = 0 To UBound(Suchwerte)
Set rngF = .Find(Suchwerte(i), , xlValues, xlWhole)
If Not rngF Is Nothing Then
If rngDel Is Nothing Then
Set rngDel = .ColumnDifferences(rngF)
Else
Set rngDel = Intersect(rngDel, .ColumnDifferences(rngF))
End If
End If
Next
End With

If Not rngDel Is Nothing Then _
rngDel.EntireRow.Delete
End Sub
  Thema: Youtube Video abspielen 
Phelan XLPH

Antworten: 11
Aufrufe: 1464

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Sep 2009, 12:23   Titel: AW: Youtube Video abspielen Version: Office 2003
Nein.

Muss unsere Delegation bei einer Einweihung "leicht" unterhalten.
Da dachte ich ich spiel ein paar Viedeos aus Youtube von "Dodokay" ab.

Den aufruf hab ich als Ansatz:

Sub x()
Worksheets(1).Hyperlinks(1).Follow
End Sub

Sub HypSet()
Tabelle1.Hyperlinks.Add Range("E4"), "http://www.youtube.com/watch_popup?v=eF3qxtO70Zw", , , "Obama"
Tabelle1.Hyperlinks.Add Range("E5"), "http://www.youtube.com/watch_popup?v=l4xCKsfLA_8", , , "Jogi Löw"
End Sub
  Thema: Youtube Video abspielen 
Phelan XLPH

Antworten: 11
Aufrufe: 1464

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Sep 2009, 12:09   Titel: AW: Youtube Video abspielen Version: Office 2003
"hoch klettern"
  Thema: Youtube Video abspielen 
Phelan XLPH

Antworten: 11
Aufrufe: 1464

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Sep 2009, 10:06   Titel: Youtube Video abspielen Version: Office 2003
Hallo Leut,

hab eine dringende Herausforderung bei der ihr mir vielleicht helfen könntet.

Ich möchte ausgewählte Youtube-Videos in Vollbild abspielen in einer Schleife
abspielen lassen (ca. 1 Stunde lang).


Wie lässt sich sowas realisieren? Hat da jemand ne Idee?

Erster Ansatz
habs mit folgendem Link versucht:
=HYPERLINK("http://www.youtube.com/watch_popup?v=eF3qxtO70Zw";"Obama")

...ist nicht so das Wahre.

Hat einer der Profis eine Idee?
  Thema: Makro: Zeilen loeschen in denen nicht... 
Phelan XLPH

Antworten: 7
Aufrufe: 315

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Sep 2009, 08:56   Titel: AW: Makro: Zeilen loeschen in denen nicht... Version: OpenOffice/StarOffice
@Peter, okidoki.

Kenne mich mit OO nicht aus, dachte ist nicht Makro-fähig, hatte ich
irgendwo mal was gelesen. Ich selber hab XL2007
 
Seite 543 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 540, 541, 542, 543, 544, 545, 546 ... 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 Excel-Formeln