Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 2194 Ergebnisse ergeben.
Seite 81 von 147 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 78, 79, 80, 81, 82, 83, 84 ... 141, 142, 143, 144, 145, 146, 147  Weiter
Index
Autor Nachricht
  Thema: farben ändern 
werni

Antworten: 7
Aufrufe: 197

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Jul 2011, 10:03   Titel: AW: farben ändern Version: Office 2003
Hallo Lisa

Wie schaltest du den diesen CommandButton auf False und wieder zurück? Das läuft bestimmt über andere Button’s. Es geht ja hier nur um die Farbe?

Wenn du im Code den Button auf False stellst, dann in der Zeile darunter

CommandButton1.BackColor = 255 ‚ dann wird er Rot

Den Namen CommandButton1 musst du halt anpassen. Von Vorteil ist auch, wenn man noch sagt wo ist der Button z.B.

UserForm1.CommandButton1.BackColor = 255
oder wenn er auf einem Tabellenblatt liegt
Tabelle3.CommandButton1.BackColor = 255

Gruss werni
  Thema: Kontrollkästchen und Diagramme 
werni

Antworten: 1
Aufrufe: 438

BeitragForum: Excel Auswertungen   Verfasst am: 23. Jul 2011, 05:49   Titel: AW: Kontrollkästchen und Diagramme Version: Office 2007
Hallo Jens

Mit VBA. Wenn Kontrollkästchen einen Hacken hat (aktiviert ist) ist der Wert (Value) = True (Wahr). Umgekehrt ist der Wert = False

Hier der Code:

Private Sub CheckBox1_Click() If CheckBox1.Value = True Then ActiveSheet.ChartObjects("Diagramm 1").Visible = True Else ActiveSheet.ChartObjects("Diagramm 1").Visible = False End If End Sub Private Sub CheckBox2_Click() If CheckBox2.Value = True Then ActiveSheet.ChartObjects("Diagramm 2").Visible = True Else ActiveSheet.ChartObjects("Diagramm 2").Visible = False End If End SubCode eingefügt mit

Du musst CheckBox-Nummer sowie der Diagramm-Name an deine Tabelle anpassen. Mit diesem Code kann auch der Blattschutz aktiviert sein.

Gruss werni
  Thema: farben ändern 
werni

Antworten: 7
Aufrufe: 197

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Jul 2011, 04:33   Titel: AW: farben ändern Version: Office 2003
Hallo Lisa

So

Sub Rot()
CommandButton1.Enabled = False
CommandButton1.BackColor = 255
End Sub
Sub Grün()
CommandButton1.Enabled = True
CommandButton1.BackColor = 65280
End SubCode eingefügt mit

Gruss werni
  Thema: Foto in die Datei einfügen 
werni

Antworten: 6
Aufrufe: 169

BeitragForum: Excel Hilfe   Verfasst am: 22. Jul 2011, 19:40   Titel: AW: Foto in die Datei einfügen Version: Office 2007
Hallo Bernd

Also wird das Bild im VBA-Explorer
Shapes("Picture 2")
heissen

Plaziere das Bild dahin wo es auch gehört. Also in die richtige Tabelle an der richtigen Zelle.

Den Tabellenamen und den Picturename im Makro anpassen.

Kannst hier mal Testen. Der Code ist hier nicht im Workbook_Open, sondern simuliert den 24.12.2010 via Button

Edit:
Die Makros funktioniern nur wenn die Datei auf den PC geladen worden ist.

Gruss werni
  Thema: Foto in die Datei einfügen 
werni

Antworten: 6
Aufrufe: 169

BeitragForum: Excel Hilfe   Verfasst am: 22. Jul 2011, 18:43   Titel: AW: Foto in die Datei einfügen Version: Office 2007
Hallo Bernd

Die Picture im Excel kann nicht mehr eine JPG sein.

Teste mal was der Recorder schreibt.

Recorder anwerfen (Aufzeichen), das Bild anklicken und Aufzeichnung beenden.

Im VBA-Explorer steht jetzt z.B.
ActiveSheet.Shapes("Picture 1").Select

Das "Picture 1" ist dann der Bildname.

Anstatt Tabelle1 kannst du auch
Sheets("Tabelle1")
schreiben, natürlich so wie die Tabelle benannt ist. Die muss nicht ausgewählt werden und kann auch mit Blattschutz versehen sein.

Noch ein Frage:
Soll das Bild nur am 24.12. gezeigt werden, oder 2 bis 3 Tage nacher auch noch?

Gruss werni
  Thema: Foto in die Datei einfügen 
werni

Antworten: 6
Aufrufe: 169

BeitragForum: Excel Hilfe   Verfasst am: 22. Jul 2011, 17:42   Titel: AW: Foto in die Datei einfügen Version: Office 2007
Hallo Bernd

Mit Workbook_open

Private Sub Workbook_Open() If Date = DateSerial(Year(Date), 12, 24) Then Tabelle1.Shapes("Picture 1").Visible = True Else Tabelle1.Shapes("Picture 1").Visible = False End If End SubCode eingefügt mit

Zeigt das Bild nur am 24.12.

