Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 756 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 753, 754, 755, 756, 757, 758, 759 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Ohne Leerseiten drucken 
Phelan XLPH

Antworten: 1
Aufrufe: 274

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Feb 2009, 20:02   Titel: AW: Ohne Leerseiten drucken Version: Office XP (2002)
Druckbereich musst du doch eh festlegen oder druckst du immer alles,
kannst auch per Makro Druckbereich festlegem und dann drucken.
  Thema: Zeilen löschen + Formatierung vom Typ mm:ss 
Phelan XLPH

Antworten: 4
Aufrufe: 317

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Feb 2009, 19:56   Titel: AW: Zeilen löschen + Formatierung vom Typ mm:ss Version: Office 2007
Tabellenname anpassen einmal wo die daten stehen (Quelle) und einmal
in welches Blatt sie sollen(Ziel)!
  Thema: In TextBox einer Userform nur ganze Zahlen zulassen 
Phelan XLPH

Antworten: 8
Aufrufe: 3771

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Feb 2009, 19:33   Titel: AW: In TextBox einer Userform nur ganze Zahlen zulassen Version: Office 2003
Geht auch bei Event(After Update), er läuft da erst hinein wenn
Textbox verlassen wird.

Oder meinst du vielleicht dass nach jeder eingegebenen Ziffer eine Berechnung
durchgeführt werden soll
  Thema: Hilfe, Schriftgröße ändert sich 
Phelan XLPH

Antworten: 6
Aufrufe: 437

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Feb 2009, 19:25   Titel: AW: Hilfe, Schriftgröße ändert sich Version: Office 2k (2000)
direkt unter den Hyperlink setzen:

wksT.Cells(lngLetzteZeile + 1, 1).Font.Size=12

...müßte so gehen
  Thema: Tabelleblatt als Bild Speichern? 
Phelan XLPH

Antworten: 1
Aufrufe: 266

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Feb 2009, 19:20   Titel: AW: Tabelleblatt als Bild Speichern? Version: Office 97
Das geht nur über nen Umweg.Abbild in Zwischenspeicher.Von da in Chart.von dort als Datei abspeichern.

Folgenden Code mal ausprobieren:
http://vba1.de/vba/101Zellen_als_Bild_speichern.php
  Thema: Preise ersetzen 
Phelan XLPH

Antworten: 8
Aufrufe: 313

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Feb 2009, 19:15   Titel: AW: Preise ersetzen Version: Office 2003
Hallo

Bitte sehr,

Sub EuroInDollar()
Dim rng As Range
Dim zelle As Range
Dim arr As Variant
Dim i As Integer

Dim dblDK As Double

Set rng = ActiveSheet.UsedRange

'DollarKurs
dblDK = 1.35

For Each zelle In rng
If InStr(zelle, "€") > 0 Then
arr = Split(Trim(zelle), " ")
For i = 0 To UBound(arr)
If InStr(arr(i), "€") > 0 Then
arr(i) = Format((Val(Replace(arr(i), ",", ".")) * dblDK), "###0.00") & "$"
Exit For
End If
Next
MsgBox Join(arr, " ")
zelle = Join(arr, " ")
End If
Next

End Sub

Danke für die Rückmeldung im Voraus!
  Thema: Bilder per VBA finden (Worksheets) und kopieren 
Phelan XLPH

Antworten: 5
Aufrufe: 3171

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Feb 2009, 18:10   Titel: AW: Bilder per VBA finden (Worksheets) und kopieren Version: Office 2003
Wenn in den Namen der Bilder "Bild" oder "Grafik" vorkommen, dann
dann ändere den obigen code folgende ab:

For Each s In wks.Shapes
If s.Name Like "*Grafik*" Or _
s.Name Like "*Bild*" Then
s.Copy
wksZ.Paste
End If
Next
  Thema: Grafik komprimieren über Makro 
Phelan XLPH

Antworten: 4
Aufrufe: 601

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Feb 2009, 17:46   Titel: AW: Grafik komprimieren über Makro Version: Office 2003
Du meinst die Größe anpassen?

Shape.Height
Shape.Width
  Thema: zelle neben aktiver zelle ermitteln 
Phelan XLPH

Antworten: 1
Aufrufe: 759

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Feb 2009, 17:42   Titel: AW: zelle neben aktiver zelle ermitteln Version: Office 2007
Target.Offset(0,1) '1.Spalte rechts neben Target
Target.Offset(0,3) '3.Spalte rechts neben Target

Target.Offset(1,0) '1.Zeile unter Target
Target.Offset(5,3) '5. Zeile unter Target und 3.Spalte rechts neben Target

1. Position -> Zeilen
2. Position -> Spalten

