vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Schleifen zusammen legen 
Autor: hepsen
Datum: 11.04.06 19:50
so, hab es jetzt richtig:

Private Sub Form_Load()
Dim i, x, o As Long
Dim lngBackColor(4) As Long
Dim isin As Boolean

lngBackColor(0) = &HFFFFC0
lngBackColor(1) = &HFF00&
lngBackColor(2) = &HFFFF&
lngBackColor(3) = &HFF&

frmMain.testExcel

lngNumberOfRows = frmMain.xlWS.Cells(frmMain.xlWS.Rows.Count, 1).End(xlUp).Row

For x = 0 To File1.ListCount - 1
isin = False

For i = 1 To lngNumberOfRows
lngBackColor(4) = lngBackColor(0)
If (frmMain.xlWS.Cells(i, 1) = File1.List(x) And _
frmMain.xlWS.Cells(i, 4) = "provoked" And _
frmMain.xlWS.Cells(i, 18) = frmMain.uID) Then

isin = True

lngBackColor(4) = lngBackColor(CLng(frmMain.xlWS.Cells(i, 19)))
Tree1.Nodes.Add Text:=File1.List(x)
o = Tree1.Nodes.Count
Tree1.Nodes(o).BackColor = lngBackColor(4)
End If
Next i

If isin = False Then
Tree1.Nodes.Add Text:=File1.List(x)
o = Tree1.Nodes.Count
Tree1.Nodes(o).BackColor = lngBackColor(0)
End If
Next x
End Sub

geht es vielleicht irgendwie noch schneller??? bin aber so schonmal froh dass es läuft und danke für die hilfe
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Schleifen zusammen legen956hepsen10.04.06 10:51
Re: Schleifen zusammen legen534hepsen11.04.06 12:32
Re: Schleifen zusammen legen529Danzi11.04.06 13:01
Re: Schleifen zusammen legen560hepsen11.04.06 13:32
Re: Schleifen zusammen legen510hepsen11.04.06 13:39
Re: Schleifen zusammen legen541Danzi11.04.06 14:20
Re: Schleifen zusammen legen507hepsen11.04.06 14:27
Re: Schleifen zusammen legen519Danzi11.04.06 16:48
Re: Schleifen zusammen legen498hepsen11.04.06 17:05
Re: Schleifen zusammen legen529hepsen11.04.06 19:50
Re: Schleifen zusammen legen570Danzi12.04.06 08:31
Re: Schleifen zusammen legen526Buggy06.05.06 15:54
Re: Schleifen zusammen legen569Danzi06.05.06 19:03
Re: Schleifen zusammen legen483Buggy07.05.06 12:13
Re: Schleifen zusammen legen508Danzi08.05.06 10:10

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel