Textbox Zelle ändern
Hallo Administrator.de User,
wieder einmal eine Frage (nimmt ja heute kein Ende )
Und zwar möchte ich eine Listbox haben, die mir die Geräte auflistet am besten untereinander aufgelistet:
erstes Problem die Geräte sind nebeneinander von Zelle A1 - Q1 aufgeschrieben wie krieg ich die dann in der Listbox untereinander.
zweites Problem ich möchte über eine Schaltfläche das in der Listbox markierte Gerät zurücksetzen können. Sprich wenn es ursprünglich "Gerät 3" heißt ich es dann umbenannt habe zu "Beispiel" dann möchte ich, wenn ich auf die Schaltfläche zurücksetzen Klicke,
dass es dann wieder in Gerät 3 umbenannt wird.
Ich hoffe ihr könnt mir dabei Helfen
Viele Grüße
Justin
wieder einmal eine Frage (nimmt ja heute kein Ende )
Und zwar möchte ich eine Listbox haben, die mir die Geräte auflistet am besten untereinander aufgelistet:
erstes Problem die Geräte sind nebeneinander von Zelle A1 - Q1 aufgeschrieben wie krieg ich die dann in der Listbox untereinander.
zweites Problem ich möchte über eine Schaltfläche das in der Listbox markierte Gerät zurücksetzen können. Sprich wenn es ursprünglich "Gerät 3" heißt ich es dann umbenannt habe zu "Beispiel" dann möchte ich, wenn ich auf die Schaltfläche zurücksetzen Klicke,
dass es dann wieder in Gerät 3 umbenannt wird.
Ich hoffe ihr könnt mir dabei Helfen
Viele Grüße
Justin
Please also mark the comments that contributed to the solution of the article
Content-Key: 258314
Url: https://administrator.de/contentid/258314
Printed on: April 25, 2024 at 11:04 o'clock
10 Comments
Latest comment
Moin,
das zweite Problem verstehe ich so nicht ...
Gruß jodel32
erstes Problem die Geräte sind nebeneinander von Zelle A1 - A17 aufgeschrieben wie krieg ich die dann in der Listbox untereinander.
ListBox1.Clear
For Each cell In Sheets(1).Range("A1:Q1")
ListBox1.AddItem cell.Value
Next
Gruß jodel32
"Funktioniert nicht " ist keine qualifizierte Fehlermeldung !!
Der geht problemlos wenn man ihn an seine Umgebung anpasst !! Ich gehe recht in der Annahme das du eine ListBox(Name ListBox1) in einer Userform meinst ? Der Code geht in diesem Fall einwandfrei...
Sheet und Range muss natürlich auch an deine Umgebung angepasst werden, das kann man hier doch erwarten oder ??
p.s. du meintest wohl anstatt A1:A17 eher A1:Q1 denn dein genannter Range wäre eine Spalte und kein Horizontaler Bereich !!!!
Der geht problemlos wenn man ihn an seine Umgebung anpasst !! Ich gehe recht in der Annahme das du eine ListBox(Name ListBox1) in einer Userform meinst ? Der Code geht in diesem Fall einwandfrei...
Sheet und Range muss natürlich auch an deine Umgebung angepasst werden, das kann man hier doch erwarten oder ??
p.s. du meintest wohl anstatt A1:A17 eher A1:Q1 denn dein genannter Range wäre eine Spalte und kein Horizontaler Bereich !!!!
Zitat von @Just4fun1990:
Tut mir leid, der Code funktioniert aber nicht bei mir ka wieso trotzdem danke
Tut mir leid, der Code funktioniert aber nicht bei mir ka wieso trotzdem danke
Aha, mal wieder einer der sich nicht helfen lassen will ...
"Funktioniert nicht " ist keine qualifizierte Fehlermeldung !!
Nehme einfach den ListIndex des markierten Eintrags in der Listbox für eine Referenz auf deine Zelle im Arbeitsblatt:
und feddich ist die Laube.
Gruß jodel32
Cells(1, (ListBox1.ListIndex +1)).Value = "Gerät " & (ListBox1.ListIndex + 1)
Gruß jodel32
Hallo Justin!
Soweit ich das verstanden habe, ginge das in etwa so:
Grüße Dieter
Soweit ich das verstanden habe, ginge das in etwa so:
Option Explicit
Private Const SheetName = "Tabelle1" 'Tabellenname anpassen
Private Sub UserForm_Initialize() 'ListBox initialisieren
ListBox1.List = WorksheetFunction.Transpose(Sheets(SheetName).Range("A1:Q1"))
End Sub
Private Sub CommandButton1_Click() 'Zurücksetzen
Dim ListIndex As Long
With ListBox1
ListIndex = .ListIndex
If ListIndex >= 0 Then
Sheets(SheetName).Range("A1").Offset(0, ListIndex).Value = "Gerät " & ListIndex + 1
.List = WorksheetFunction.Transpose(Sheets(SheetName).Range("A1:Q1"))
.ListIndex = ListIndex
End If
End With
End Sub
Grüße Dieter