negative Zahlen gehen in die entgegengestzte Richting Rolling Eyes
  Thema: Timer abschalten geht nicht! 
Phelan XLPH

Antworten: 8
Aufrufe: 857

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Feb 2009, 17:33   Titel: AW: Timer abschalten geht nicht! Version: Office 2007
Da fallen die meisten dfauf rein: He,he Very Happy

Setzen:
Application.OnTime Now + TimeValue("00:05:00"), "AutoSaveProduktion"

Rücksetzen:
Application.OnTime Now + TimeValue("00:05:00"), "AutoSaveProduktion", , False

Kann auch nicht funktionieren.
Setz- und Rücksetzzeit sind verschiden

SETZZEIT RÜCKSETZTEIT
Now + TimeValue("00:05:00") <> Now + TimeValue("00:05:00")

da das NOW sich ja fortlaufend ändert.

Lösung
Setzzeit einfrieren (also in eine globale Varible speichern) und dann mit der Variablen zurücksetzen.

Dim TimeSet as Date

Setzen:

TimeSet =Now + TimeValue("00:05:00"),
Application.OnTime TimeSet "AutoSaveProduktion"

Rücksetzen:
Application.OnTime TimeSet "AutoSaveProduktion", , False


so klappt dann das Schedule:=False
  Thema: Bilder per VBA finden (Worksheets) und kopieren 
Phelan XLPH

Antworten: 5
Aufrufe: 3171

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Feb 2009, 17:16   Titel: AW: Bilder per VBA finden (Worksheets) und kopieren Version: Office 2003
Hallo ,

Bilder werden alle in Blatt "Bildersammlung" kopiert und
angeordnet. Gegebenenfalls Anpassen

Sub BilderSammeln()
Dim s As Shape
Dim wks As Worksheet
Dim wksZ As Worksheet
Dim dblTop As Double
Dim dblLeft As Double

Application.ScreenUpdating = False
Set wksZ = Worksheets("Bildersammlung") 'Anpassen

'Kopieren
For Each wks In ThisWorkbook.Worksheets
If wks.Name <> wksZ.Name Then
For Each s In wks.Shapes
If LCase(s.AlternativeText) Like "*.jpg" Or _
LCase(s.AlternativeText) Like "*.bmp" Or _
LCase(s.AlternativeText) Like "*.gif" Then
s.Copy
wksZ.Paste
End If
Next
End If
Next

'Anordnung Untereinander
For Each s In wksZ.Shapes
s.Top = dblTop
s.Left = dblLeft
dblTop = dblTop + s.Height
dblLeft = 0
Next
Application.ScreenUpdat ...
  Thema: In TextBox einer Userform nur ganze Zahlen zulassen 
Phelan XLPH

Antworten: 8
Aufrufe: 3771

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Feb 2009, 16:22   Titel: AW: In TextBox einer Userform nur ganze Zahlen zulassen Version: Office 2003
Also ich kann mit dem wert aus der Textbox rechnen:

beispiel:

Private Sub CommandButton1_Click()
MsgBox Format(CInt(TextBox1.Text) * 3.56, "#####0.00")
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57 ' Ascii-Code für Zahlen von 0-9
Case Else
KeyAscii = 0
End Select
End Sub
  Thema: Einfache If-Abfrage - Fenster vorhanden? 
Phelan XLPH

Antworten: 4
Aufrufe: 476

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Feb 2009, 16:12   Titel: AW: Einfache If-Abfrage - Fenster vorhanden? Version: Office 2003
siehe oben!!! 8)
  Thema: In TextBox einer Userform nur ganze Zahlen zulassen 
Phelan XLPH

Antworten: 8
Aufrufe: 3771

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Feb 2009, 15:58   Titel: AW: In TextBox einer Userform nur ganze Zahlen zulassen Version: Office 2003
Ist das eine Frage oder eine lautgedachte Feststellung von dir?
  Thema: Einfache If-Abfrage - Fenster vorhanden? 
Phelan XLPH

Antworten: 4
Aufrufe: 476

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Feb 2009, 15:54   Titel: AW: Einfache If-Abfrage - Fenster vorhanden? Version: Office 2003
Hallo,

Sub HideTecPot()
'Fang den Fehler ab
On Error Resume Next 'Wenn Fehler überspringen
Windows("PPM-Tool.xls:2").Activate
If Err.Number <> 0 Then 'Fehlererkennung
Err.Clear 'Fehler zurücksetzen
Else
ActiveWindow.Close
ActiveWindow.WindowState = xlMaximized
ActiveWindow.Zoom = 70
End If
End Sub

KORREKTUR

...klar kann auch net funzen UND JETZT!!!!
 
Seite 756 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 753, 754, 755, 756, 757, 758, 759 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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