Microsoft Excel

Herbers Excel/VBA-Archiv

wenn . in Zelle darf kein OK geschrieben sein


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

  

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
  

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

  

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
  

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.

  

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

  

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
  

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

  

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.

GrußformelHomepage

  

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

Sorry.

Beiträge aus dem Excel-Forum zum Thema "wenn . in Zelle darf kein OK geschrieben sein"