Gruss werni
  Thema: Stoppuhr Änderung 
werni

Antworten: 15
Aufrufe: 715

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Jul 2011, 16:32   Titel: AW: Stoppuhr Änderung Version: Office 2010
@Isabelle Smile

Und wenn wir das haben, was kommt dann als nächstes? Also bitte keine Salamitechnik, vorher überlegen was am Ende raus kommen soll.
Hast recht gehabt. Ist ja meistens so, dass der Helfer ein Seher sein soll.

Hallo John

Das sollte eigentlich jetzt deinen Wünschen entsprechen.
Da der Projektexplorer nicht geschützt ist, kannst du dich mal schlau machen und versuchen Änderungen oder Erneuerungen selbst zu basteln. Natürlich immer zuerst auf einer Kopie.

Gruss werni
  Thema: Stoppuhr Änderung 
werni

Antworten: 15
Aufrufe: 715

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. Jul 2011, 17:49   Titel: AW: Stoppuhr Änderung Version: Office 2010
Hallo John

Ich hätte da etwas, ist aber auf Excel2003 erstellt worden. Da die Codes in einem normalen Modul sind, sollte die Datei auf den PC geladen werden.

Soll beim öffnen der Datei die UF gestarete werden, dann im Modul DieseArbeitsmappe Workbook_Open aktivieren.

Gruss werni
  Thema: VBA/Excel_Erinnerungen (Msg.Box) 
werni

Antworten: 3
Aufrufe: 200

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Jul 2011, 14:21   Titel: AW: VBA/Excel_Erinnerungen (Msg.Box) Version: Office 2003
Hallo Bernd

Schau mal diese Codes an

http://www.office-loesung.de/ftopic471961_0_0_asc.php

Gruss werni
  Thema: VBA-Kalender/Zellenformatierung 
werni

Antworten: 3
Aufrufe: 203

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Jul 2011, 14:16   Titel: AW: VBA-Kalender/Zellenformatierung Version: Office 2003
Hallo Calle

Du hast doch bestimmt auch ein Datum ein deinem Kalender?
Welche Zeile?

Beispiel in Zeile 3 ist das Datum, dann

If ActiveSheet.Weekday(Cells(3, i), 2) > 5 Then
ActiveSheet.Cells(2, i).ColumnWidth = 1.5 'Hier die Breite als Zahl
ActiveSheet.Cells(1, i).EntireColumn.Font.Size = 6.25
ActiveSheet.Cells(24, i) = ""
End If

Ansonsten mal Datei hochladen.

Gruss werni
  Thema: Spalten ausblenden 
werni

Antworten: 2
Aufrufe: 513

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Jul 2011, 14:02   Titel: AW: Spalten ausblenden Version: Office 2003
Hallo Pupkopf

Das ist auch falsch
End(x1toleft).Column

es müsste heissen
End(xlToLeft).Column

Also XL nicht X1 (eins)

Gruss werni
  Thema: Zellen auslesen 
werni

Antworten: 2
Aufrufe: 159

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Jul 2011, 13:35   Titel: AW: Zellen auslesen Version: Office 2003
Hallo Supi

range("a2")=range("a2") & "NEU"

Gruss werni
  Thema: Erinnerung 
werni

Antworten: 15
Aufrufe: 586

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Jul 2011, 13:02   Titel: AW: Erinnerung Version: Office XP (2002)
Hallo Chris

Aber diesmal ist es richtig.
Fünf Tage vor Monatsende bis zum 5. des aktuellen Monats.

Private Sub Workbook_Open()
If Date < DateSerial(Year(Date), Month(Date), 5) Or _
Date > DateSerial(Year(Date), Month(Date) + 1, 1) - 6 Then
MsgBox "Achtung Erinnerung: Monatliche Sicherung und UST-Erklärung nicht vergessen !"
End If
End Sub

@Gandalf
Das mit And ist nicht richtig. Es muss Or heissen

Gruss werni
  Thema: Erinnerung 
werni

Antworten: 15
Aufrufe: 586

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Jul 2011, 12:34   Titel: AW: Erinnerung Version: Office XP (2002)
Hallo Chris

Dann mal so!

Private Sub Workbook_Open()
If Date > (DateSerial(Year(Date), Month(Date) + 1, 5)) - 10 Then
MsgBox "Achtung Erinnerung: Monatliche Sicherung und UST-Erklärung nicht vergessen !"
End If
End Sub

Gruss werni
  Thema: Erinnerung 
werni

Antworten: 15
Aufrufe: 586

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Jul 2011, 12:16   Titel: AW: Erinnerung Version: Office XP (2002)
Hallo Chris

So?

Private Sub Workbook_Open()
If Date > (DateSerial(Year(Date), Month(Date) + 1, 1) - 1) - 5 Then
MsgBox "Achtung Erinnerung: Monatliche Sicherung und UST-Erklärung nicht vergessen !"
End If
End Sub

Gib mal zum testen -12 ein anstatt -5

Gruss werni
 
Seite 81 von 147 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 78, 79, 80, 81, 82, 83, 84 ... 141, 142, 143, 144, 145, 146, 147  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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