Bestellschein erstellen
03.10.2020 11:36:24
Markus
ich bin absoluter Anfänger.
Mein Problem ist folgendes:
Ich habe eine Bestandsliste, eine Auswahlliste, einmal Bestellschein, Baustellen und Mitarbeiter.
1. Jetzt darf der Benutzer die Auswahlliste erst nutzen,wenn er die Baustelle ausgewählt hat(ich habe eine DropdownListe eingebaut).
2. hat der Nutzer seine auswahl getroffen, klickt er einen Botten und in der Tabelle Bestellschein wird seine Auswahl zusammengefasst aufgeführt.(Das Funtioniert schonmal sehr gut). Die ausgefüllten Zellen der Tabelle Auswahlliste wird dabei auch gleich geleert.
3. zusätzlich soll dieser Botton aber auch die Bestandsliste aktualisieren, indem er die Spalte der Auswahlliste kopiert und in eine bestimmte Spalte der Bestandsliste einfügt.
Auswahliste = Spalte N (soll kopiert werden)
Bestandsliste= Spalte soll dann sein die Baustelle( Auswahlliste = Baustelle xy; Bestandsliste = Baustelle xy= Spalte Q)
Hier mal ein Beispiel. Soweit funktioniert alles
Sub Bestellschein()
' Bestellschein Makro
Dim zeile As Integer
Dim zeileMax As Integer
Dim n As Integer
Dim Spalte As Integer
Dim ZielSpalte As Integer
Dim iRow As Integer
Dim cell As Range
Dim m As Integer
Dim Tabelle1 As Object
zeileMax = Sheets("Tabelle4").UsedRange.Rows.Count
n = 10
For zeile = 2 To zeileMax
If Sheets("Tabelle4").Cells(zeile, 11).Value > 0 Then
Sheets("Tabelle4").Range(Sheets("Tabelle4").Cells(zeile, 1), Sheets("Tabelle4").Cells( _
_
_
zeile, 1)).Copy _
Destination:=Sheets("Bestellschein").Cells(n, 1)
Sheets("Tabelle4").Range(Sheets("Tabelle4").Cells(zeile, 2), Sheets("Tabelle4").Cells( _
_
_
zeile, 2)).Copy _
Destination:=Sheets("Bestellschein").Cells(n, 2)
Sheets("Tabelle4").Range(Sheets("Tabelle4").Cells(zeile, 3), Sheets("Tabelle4").Cells( _
_
_
zeile, 3)).Copy _
Destination:=Sheets("Bestellschein").Cells(n, 3)
Sheets("Tabelle4").Range(Sheets("Tabelle4").Cells(zeile, 5), Sheets("Tabelle4").Cells( _
_
_
zeile, 5)).Copy _
Destination:=Sheets("Bestellschein").Cells(n, 4)
Sheets("Tabelle4").Range(Sheets("Tabelle4").Cells(zeile, 7), Sheets("Tabelle4").Cells( _
_
_
zeile, 7)).Copy _
Destination:=Sheets("Bestellschein").Cells(n, 5)
Sheets("Tabelle4").Range(Sheets("Tabelle4").Cells(zeile, 9), Sheets("Tabelle4").Cells( _
_
_
zeile, 9)).Copy _
Destination:=Sheets("Bestellschein").Cells(n, 6)
Sheets("Tabelle4").Range(Sheets("Tabelle4").Cells(zeile, 8), Sheets("Tabelle4").Cells( _
_
_
zeile, 8)).Copy _
Destination:=Sheets("Bestellschein").Cells(n, 7)
n = n + 1
End If
Next zeile
With Worksheets("Tabelle4")
.Range("H2: H64 ").ClearContents
.Range("I2:I64").ClearContents
.Range("N3:T3").ClearContents
End With
Sheets("Bestellschein").Activate
End Sub