Office: Else = do nothing?

Hallo zusammen!

Ich habe leider überhaupt keine VBA-Grundkenntnisse, benötige jedoch für eine Exceltabelle ein paar Makros. Nun habe ich mit viel Suchen und Experimentieren enen Code geschrieben, der soweit auch schonmal das tut was er soll. Allerdings gibt es am Ende der Prozedur noch ein paar Schwierigkeiten.
Wenn in Spalte H (8) "0" eingetragen wird, soll in I-M ebenfalls eine 0 erscheinen. Wenn ich eine andere Zahl eintrage, soll er einfach nichts tun. Soweit so gut - das klappt erstmal. Wenn ich nun aber zuerst eine 0 in H eingetragen habe und das dann nachträglich ändere, dann bleibt die 0 in den anderen Spalten stehen. Was muss ich ihm sagen, damit er gegebenenfalls wieder leere Spalten anzeigt?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 8 Then
ThisRow = Target.Row
If Target.Value = 0 Then
Range("I" & ThisRow).Value = 0
Range("J" & ThisRow).Value = 0
Range("K" & ThisRow).Value = 0
Range("L" & ThisRow).Value = 0
Range("M" & ThisRow).Value = 0
Else
do nothing
End If
End If
End Sub

Vielleicht ist hierbei noch wichtig zu wissen, dass ich das erstmal in einer Experimentiertabelle ausprobiert habe. Der Code soll später in die echte Tabelle, an der sich in den Spalten I-M Gültigkeitslisten befinden. Diese sollen dann genutzt werden, wenn in Spalte H eine andere Zahl als 0 eingetragen wird. Daher so kompliziert. ;-)

Lieben Gruß,

PapierStudi

:)

 

Hi,

das geht auch einfacher...
Code:

Vorallem aber... do ist ein Schlüsselwort für eine Schleife. do nothing geht also gar nicht! *wink.gif*

 

Moin
Code:

edit Ralf: Ich wuerde bei deinem Code Events ein/ausschalten. ;-)
gruss hary

 

Hi Hary,

wäre eine Option... aber bei 5 Spalten, die alle nicht Spalte 8 sind? Trotzdem, gute Anregung!

 

Super! Danke!
In der experimentiertabelle läuft das schonmal einwandfrei. Nun habe ich nurr noch Schwierigkeiten dabei, es in meine echte Tabelle einzufügen.
Wenn ich den Code einfach unten drunter einfüge, streikt er und sagt mir "Mehrdeutiger Name Worksheet_change".
Könnt ihr mir nun noch dabei helfen ihn hier einzubauen? :-)

Option Explicit

'** Mehrfachauswahl über DropDown-Liste (Gültigkeitsprüfung)
'** Einfügen im Code-Container des betreffenden Arbeitsblattes

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngBereich As Range
Dim wert_old As Variant
Dim wert_new As Variant

' Mehrfachauswahl im definierten Bereich durchführen
Set rngBereich = Application.Union(Columns("C"), Columns("J:M"), Columns("AJ:AO"), Columns("BH"))

' Prüfung, ob mehr als 1 Zelle geändert wurde
If Target.Count > 1 Then Exit Sub
' Prüfung, ob Zelle einen Wert enthält
If Target.Value = "" Then Exit Sub
' Prüfung, ob Zelle im angegebenen Bereich
If Application.Intersect(Target, rngBereich) Is Nothing Then Exit Sub
' enthält geänderte Zelle eine Gültigkeitsprüfung?
On Error Resume Next
If Application.Intersect(Target, Cells.SpecialCells(xlCellTypeAllValidation)) _
Is Nothing Then Exit Sub
On Error GoTo 0

' Daten in Zelle bearbeiten
Application.EnableEvents = False

wert_new = Target.Value
Application.Undo
wert_old = Target.Value
Target.Value = wert_new

If wert_old "" Then
Target.Value = wert_old & ", " & wert_new
End If

Application.EnableEvents = True
End Sub

 

Moin
Du musst auch nur den Teil einfuegen.
Code:

@Ralf: Dein Code wirft, ohne Events, einen Fehler raus.

 

Und wo? ^^

 

