Thema Datum  Von Nutzer Rating
Antwort
19.10.2016 16:25:59 Sabrina
NotSolved
Blau Zeile kopieren mit mehrfach Bedingungen
 19.10.2016 17:57:22 Gast73597
NotSolved
19.10.2016 23:17:23 Nobody
NotSolved
20.10.2016 12:31:54 Gast42277
NotSolved
20.10.2016 12:41:51 Gast29717
NotSolved
20.10.2016 14:15:47 NobodyPrivate Sub Wo
NotSolved

Ansicht des Beitrags:
Von:
Gast73597		 Datum:
19.10.2016 17:57:22		 Views:
749		 Rating:
     
Antwort:
  Ja
Thema:
Zeile kopieren mit mehrfach Bedingungen

Sollte die Limitierung nicht prüfen bevor kopiert wird - z.B.

 

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
      If Not ChkLimit(Target.Value, 2) Then Exit Sub
      'action
    End If
End Sub

Private Function ChkLimit(ByVal varS As Variant, intMax As Integer) As Boolean
Dim rngfnd As Range, c As Range
   With Sheets("Limit").Columns("A")
      Set rngfnd = .Find(varS, , , xlWhole)
      If Not rngfnd Is Nothing Then
         Set c = rngfnd.Offset(, 1)
         If c.Value < intMax Then
            c.Value = c.Value + 1
            ChkLimit = True
         Else
            'ggf. Msg
         End If
      Else
         MsgBox "Limit nicht erkannt"
      End If
   End With
End Function

 

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
19.10.2016 16:25:59 Sabrina
NotSolved
Blau Zeile kopieren mit mehrfach Bedingungen
 19.10.2016 17:57:22 Gast73597
NotSolved
19.10.2016 23:17:23 Nobody
NotSolved
20.10.2016 12:31:54 Gast42277
NotSolved
20.10.2016 12:41:51 Gast29717
NotSolved
20.10.2016 14:15:47 NobodyPrivate Sub Wo
NotSolved