Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ScrollBar
BildScreenshot zu ScrollBar ScrollBar-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Buchstabe einfügen per Button in Aktiver Zelle

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"