Excel2010: Ersetzen in Zelle eingegebenes Zeichen durch eine vorgegebene Zahl?

[atilla]

Hallo,

das kann so zusammengefasst werden.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D4:G6")) Is Nothing Then
  If LCase(Target.Text) = "x" Then
    Application.EnableEvents = False
    Target = Target.Column - 3
    Application.EnableEvents = True
  End If
End If
End Sub

Der obige Code macht das gleiche, wie Dein eingestellter.

[BoskoBiati]

Hallo,

um so eine Umfrage auszuwerten, braucht man die x nicht in Zahlen umwandeln. Es gibt Formeln wie SUMMEWENN(S) oder ZÄHLENWENN(S), die auch mit Xen arbeiten.

[loitschix]

Hallo,

um so eine Umfrage auszuwerten, braucht man die x nicht in Zahlen umwandeln. Es gibt Formeln wie SUMMEWENN(S) oder ZÄHLENWENN(S), die auch mit Xen arbeiten.

Hi und danke für die Info...Aber ich bin nicht so der Excel-Guru und kenne daher viele Funktionen (noch) nicht. :) Und ich tu mir ehrlich gesagt echt schwer mit den Hilfeseiten von Microsoft die das erklären....Bin da zu doof für wahrscheinlich. :17:  

Danke,
VG, P.

[loitschix]

Hallo,

das kann so zusammengefasst werden.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D4:G6")) Is Nothing Then
  If LCase(Target.Text) = "x" Then
    Application.EnableEvents = False
    Target = Target.Column - 3
    Application.EnableEvents = True
  End If
End If
End Sub

Der obige Code macht das gleiche, wie Dein eingestellter.

Cool, danke! Wird ich gleich ausprobieen :)

VG, P.

[BoskoBiati]

Hallo,

anhand Deines Bildchens:

Tabelle3

	K	L	M	N	O	P	Q	R	S
1	1	2	3	4		1	2	3	4
2	x				Ergebnis	2	3	2	5
3	x
4		x
5				x
6			x
7			x
8		x
9				x
10		x
11				x
12				x
13				x

Formeln der Tabelle

Zelle Formel P2 =ZÄHLENWENN(K$2:K$14;"x") Q2 =ZÄHLENWENN(L$2:L$14;"x") R2 =ZÄHLENWENN(M$2:M$14;"x") S2 =ZÄHLENWENN(N$2:N$14;"x")

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8