Moin
Ich bau die Datei nicht nach, aber probier mal.
Code:

gruss hary

 

An der Stelle ignoriert er den Code einfach nur...

 

\@ Hary,

kann es ein, dass Du meinen Code mit Papierstudies Code verwechselst?
Ohne EnableEvents wird er ja, bedingt durch den verbundenen Bereich, exakt einmal mehr aufgerufen. Bin mir nicht sicher, ob das Ein- und Ausschalten der Events da einen tatsächlichen Gewinn bringt...

@Papierstudy

besagt nichts anderes, dass Du schon eine Prozedur dieses Namens hast. Es darf nur eine davon geben. Und zwar die für das betreffende Blatt. Solltest Du eine Prozedur mit diesem Code in einem anderen Modul haben, dann musst Du sie (die externe Prozedur) im "Worksheet_change" Ereignis des auslösenden Blatts aufrufen. Mit Übergabe des Blattnamens und der Zelladresse.

 

Und noch eine Frage:

Du schreibst:
Cells(Target.Row, 9).Resize(1, 5).Value = IIf(Target = 0, 0, "")

Bedeutet das, dass er nun ab Zeile 9 neu zählt und die darauffolgenden 5 Spalten wählt? Da ich nämlich weiter hinten noch Spalten habe, die auch noch darein sollen, frage ich mich nun wie ich die dann hinzufüge.
Das beträfe dann die Spalten 42-47 und 57-60.

Sieht das dann am Ende so aus?

Cells(Target.Row, 9).Resize(1, 5).Value = IIf(Target = 0, 0, "")
Cells(Target.Row, 42).Resize(1, 6).Value = IIf(Target = 0, 0, "")
Cells(Target.Row, 9).Resize(1, 4).Value = IIf(Target = 0, 0, "")

Vermutlich steht da nun totaler Schwachsinn. ^^
Ich versuche nur das zu verstehen, um es später auch bearbeiten zu können. :-)

 

\@ralf
Was meinst du mit "Mit Übergabe des Blattnamens und der Zelladresse."?

 

Moin

Nein.
@Ralf: Es wird auch eingetragen aber dann folgt siehe Bild im Anhang
da ja das Change Ereigniss wieder gestartet wird.
@Papierstudi

Fast, die 9(also I) ist die Spaltennummer , insgesammt sind es 5 Spalten die erste Zelle wird mitgerechnet.
Code:

Glaube ist besser du laedst eine Bsp.-Mappe hoch.
gruss hary

 

\@ hary,
...hmmm... bei mir läuft er durch... grübel...

@study,

das externe modul kann ja nicht wissen was es verarbeiten soll. deshalb müssen der blattname und die zelle (oder alternativ auch die zeile) als paramter übergeben werden.

Aufruf wäre dann so:

Code:

und die Prozedur im externen Modul sähe dann so aus:

Code:

 

Guten Morgen! :-)

Also das ist meine aktuelle Datei:
Dropbox - Error
VBA-technisch ist sie bisher noch sehr einfach gehalten. Es gibt nur ein bearbeitetes Worksheet und den Code, der da drauf liegt, habe ich hier bereits gepostet.

@hary
Oh ja - natürlich 57. Da hab ich mich irgendwie vertippt. Aber freue mich deinen Code nun auch zu verstehen. *Smilie

@Ralf
Entschuldige bitte wenn ich dich irgendwo missverstehe - habe halt, wie gesagt, wenig Ahnung von VBA.
Das einzige Modul, das ich derzeit schreibe / bearbeite, ist das Worksheet / Tabellenblatt der ersten Tabelle. Die gleichnamige Prozedur befindet sich auf dem selben Blatt.
Da es bei dieser einen Tabelle bleiben wird, wollte ich die Prozeduren, die sich nur auf diese eine Tabelle beziehen sollen, einfach irgendwie auf diesem einen Worksheet unterbringen.
Meinst du ich kann nur dann mehrere Prozeduren des gleihen Types auf einem Worksheet unterbringen, wenn ich sie auf einem anderen Blatt entsprechend definiere? Oder hast du einfach nur den Umfang meiner Arbeitsmappe überschätzt? *Smilie