Thema Datum  Von Nutzer Rating
Antwort
15.09.2014 14:09:11 Tiemo Gregor
NotSolved
Blau Erstellung eines Arrays mit Loopfunktion
 15.09.2014 20:03:58 Gast62018
****
NotSolved
15.09.2014 20:53:49 Gast53643
NotSolved
16.09.2014 06:49:23 Gast69949
NotSolved
16.09.2014 16:53:02 Tiemo Gregor
NotSolved
16.09.2014 17:39:28 Gast84931
*
NotSolved
16.09.2014 17:50:51 Tiemo Gregor
NotSolved
16.09.2014 19:10:57 Gast85151
*****
NotSolved
16.09.2014 20:36:18 Tiemo Gregor
NotSolved

Ansicht des Beitrags:
Von:
Gast62018		 Datum:
15.09.2014 20:03:58		 Views:
874		 Rating:
     
Antwort:
  Ja
Thema:
Erstellung eines Arrays mit Loopfunktion
?
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
32
33
34
35
36
37
38
39
40
41
42
43
Option Explicit
 
Sub Geldhaushalt()
   
  Dim rngCell As Excel.Range
   
  'erste Zelle referenzieren
  Set rngCell = Worksheets(3).Range("I1")
  'bzw.
  'Set rngCell = Worksheets("Tabelle3").Range("I1")
   
  'solange verarbeiten bis Zelle leer ist
  Do Until IsEmpty(rngCell.Value)
     
    Select Case Trim$(rngCell.Text)
      'Gruppe 1
      Case "E1", "E2", "E3", "EE1", "EE2", "EE3", "EE4"
        rngCell.Interior.Color = RGB(0, 128, 0)
      'Gruppe 2
      Case "T1", "T2", "T3", "T4", "T5", "TT1", "TT2", "TT3"
        rngCell.Interior.Color = RGB(0, 204, 255)
      'Gruppe 3
      Case "Z1", "Z2", "Z3"
        rngCell.Interior.Color = RGB(153, 51, 0)
      'Gruppe 4
      Case "U1", "U2", "U3"
        rngCell.Interior.Color = RGB(153, 51, 102)
      'Gruppe 5
      Case "K", "TEC", "NEC"
        rngCell.Interior.Color = RGB(51, 51, 51)
      'Gruppe 6
      Case "STR", "ENT", "KUR", "SOF", "SER", "ORG", "RE"
        rngCell.Interior.Color = RGB(255, 0, 0)
      '.. und ansonsten
      Case Else
        rngCell.Interior.ColorIndex = xlColorIndexNone
    End Select
     
    'nächste Zelle referenzieren (= eine tiefer)
    Set rngCell = rngCell.Offset(RowOffset:=1)
  Loop
   
End Sub

Was die IndexNr zu bedeuten hat, hab ich nicht verstanden.

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
15.09.2014 14:09:11 Tiemo Gregor
NotSolved
Blau Erstellung eines Arrays mit Loopfunktion
 15.09.2014 20:03:58 Gast62018
****
NotSolved
15.09.2014 20:53:49 Gast53643
NotSolved
16.09.2014 06:49:23 Gast69949
NotSolved
16.09.2014 16:53:02 Tiemo Gregor
NotSolved
16.09.2014 17:39:28 Gast84931
*
NotSolved
16.09.2014 17:50:51 Tiemo Gregor
NotSolved
16.09.2014 19:10:57 Gast85151
*****
NotSolved
16.09.2014 20:36:18 Tiemo Gregor
NotSolved