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"