Thema Datum  Von Nutzer Rating
Antwort
Rot Zeilen kopieren nach Überprüfung eines Wertes
 16.10.2016 21:04:02 Chrissy
NotSolved
20.10.2016 01:06:31 Gast90020
NotSolved

Ansicht des Beitrags:
Von:
Chrissy		 Datum:
16.10.2016 21:04:02		 Views:
1153		 Rating:
     
Antwort:
  Ja
Thema:
Zeilen kopieren nach Überprüfung eines Wertes

Hallo zusammen,

 

Ich hoffe man kann mir bei meinem Vorhaben helfen. Ich habe eine Abfrage eines Wertes, welcher im ersten Tabellenblatt eingetragen wird (Tabelle1 Zeile D7). Im Anschluss erfolgt die Suche des Wertes in einem zweiten Tabellenblatt Tabelle2. Darauf hin soll überprüft werden ob dieser Wert  eine jeweils bestimmte Anzahl kopiert wurde (Dazu habe ich eine Tabelle3, welche für den jeweils eingegebenen Code die maximale Anzahl jedes Elementes überprüft, bisher erhalte ich nur eine MsgBox die darauf hinweist dass die maximale Anzahl erreicht wurde). Wurde diese Zeile bereits zb. 2 mal kopiert soll keine kopie der Zeile in die Tabelle4 erfolgen.

 

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    Dim lngZiel As Long
    Dim varSuche As Variant
    If Not Intersect(Target, Range("D7")) Is Nothing Then
        With Sheets("Ergebnisse")
        lngZiel = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
        End With
        varSuche = Range("D7").Value
        With Sheets("BerechneteTeile")
            Set c = .Columns(32).Find(varSuche, LookIn:=xlValues, lookat:=xlWhole)
            
            
            If Not c Is Nothing Then
                .Rows(c.Row).Copy Sheets("Ergebnisse").Cells(lngZiel, 1)
                MsgBox "Bauteil wurde in die Stückliste aufgenommen"
            
            Call Limitierung
            Call Legogesicht
            
            
            Else
                MsgBox "Bauteil wurde nicht gefunden, bitte erneut scannen!"
            End If
        End With
    End If
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zeilen kopieren nach Überprüfung eines Wertes
 16.10.2016 21:04:02 Chrissy
NotSolved
20.10.2016 01:06:31 Gast90020
NotSolved