Möchte in meiner Listbox die Überschriften sehen wie in der Excel Tabelle des weiteren sollte nach der Auswahl eine Meldung angezeigt werden Kunde eingefügt diese kommt bei mir aber ich muss sie mit OK bestätigen das sollte nur 2 Sekunden angezeigt werden.
Hier mein Aktueller Code
Private Sub UserForm_Initialize()
Dim iRow As Integer
'Anzahl Spalten in ListBox
ListBox1.ColumnCount = 7
'Überschriftenzeile der ListBox einblenden
ListBox1.ColumnHeads = True
'Breite der Spalten in ListBox
ListBox1.ColumnWidths = "1,2cm; 2,3cm; 2,3cm; 2cm; 3,2cm; 1,5cm; 4,5cm"
'For/Next-Schleife zum Füllen der Objekte
For iRow = 2 To Worksheets("Kundendaten").Range("A65536").End(xlUp).Row
'Kundenummer hochzählen
UserForm2.kundennummer = WorksheetFunction.Max(Sheets("Kundendaten").Range("A:A")) + 1
'Listbox mit Mandantennamen füllen
'1.Spalte mit Daten aus Spalte A
ListBox1.AddItem ThisWorkbook.Sheets("Kundendaten").Cells(iRow, 1)
'2.Spalte mit Daten aus Spalte C
ListBox1.List(ListBox1.ListCount - 1, 1) = ThisWorkbook.Sheets("Kundendaten").Cells(iRow, 2)
'3.Spalte mit Daten aus Spalte D
ListBox1.List(ListBox1.ListCount - 1, 2) = ThisWorkbook.Sheets("Kundendaten").Cells(iRow, 3)
'4.Spalte mit Daten aus Spalte E
ListBox1.List(ListBox1.ListCount - 1, 3) = ThisWorkbook.Sheets("Kundendaten").Cells(iRow, 4)
'5.Spalte mit Daten aus Spalte F
ListBox1.List(ListBox1.ListCount - 1, 4) = ThisWorkbook.Sheets("Kundendaten").Cells(iRow, 5)
'6.Spalte mit Daten aus Spalte G
ListBox1.List(ListBox1.ListCount - 1, 5) = ThisWorkbook.Sheets("Kundendaten").Cells(iRow, 6)
'7.Spalte mit Daten aus Spalte G
ListBox1.List(ListBox1.ListCount - 1, 6) = ThisWorkbook.Sheets("Kundendaten").Cells(iRow, 7)
Next
End Sub
Private Sub eintragen_Click()
Dim wks As Worksheet
' Daten bei Auswahl und Klick in Rechnung Angebot einfügen
Set wks = Worksheets("RechnungAngebot")
With Me.ListBox1
wks.Range("A14:B16").ClearContents
wks.Range("G15").Value = .List(.ListIndex, 0) 'Kundennummer
wks.Range("A13").Value = .List(.ListIndex, 3) 'Anrede
wks.Range("A14").Value = .List(.ListIndex, 1) & " " & .List(.ListIndex, 2) 'Nachname, _
Vorname
wks.Range("A15").Value = .List(.ListIndex, 4) 'Straße
wks.Range("A16").Value = .List(.ListIndex, 5) & " " & .List(.ListIndex, 6) 'PLZ
'Nachricht anzeigen nach den übertragen
Dim strText As String
strText = "Der Kunde wurde eingefügt"
MsgBox strText
End With
End Sub