Thema Datum  Von Nutzer Rating
Antwort
25.06.2019 15:29:13 Stephan
NotSolved
25.06.2019 15:35:43 Gast69765
NotSolved
25.06.2019 16:03:19 Gast73226
NotSolved
25.06.2019 16:28:15 Gast94994
NotSolved
25.06.2019 19:55:06 Gast11320
NotSolved
26.06.2019 08:22:51 Stephan
NotSolved
26.06.2019 08:47:56 Gast9569
NotSolved
26.06.2019 09:17:25 Gast90511
NotSolved
27.06.2019 11:24:20 Gast21880
NotSolved
Blau Procedur zu groß
 27.06.2019 11:29:42 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
27.06.2019 11:29:42		 Views:
520		 Rating:
     
Antwort:
  Ja
Thema:
Procedur zu groß

Hallo Stephan,

versuche

Sub N
von_bis = Array(6, 12, 21, 27,.......) 'Ergänze Anfang und Ende deiner Blöcke
a = UBound(von_bis)
If a \ 2 = a / 2 Then MsgBox "Adressenreihe enthält Fehler!": Exit Sub
    For j = 0 To a Step 2
        For i = von_bis(j) To von_bis(j + 1)
            If Cells(16, i).Text < "0" Then
                If Not Intersect(Target, Cells(15, i)) Is Nothing Then
                    Cells(15, i).Value = "ü"
                    Cancel = True
                End If
            End If
            If Cells(15, 1).Text < "0" Then
                If Not Intersect(Cells(16, i)) Is Nothing Then
                    Cells(16, i).Value = "ü"
                    Cancel = True
                End If
            End If
        Next
    Next
End If
End sub

 

Diese Prozedur sollte deine vollständig ersetzen. Ich habe sie aber nicht getestet!

Gruß
Holger

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
25.06.2019 15:29:13 Stephan
NotSolved
25.06.2019 15:35:43 Gast69765
NotSolved
25.06.2019 16:03:19 Gast73226
NotSolved
25.06.2019 16:28:15 Gast94994
NotSolved
25.06.2019 19:55:06 Gast11320
NotSolved
26.06.2019 08:22:51 Stephan
NotSolved
26.06.2019 08:47:56 Gast9569
NotSolved
26.06.2019 09:17:25 Gast90511
NotSolved
27.06.2019 11:24:20 Gast21880
NotSolved
Blau Procedur zu groß
 27.06.2019 11:29:42 Holger
NotSolved