Office: ComboBox Ausgabebereich einschränken

Hallo,
folgendes, ich habe mehrere Arbeitsblätter. Auf einem Blatt soll eine Combobox einen Wert in die Aktive Zelle Schreiben. Soweit kein Problem, das Funktioniert prima mit:
Private Sub ComboBox1_Change()
ActiveCell.Value = ComboBox1.Value
End Sub
Mein Problem liegt daran, dass ich in den anderen Blättern keine Eingaben mehr manchen kann. Egal was ich eintrage, beim drücken von Enter erscheint der Wert der Combobox.
Ich möchte den Ausgabebereich der Box auf einen bestimmten Bereich, zB. a1:c5 einschränken.
Bisher sind alle Versuche über "Range" gescheitert. Warscheinlich mache ich immer den gleichen Syntaxfehler.
Kann mir jemand ein Beispiel geben wie ich den ausgabebereich einer Combobox einschränken kann?
Bei anderen Elementen klappt es auf Anhieb.
Danke im Voraus

 

Hallo Thorbin,

Option Explicit

Private Sub ComboBox1_Change()
If ActiveCell.Column <= 3 And ActiveCell.Row <= 5 Then
ActiveCell.Value = ComboBox1.Value
End If
End Sub

Gruß Hajo

 

Hallo Hajo,
danke für die Rasche Antwot.
Die Systax ist mir allerding völlig neu. Ist die Ausgabe damit auf Zelle 5 Spalte 3 beschränkt?
Ich bräuchte eine Beschränkung auf die Spalten A+C Oder A-C Das ist nicht so wichtig ob die B- Spalte mit einbezogen wird, sie ist ohnehin geschützt.

 

Hallo Thorbin,

die Verarbeitung ist auf Deinen Bereich Beschränkt. Das war doch auch Deine Frage?

Gruß Hajo

 

ja, danke.
Funktioniert auch gut. Mir war nur die Syntax nicht klar.

Jetzt ist ein weiteres Problem aufgetaucht.
Ich schließe die Mappe über einen commandbutton der den freigegebenen Bereich löscht und das Programm beendet.
Folgender effekt tritt nun ein:
-Der Schutzt wird korrekt aufgehoben.
-Die Zellen werden korrekt gelöscht.
-Das Programm wird geschlossen.
beim erneuten öfnen wird allerdings der letzte Wert der in der Combobox eingestellt ist austomatisch in die, vor dem schließen markierte, Zelle eingetragen.
Kann man das irgendwie unterbinden?
Außerdem wird nicht nur die Aktuelle Mappe geschlossen sondern alle geöfneten Mappen.
Code:
Private Sub Workbook_BeforeClose(cancel As Boolean)
With Sheets("Tabelle1")
.Unprotect
.Range("b2:b11").ClearContents
.Protect
End With
ThisWorkbook.Save
End Sub

 

Hallo Thorben,

der Coe hat nichts mit Deinem Problem zu tun.
Eine Datei wäre wahrscheinlich besser gewesen.
Mal Live
Definiere im Modul eine Variable Dim BoComBobox as Boolean
Am Ende von Open setzt Du sie auf True.
Beim Change der Combobox als erstes If BoCombobox =False Exit sub

Gruß Hajo

 

Hallo Hajo,
Danke für die Antwort, ich habe inzwischen die Tabelle neu angelegt und in der neuen funktionniert es mit der Einschränkung einwandfrei.
Ich habe auch auf den Löschbutton verzichtet und einfach eine "Bevor close" anweisung daraus gemacht. Der button war völlig überflüssig.
Funktionktionert ohne Probleme.
Ich vermute, dass ich irgendwo in der Arbeitsmappe einen Fehler hatte der mir alles durch einander gebrachte hat.
In Zukunft werde ich nur noch an Mappen arbeiten von denen ich mir eine Kopie gemachte habe.
mfg
Thorbln