AW: Versch. Preise für einen Artikel
31.07.2020 17:06:11
TaDü
Hallo erstmal ....
Ich möchte keine Datei nachgebaut bekommen sonder Lösungsansätze ...
Ich versuch mich noch einmal zu erklären:
Maschine 1
Maschine 2
Maschine 3
Bei allen 3 Maschinen kann man zum Beispiel die Leistungsbeschreibung "Transport" verrechnen, jedoch haben alle 3 Maschinen unterschiedliche Preise. In meinem Tabellenblatt Leistungsbeschreibungen sind ca. 800 Einträge!
Für 1 Maschine hab ich es ja ganz gut hinbekommen.
'Leistungen für die Rechnung suchen
'Code für die Schaltfläche "Suchen"
Private Sub cmdReSuchenLe_Click()
Dim rngCell As Range
Dim strFirstAddress As String
With Worksheets("Leistungen").Range("c:c")
Me.ListBox1.Clear
Set rngCell = .Find(Me.TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not rngCell Is Nothing Then
strFirstAddress = rngCell.Address
Do
With Me.ListBox1
.ColumnCount = 2
.AddItem
.List(.ListCount - 1, 0) = rngCell.Value
.List(.ListCount - 1, 1) = rngCell.Offset(0, 2).Value
.List(.ListCount - 1, 2) = rngCell.Offset(0, 3).Value
.List(.ListCount - 1, 3) = rngCell.Offset(0, 1).Value
.ColumnWidths = "8cm;1cm"
End With
Set rngCell = .FindNext(rngCell)
Loop While Not rngCell Is Nothing And rngCell.Address strFirstAddress
Else
MsgBox "Leistung nicht gefunden", 48
End If
End With
End Sub
'Code für Schaltfläche Auswahl übernehmen
Private Sub cmdReAuswLe_Click()
Dim wksSuLeistungen As Worksheet
Dim wksSuRechnung As Worksheet
Dim intLetzteZeile As Integer
Set wksSuRechnung = Worksheets("Rechnung")
Set wksSuLeistungen = Worksheets("Leistungen")
intLetzteZeile = wksSuRechnung.Cells(Rows.Count, 2).End(xlUp).Row + 1
With Me.ListBox1
wksSuRechnung.Cells(intLetzteZeile, 2).Value = .List(.ListIndex, 0)
wksSuRechnung.Cells(intLetzteZeile, 3).Value = .List(.ListIndex, 3)
wksSuRechnung.Cells(intLetzteZeile, 4).Value = .List(.ListIndex, 1)
wksSuRechnung.Cells(intLetzteZeile, 13).Value = .List(.ListIndex, 2)
wksSuRechnung.Cells(intLetzteZeile, 5).NumberFormat = "[$-de-AT] #,##0.00"
End With
End Sub
Ich möchte keinen Sverweis, da die ganze Rechnung mit Formularen zu befüllen ist!
Danke trotzdem für deine sehr freundliche Antwort!
lg