Herbers Excel-Forum - das Archiv

Bewerten Sie hier bitte das Excel-Portal

wenn . in Zelle darf kein OK geschrieben sein

Bild


Betrifft: wenn . in Zelle darf kein OK geschrieben sein
von: Gerald Müller

Geschrieben am: 14.09.2019 21:17:33
Hallo,
ich suche folgende VBA-Lösung.
Wenn in Tabelle1 in den Zellen D3 bis D95 ein . ist soll in den Zellen E3 bis E95 kein OK geschrieben werden.
Vielen Dank im voraus
LG
Gerry
Bild

Betrifft: AW: wenn . in Zelle darf kein OK geschrieben sein
von: 1713138.html

Geschrieben am: 14.09.2019 21:59:13
Hallo Gerald
Ich weiß jetzt zwar nicht, ob die Zelladdressen flexibel sein sollen, jedoch schreibe ich Ihnen den Code gemäß Ihren Angaben nieder.
Sub Zellpruefung()
Dim rngBasisspalte as Range
Dim rngBS as Range
Application.Screenupdatng=false
Set rngBasisispalte=Worksheets("Tabelle1").Range("D3:D95")
'Möchten Sie dies auf dem gerade aktiven Tabellenblatt ausführen, dann muss die vorherige Zeile  _
wie folgt lauten: Set rngBasisispalte=Worksheets(Activesheet.Name).Range("D3:D95")
For each rngBS in rngBasisspalte
If rngBS.value="." then 'falls in dieser Zelle neben dem Punkt noch weitere Zeichen stehen muss  _
es If rngBS.value like "*.*" then heißen)
rngBS.Offset(0,1).value=""
else
rngBS.Offset(0,1).value="OK"
End if
next rngBS
Set rngBasisspalte=Nothing
Application.Screenupdatng=true
End Sub
Der Programmcode ist in einem gesonderten Modul der Excel-Datei mit Makros einzufügen.
Ich hoffe, dass ich Ihnen mit dieser Antwort weiterhelfen konnte.
Viele Grüße
Sandra
Bild

Betrifft: Worksheets(Activesheet.Name) ....
von: 1713139.html
Geschrieben am: 14.09.2019 22:20:24
Hi,
...ist aber ein bisserl „von hinten durch die Brust ins Auge“ ;-)
Activesheet.Range(...j
wäre der direkte Weg.
Hier im Forum gilt übrigens das Du.
VG Boris

Bild

Betrifft: AW: wenn . in Zelle darf kein OK geschrieben sein
von: 1713144.html
Geschrieben am: 14.09.2019 22:34:43
Hallo,
andere Möglichkeit ohne Schleife. 

Public Sub aaa()
With Worksheets("Tabelle1").Range("E3:E95")
.FormulaLocal = "=WENN(ISTZAHL(FINDEN(""."";D3));"""";""OK"")"
.Value = .Value
End With
End Sub
Gruß Werner
Bild

Betrifft: AW: wenn . in Zelle darf kein OK geschrieben sein
von: 1713146.html
Geschrieben am: 14.09.2019 23:03:38
Vielen Dank für die Mühe.
Ich meinte aber das dann in den Zellen E3 bis E95 kein OK geschrieben werden kann wenn in den Zellen D3 bis D95 ein Punkt geschrieben ist.
in dem Progammcode kommen die Zellen E3 bis E95 aber garnicht vor.

Bild

Betrifft: AW: wenn . in Zelle darf kein OK geschrieben sein
von: 1713147.html

Geschrieben am: 15.09.2019 00:17:44
Hallo Gerald
Der Bereich "E3 bis E95" wird mit der Zeile rngBS.Offset(0,1).value="" respektive rngBS.Offset(0,1).value="OK" berücksichtigt. Der Teil Offset(0,1) steht für folgenden Sachverhalt:
0 Zeilen abweichend von der aktuellen Zelle und 1 Spalte abweichend von der Spalte D. Somit wird automatisch der Wert "OK" in die Spalte E eingetragen ohne dass diese Spalte explizit erwähnt wird.
Viele Grüße
Sandra
Bild

Betrifft: AW: wenn . in Zelle darf kein OK geschrieben sein
von: 1713150.html

Geschrieben am: 15.09.2019 05:42:50
Moin Gerry! 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
If Not Intersect(Range("E3:E95"), Target) Is Nothing Then
If WorksheetFunction.CountIf(Range("D3:D95"), "*.*") > 0 Then
For Each C In Intersect(Range("E3:E95"), Target)
Application.EnableEvents = False
If UCase$(C.Value) = "OK" Then C.Value = ""
Application.EnableEvents = True
Next
End If
End If
End Sub
Die Prozedur gehört ins Codefenster der Tabelle.
Gruß Gerd
Bild

Betrifft: AW: wenn . in Zelle darf kein OK geschrieben sein
von: 1713155.html
Geschrieben am: 15.09.2019 09:36:22
Vielen Dank für alle Lösungsvorschläge.
Problem ist gelöst.
LG
Gerry

Bild

Betrifft: AW: wenn . in Zelle darf kein OK geschrieben sein
von: 1713156.html
Geschrieben am: 15.09.2019 09:38:16
Hallo Gerry,
offen bedeutet es soll noch eine Antwort kommen.
Warum ist dein Beitrag Offen.
Du willst doch was machen. Soll jemand vorbei kommen?
Das ist nur meine Meinung zu dem Thema.

Bild

Betrifft: AW: wenn . in Zelle darf kein OK geschrieben sein
von: 1713164.html
Geschrieben am: 15.09.2019 10:32:14
Sorry.

Excel-Beispiele zum Thema "wenn . in Zelle darf kein OK geschrieben sein"
Geschriebene Rechnung in Journal eintragen Summe aller kursiv geschriebenen Werte ermitteln
Keine Wiederholung fett geschriebener Zahlen
Bewerten Sie hier bitte das Excel-Portal