Office: Zelle inhalt/Wert ändert sich über Combobox dann eine andere Zelle leeren

Hallo zusammen

Ich habe folgendes Problem mit meinem Code.

Wenn ich eine Eingabe in B3 mache wird die Zelle C5 geleert bzw. wenn ich einen eingabe in C5 mache wird B3 geleert. Das klappt genau so wie es mal benötigt wurde.

Nun möchte ist das so haben das wenn ich über eine Combobox, was sich auf dem Tabellenblatt befindet, einen Eintrag auswähle wird mir in B3 einezahl ausgegeben. Nun ist aber das Problem das die Zelle C5 nicht geleert wird. Aber wenn ich mit der Hand ne Eingabe in C5 mache wird Zelle C3 geleert.

Hier die Formel aus der Combobox

Code:

 'Daten-Eingabe'!$B$2:$B$501

Hier der Code wenn es alles per Hand eingegeben wird.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Wks1 As Worksheet, Wks2 As Worksheet, Found As Object
   
    Set Wks1 = ActiveSheet
    Set Wks2 = Sheets("Personal-Stammblatt")
     

 
    If Target.Address = "$B$3" Then
       If Target.Value <> "" And Cells(5, 3).Value <> "" Then
           GoTo Zelle2
       End If
    End If
   
    If Target.Address = "$C$5" Then
        If Target <> "" Then Cells(3, 2) = ""
    End If
   
Weiter:
    
Zelle2:
    If Target.Address = "$B$3" Then
        If Target <> "" Then Cells(5, 3) = ""
        End If

End Sub

Wer kann mir da mal bitte weiter helfen.



Vielen Dank


Gruß Michael

 

Hi Michael,

was für eine ComboBox verwendest du und wie trägst du damit die Werte ins Tabellenblatt ein?

Bis später,
Karin

 

Moinsens!

Das "Change" Ereignis wird nicht ausgelöst, wenn sich Werte z.B. durch Neuberechnung ändern. Es wird auch nicht ausgelöst, wenn sich der Wert einer Zelle ändert, weil sie die "LinkedCell" eines anderen Steuerelements ist. Hast Du also z.B. eine ActiveX ComboBox und C3 als "LinkedCell", dann kannst Du mit der ComboBox den Wert in C3 ändern, es löst aber nicht das "Change" Ereignis aus und entsprechend wird C5 nicht gelöscht.

Hier müßtest Du einen Schritt vorher eingreifen: Nicht erst, wenn sich etwas auf dem Blatt ändert, sondern schon, wenn sich was in der ComboBox ändert.

Empfehlung: Lager die Hin- und Her-Lösch-Operation in eine zusätzliche Sub aus und rufe diese von ggf. unterschiedlichen Ereignissen aus auf. Also z.B. in der Art:

Code:

private sub loeschen_c3_c5( target as range )
[ ... ]
end sub

private sub worksheet_change(byval target as range)
    loeschen_c3_c5( target )
end sub

private sub combobox1_change()
    loeschen_c3_c5( tabelle1.combobox1.linkedcell )
End Sub

Du könntest natürlich auch im ComboBox-Change direkt C5 löschen, weil Du weißt, das C3 die LinkedCell ist. Aber falls Du die gegenseitig abhängige Lösch-Prozedur noch mit weiteren Funktionen erweitern willst, ist diese zentrale Routine wahrscheinlich die bessere Alternative.

Gruß, Michael

 

Danke Ihr zwei für die Hilfe

Ich habe das gnaze nun über ein Makro gemacht das wenn sich in eine Zelle der Wert änder das Ergniss dann in die LinkedCell kopiert wird.

Danke für die beispiele vielcheich brauch ich dies ja mal.


Gruß Michael