Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
Screenshot zu CommandButton	CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema OptionButton
Screenshot zu OptionButton	OptionButton-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema ScrollBar
Screenshot zu ScrollBar	ScrollBar-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema SpinButton
Screenshot zu SpinButton	SpinButton-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema TextBox
Screenshot zu TextBox	TextBox-Seite mit Beispielarbeitsmappe aufrufen

Buchstabe einfügen per Button in Aktiver Zelle

• Buchstabe einfügen per Button in Aktiver Zelle von Seffen vom 11.08.2004 13:54:03
• AW: Buchstabe einfügen per Button in Aktiver Zelle - von ChrisL am 11.08.2004 14:00:21
  • Problem ist noch nicht gelöst - von Steffen am 11.08.2004 14:08:23
    • AW: Problem ist noch nicht gelöst - von Ulf am 11.08.2004 14:11:03
      • AW: Problem ist noch nicht gelöst - von Steffen am 11.08.2004 14:16:26
        • AW: Problem ist noch nicht gelöst - von ChrisL am 11.08.2004 14:22:01
          • Danke für die Hilfe o.T. - von Steffen am 11.08.2004 14:26:34
    • AW: Problem ist gelöst - von Russi am 11.08.2004 14:11:55
      • AW: Problem unnötig umständlich gelöst oT - von Ulf am 11.08.2004 14:14:07
        • Stimmt eigentlich... - von Russi am 11.08.2004 14:26:14
    • AW: Problem ist noch nicht gelöst - von ChrisL am 11.08.2004 14:18:41

Betrifft: Buchstabe einfügen per Button in Aktiver Zelle von: Seffen
Geschrieben am: 11.08.2004 13:54:03

Hi liebes Excelforum,
habe im Forum folgende Formel gefunden

Sub farbe_hellrosa_geplante_Ru()
    ActiveSheet.Unprotect
    With Selection.Interior
        .ColorIndex = 38
    ActiveSheet.Protect
    End With
End Sub

ich möchte gerne diese Formel umgewandelt haben für eine Buchstaben einzutragen Z.B. soll mittels dieser Formel in die Aktive Zelle der Buchstabe "U"
Ist das möglich ??? hoffe ihr könnt mit helfen.

Gruß Steffen


Betrifft: AW: Buchstabe einfügen per Button in Aktiver Zelle von: ChrisL
Geschrieben am: 11.08.2004 14:00:21

Hi Steffen

Sub U()
    ActiveSheet.Unprotect
    ActiveCell = "U"
    ActiveSheet.Protect
End Sub

Gruss
Chris




Betrifft: Problem ist noch nicht gelöst von: Steffen
Geschrieben am: 11.08.2004 14:08:23

Hi Chris,
leider klappt das mit deiner Formel nur bei einer Zelle möchte aber gerne alle gerade aktiven zellen den eintrag machen das heisst dies sollte auch über 15 makierte Zellen eingetragen werde.

Hoffe Du verstehst was ich gerne möchte

Gruß Steffen




Betrifft: AW: Problem ist noch nicht gelöst von: Ulf
Geschrieben am: 11.08.2004 14:11:03

Sub U()
    ActiveSheet.Unprotect
    selection = "U"
    ActiveSheet.Protect
End Sub

Ulf




Betrifft: AW: Problem ist noch nicht gelöst von: Steffen
Geschrieben am: 11.08.2004 14:16:26

Hi Ulf Super klappt,

jetzt bräuchte ist das gleich noch für die folgende Formel damit ich es nicht in geschütze Zellen eintragen kann. Habr die unten stehende für farben müßte doch mit Buchstabe auch gehen oder???

Sub U_Urlaub()
    Dim Zelle As Range
    ActiveSheet.Unprotect
    For Each Zelle In Selection
    If Zelle.Locked = False Then
    Zelle.Interior.ColorIndex = 6
    End If
    Next Zelle
    ActiveSheet.Protect
End Sub

Gruß Steffen




Betrifft: AW: Problem ist noch nicht gelöst von: ChrisL
Geschrieben am: 11.08.2004 14:22:01

Hi Steffen

Sub U_Urlaub()
    Dim Zelle As Range
    For Each Zelle In Selection
    If Zelle.Locked = False Then Zelle = "U"
    Next Zelle
End Sub

Protect/Unprotect macht so keinen Sinn.

Gruss
Chris




Betrifft: Danke für die Hilfe o.T. von: Steffen
Geschrieben am: 11.08.2004 14:26:34

Dank an alle für Eure schnelle hilfe

Gruß Steffen




Betrifft: AW: Problem ist gelöst von: Russi
Geschrieben am: 11.08.2004 14:11:55

Hallo Steffen!

Versuchs so:

Sub U()
Dim Zelle as Range
ActiveSheet.Unprotect
For Each Zelle in Selection
    Zelle.value = "U"
Next
ActiveSheet.Protect
End Sub

Viele Grüße
Russi
www.Russi.de.tt




Betrifft: AW: Problem unnötig umständlich gelöst oT von: Ulf
Geschrieben am: 11.08.2004 14:14:07

oT




Betrifft: Stimmt eigentlich... von: Russi
Geschrieben am: 11.08.2004 14:26:14

...schneller getippt als nachgedacht ;-)




Betrifft: AW: Problem ist noch nicht gelöst von: ChrisL
Geschrieben am: 11.08.2004 14:18:41

Hi Steffen

Dann... Selection = "U"

Gruss
Chris

Beiträge aus den Excel-Beispielen zum Thema "Buchstabe einfügen per Button in Aktiver Zelle"