Zuweisung über Target

Forumthread: Zuweisung über Target
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Zuweisung über Target

16.07.2006 00:21:30

Markus

Liebe Leute,
ich versuche, nachdem die Zelle "GewSchallDrckPeg" geändert wurde, der Zelle "GewSchallDrckPeg" den Wert "Hallo" zuzuweisen, um ihn anschließend zu formatieren. Der Rechner weiß zwar, dass er etwas tun muss, steigt aber kurz vor der Zuweisung des Wertes kommentarlos aus.
Kann mir jemand sagen wo das dran liegt - ich versuche schon seit Stunden ...
Schon mal Danke Markus
If Target.Address = Range("GewSchallDrckPeg").Address Then
ThisWorkbook.ActiveSheet.Range("Schalldruckpegel").Select
ActiveCell.FormulaR1C1 = "Hallo"
With ActiveCell.Characters(Start:=1, Length:=5).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = True
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End If

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zuweisung über Target

16.07.2006 00:46:12

Kurt
AW: Zuweisung über Target

16.07.2006 13:41:04

Markus
AW: Zuweisung über Target

16.07.2006 18:54:17

Markus
AW: Zuweisung über Target

19.07.2006 18:11:12

Kurt

AW: Zuweisung über Target

16.07.2006 00:46:12

Kurt

Hi,
besser, du postest die gesamte Prozedur einschließlich


Private Sub End Sub

mfg Kurt

AW: Zuweisung über Target

16.07.2006 13:41:04

Markus

Hallo Kurt,
hier also der vollständige Code:


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("GewSchallDrckPeg")) Is Nothing Then
ThisWorkbook.ActiveSheet.Range("Schalldruckpegel").Select
ActiveCell.FormulaR1C1 = "Hallo"
With ActiveCell.Characters(Start:=1, Length:=5).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = True
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End If
End Sub

Gruß Markus

AW: Zuweisung über Target

16.07.2006 18:54:17

Markus

Hi Kurt,
ich habe jetzt herausbekommen, dass die Prozedur vom Grundsatz her funktioniert. Das Problem ist nur, die Zelle, in der die Änderung durchgeführt wird über einen "Gültigkeitsbereich/Liste" beschränkt ist. Wenn man nun über das DropDownMenü entsprechend eine Änderung vornimmt geschieht nichts. Wird dagegen in der Eingabezeile eine Änderung mit "Enter" bestätigt funktioniert alles perfekt.
Kannst Du mir sagen, ob es da einen Weg gibt?
Danke Markus

AW: Zuweisung über Target

19.07.2006 18:11:12

Kurt

Hi,
bist du sicher, dass du Excel 2000 hast? Das, was du beschreibst, tritt eigenlich nur
in Excel 97 auf.
mfg Kurt

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!