Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Kopieren mit 2 Bedingungen

Betrifft: Kopieren mit 2 Bedingungen von: Andre
Geschrieben am: 14.10.2020 21:14:15

Hallo Zusammen


Ich habe mal wieder ein Problem:( und zwar habe ich ein Code mit dem eine Zeile kopiert mit Bedingung wie muss ich den Code aendern das er zwei Bedingungen erfuellt und dem entsprechent kopiert.

Die erste Bedingung steht in Tabelle1 ab B29 und die zweite ab C29 gesucht werden sollen die Bedingungen in Tabelle 3 in Spalte D und Spalte E

Kopiert werden soll dann der Zellinhalt Tabelle1 ab F29
Eine Beispieldatei habe hochgeladen https://www.herber.de/bbs/user/140885.xlsx


Vielen Dank im voraus

Hier der Code:

Private Sub CommandButton1_Click()
     Dim vntRow, c As Long
     vntRow = Application.Match(Tabelle1.Range("B29"), Tabelle3.Columns(4), 0)
                                'Lieferschein           'Haupttabelle
     If IsError(vntRow) Then
       MsgBox "Nummer nicht vorhanden"
     Else
       With Tabelle3 'Haupttabelle
         For c = 8 To 12
           If .Cells(vntRow, c) = "" Then
             .Cells(vntRow, c) = Tabelle1.Range("F29")
                                'Lieferschein
             Exit For
           End If
         Next c
       End With
     End If
 End Sub

Betrifft: AW: Kopieren mit 2 Bedingungen
von: Herbert_Grom
Geschrieben am: 15.10.2020 17:39:03

Hallo Andre,

schau dir mal meinen Vorschlag an:

https://www.herber.de/bbs/user/140896.xlsm

Servus

Betrifft: AW: Kopieren mit 2 Bedingungen
von: Andre
Geschrieben am: 17.10.2020 21:03:46

Hallo Herbert

Vielen vielen Dank das laeuft super genau was ich gesucht habe
Sorry das ich mich erst jetzt melde.

Betrifft: AW: Gerne geschehen und danke für die Rückmeldung!
von: Herbert_Grom
Geschrieben am: 18.10.2020 09:42:53

,,,