Spalten sperren anhand Listbox

Computer: Software & Programmierung Office Software
1

Hallo Experten!
Ich habe ein Problem! Ich habe in einem Dokument mehrere Listboxes und möchte, dass die Werte aus einer Listbox nur in eine bestimmte Spalte geschrieben werden können, d.h. dass die anderen Spalten gesperrt sind! Ich übertrage die Daten mittels einer Befehlsschaltfläche- hier der Code dazu:

Private Sub CommandButton1_Click()
Dim ausgabe As String
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
If ausgabe „“ Then ausgabe = ausgabe & ", "
ausgabe = ausgabe & ListBox1.List(i)
End If
Next i

Hoffe mir kann jemand helfen! Vielen Dank im Voraus!

Gruss,
Philip

2

Ich habe ein Problem! Ich habe in einem Dokument mehrere
Listboxes und möchte, dass die Werte aus einer Listbox nur in
eine bestimmte Spalte geschrieben werden können, d.h. dass die
anderen Spalten gesperrt sind! Ich übertrage die Daten mittels
einer Befehlsschaltfläche- hier der Code dazu:

Private Sub CommandButton1_Click()
Dim ausgabe As String
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
If ausgabe „“ Then ausgabe = ausgabe & ", "
ausgabe = ausgabe & ListBox1.List(i)
End If
Next i

Hi Philip,
dein Code liefert nur den gerade ausgewählten Eintrag der Listbox. Ginge auch so:

Private Sub ListBox1\_Click()
Dim ausgabe As String
ausgabe = ListBox1
MsgBox ausgabe
End Sub

Und mit LinkedCell legst du doch fest wohin, also in welche Zelle, die Auswahl geschrieben wird. Also muss man keine anderen Spalten sperren.
Mir ist unklar was du vorhast.
Gruß
Reinhard

3

Hallo Reinhard!

Danke schonmal für deine Hilfe!
Ich übertrage die ausgewählten Werte der Listbox in eine aktive Zelle. Nun möchte ich eigentlich, dass nur Daten übertragen werden können, wenn sich die aktive Zelle in einer bestimmten Spalte befindet… Ich weiss nicht, ob das möglich bzw. verständlich ist!?

Gruss,
Philip

4

Ich übertrage die ausgewählten Werte der Listbox in eine
aktive Zelle. Nun möchte ich eigentlich, dass nur Daten
übertragen werden können, wenn sich die aktive Zelle in einer
bestimmten Spalte befindet… Ich weiss nicht, ob das möglich
bzw. verständlich ist!?

Hi Philip,
so?:
Private Sub CommandButton1_Click()
If ActiveCell.Column = 5 Then ActiveCell = ListBox1 'Spalte E
End Sub
Gruß
Reinhard

5

Hallo Reihard,

Danke, der Hinweis hat schon geholfen! Hast mich gerettet!

Gruss,
Philip