Thema Datum  Von Nutzer Rating
Antwort
Rot Wert über Schleife zeilenbezogen herauslesen und wiedergeben
 10.08.2016 15:46:40 Benjamin
NotSolved
10.08.2016 15:53:37 Crazy Tom
Solved
10.08.2016 15:55:46 Christian
NotSolved
10.08.2016 16:22:25 Benjamin
NotSolved

Ansicht des Beitrags:
Von:
Benjamin		 Datum:
10.08.2016 15:46:40		 Views:
1614		 Rating:
     
Antwort:
  Ja
Thema:
Wert über Schleife zeilenbezogen herauslesen und wiedergeben

Hallo zusammen,

folgendes Problem quält mich:

Möchte mit einer Prozedur aus dem Bereich L4:L99 herauslesen ob der Wert >0  ist, falls ja soll der Wert "Mail" in die gleiche Zeile in Spalte N wiedergegeben werden.

Momentan behelfe ich mir folgender, uneleganter Lösung:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub  MAIL()
    If Sheets("AÜ").Range("L4").Value > 0 Then
        Sheets("AÜ").Range("N4").Value = "MAIL"
    Else
        If Sheets("AÜ").Range("L5").Value > 0 Then
        Sheets("AÜ").Range("N5").Value = "MAIL"
        Else
            If Sheets("AÜ").Range("L6").Value > 0 Then
            Sheets("AÜ").Range("N6").Value = "MAIL"
            Else
                If Sheets("AÜ").Range("L7").Value > 0 Then
                Sheets("AÜ").Range("N7").Value = "MAIL"
                Else
                    If Sheets("AÜ").Range("L8").Value > 0 Then
                    Sheets("AÜ").Range("N8").Value = "MAIL"
                    Else
                        If Sheets("AÜ").Range("L9").Value > 0 Then
                         Sheets("AÜ").Range("N9").Value = "MAIL"
                         Else
                            If Sheets("AÜ").Range("L10").Value > 0 Then
                            Sheets("AÜ").Range("N10").Value = "MAIL"
                             Else
                                     und so weiter...
                            End If
                        End If
                    End If
                End If
            End If
        End If
     End If
End Sub

Komm einfach nicht darauf wie ich dies mit einer Schleife lösen könnte...

 

Wie immer bin ich für jeden Denkanstoß sehr dankbar,

beste Grüße,

Benjamin

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 Wert über Schleife zeilenbezogen herauslesen und wiedergeben
 10.08.2016 15:46:40 Benjamin
NotSolved
10.08.2016 15:53:37 Crazy Tom
Solved
10.08.2016 15:55:46 Christian
NotSolved
10.08.2016 16:22:25 Benjamin
NotSolved