Hajo's Excelzeiten mit einer umfangreiche Beispielsammlung zum kostenfreien Download. 
			Sowohl Formellösungen als auch Beispiele für die Makroprogrammierung in Excel.
Home
VBA Beispiele

  Allgemein
  Bilder einfügen
  blinkender Zellinhalt
  Counter
  Datei schließen
  Dateikopie
  Dateiverwaltung
  Datensätze umschreiben
  Datum / Zeit
  DropDown-Listenfeld
  Drucken
  Ersatz bedingte Formatierung
  Füllfarbe
  Kontextmenü
  Markieren
  nur mit Makros
  Sound
  Stoppuhr
  Symbolleiste Formular
  Symbolleiste vor 2007
  Symbolleiste ab 2007
  UserForm

ohne VBA Beispiele
fremde Dateien
Hinweise zu Excel ab Version 2007
Übersicht Downloads
Bilder
Kontakt
Favoriten
Mein Heim-Forum
Tools Tabelle Forum
Impressum
Copyright
Disclaimer

letzte Bearbeitung 08.11.17

Valid XHTML 1.0 Strict CSS ist valide!
Bing
Suchmaschinenoptimierung mit Ranking-Hits



' **************************************************************
'  Modul:  Tabelle1  Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************

Option Explicit                                     ' Variablenmdefinition erforderlich

Private Sub Worksheet_Change(ByVal Target As Range)
    '***********************************************
    '* H. Ziplies                                  *
    '* 05.08.09                                    *
    '* erstellt von HajoZiplies@WEB.de             *
    '* http://Hajo-Excel.de                        *
    '***********************************************
    If Target.Address = "$A$6" Then
        If Target = 1 Then
            ActiveSheet.Shapes("Schaltfläche 1").OLEFormat.Object.Caption = _
                "1. Beschriftung"
        ElseIf Target = 2 Then
            ActiveSheet.Shapes("Schaltfläche 1").OLEFormat.Object.Caption = _
                "2. Beschriftung"
        Else
            ActiveSheet.Shapes("Schaltfläche 1").OLEFormat.Object.Caption = ""
        End If
    End If
End Sub

Code eingefügt mit: Excel Code Jeanie, angepasst an XHTML