ich bin Excel und VBA Neuling. Excelbasiswissen ist vorhanden wurde aber lange nicht mehr genutzt. Nun habe ich ein kleines Projekt für die Arbeit übenommen und komme an einer Stelle nicht mehr voran auch nach tagelanger Suche bin ich leider nicht weitergekommen.
Ich hoffe ihr könnt mir bei meiner Poblemlösung evlt weiterhelfen.
Wahrscheinlich ist es für ein Profi eine ganz banale einfache Sache.
Zur Problemstellung. Ich habe eine Userform erstellt mit einer Listbox, eine Textbox und 3 command button.
Ich möchte Daten aus einer Tabelle1 in die Listbox einlesen. Das klappt bis auf eine Kleinigkeit soweit. Beim einlesen werden auf nicht sichtbar gestellte nullwerte mit eingelesen und sihtbar dargestellt. Diese würde ich auch gerne in der Listbox nicht sichtbar haben oder gar nicht mit einlesen. je nachdem was möglich ist.
2.Problem ich möchte gerne einen Text aus der Textbox per Button in die Listbox an eine beliebige markierte Stelle zwischen den vorhanden Zeilen einfügen.
Nachdem einfügen sollen die nun so ergänzten Daten in eine neue Tabelle2 ausgegeben werden. Das ausgeben in Tabelle2 funktionert auch soweit.
Vielen Dank und Grüsse
Martin
Anbei der bisherige Code
Option Explicit
Private Sub Button_Take_Click()
Dim I As Integer
With ListBox1
For I = 0 To .ListCount - 1
If .Selected(I) Then
Sheets("Rezeptdruck").Cells(Rows.Count, 1).End(xlUp).Offset(1) = .List(I, 0)
Sheets("Rezeptdruck").Cells(Rows.Count, 2).End(xlUp).Offset(1) = .List(I, 1)
Sheets("Rezeptdruck").Cells(Rows.Count, 3).End(xlUp).Offset(1) = .List(I, 2)
Sheets("Rezeptdruck").Cells(Rows.Count, 4).End(xlUp).Offset(1) = .List(I, 3)
Sheets("Rezeptdruck").Cells(Rows.Count, 5).End(xlUp).Offset(1) = .List(I, 4)
Sheets("Rezeptdruck").Cells(Rows.Count, 6).End(xlUp).Offset(1) = .List(I, 5)
End If
Next
End With
End Sub
Private Sub Einfügen_Click()
With ListBox1
.AddItem "", 4 'neue leere Zeile 2
.List(5, 0) = TextBox1
.Selected(.ListIndex + 1) = True
End With
End Sub
Private Sub Userform_Initialize()
Dim I As Integer
ListBox1.ColumnCount = 6
For I = 1 To 32
ListBox1.AddItem Cells(I, 1)
ListBox1.List(I - 1, 1) = Cells(I, 2)
ListBox1.List(I - 1, 2) = Cells(I, 3)
ListBox1.List(I - 1, 3) = Cells(I, 4)
ListBox1.List(I - 1, 4) = Cells(I, 5)
ListBox1.List(I - 1, 5) = Cells(I, 6)
ListBox1.List(I - 1, 6) = Cells(I, 7)
Next I
End Sub
Private Sub Button_Cancel_Click()
Unload meineHinweise
End Sub