Begründung einer Bewertung

[Steffl]

Hallo,

wahrscheinlich schaltest Du in beiden Makros die Ereignisse ab und somit wird das Change-Ereignis nicht ausgeführt.

[radkappe]

Hallo.

Das ist mein Makro um alle Zellen auf 10 zu setzten:

Sub AlleWerte10()
Range("A5:A11,A16:A20,A23:A27,A30:A32,A35:A39,A42:A45,A48:A51,A55:A59").Select
Selection.Value = "10"
Range("A1").Select
End Sub

Das für alle auf n.b. setzten sieht im Prinzip genauso aus.

Ist da was falsch dran?

Gruß radkappe

[Steffl]

Hallo,

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column <> 1 Then Exit Sub
   Select Case Target.Cells(1).Value
      Case "n.b."
         Target.Offset(, 1) = "ABC"
      Case 10
         Target.Offset(, 1) = "XYZ"
      Case 0, 2, 4, 6, 8
         If IsEmpty(Target.Cells(1).Offset(, 1).Value) Or Target.Cells(1).Offset(, 1) = "ABC" Or Target.Cells(1).Offset(, 1) = "XYZ" Then Target.Offset(, 1) = "Text eingeben"
   End Select
End Sub

dein Makro kann auch verkürzt werden

PHP-Code:

Sub AlleWerte10()
Range("A5:A11,A16:A20,A23:A27,A30:A32,A35:A39,A42:A45,A48:A51,A55:A59").Value = "10"
End Sub 


[radkappe]

Hallo.

Vielen Dank!!! 

Es funktioniert so wie ich es mir vorgestellt habe. Danke auch für den Tipp, das Marko kürzer zu schreiben! So gut bin ich im Thema Makro noch nicht bewandert.

Gruß radkappe

[Rabe]

Hi Stefan,

dein Makro kann auch verkürzt werden

PHP-Code:

Sub AlleWerte10()
Range("A5:A11,A16:A20,A23:A27,A30:A32,A35:A39,A42:A45,A48:A51,A55:A59").Value = "10"
End Sub 


steht dann nicht die Zahl 10 als Text in der Zelle?

[Steffl]

Hallo Ralf,

bei mir sind es Zahlen.

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C
5	10		WAHR
6	10		WAHR
7	10		WAHR
8	10		WAHR
9	10		WAHR
10	10		WAHR
11	10		WAHR

Zelle	Formel
C5	=ISTZAHL(A5)
C6	=ISTZAHL(A6)
C7	=ISTZAHL(A7)
C8	=ISTZAHL(A8)
C9	=ISTZAHL(A9)
C10	=ISTZAHL(A10)
C11	=ISTZAHL(A11)

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg