Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
252to256
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
252to256
252to256
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Schleife in VBA

Schleife in VBA
13.05.2003 22:02:27
Mrclarify
Hallo

Wer kann mir helfen bei einer Schleifenprogrammierung in VBA
Textfelder auf Userform mit Werten aus Spalte vergleichen und bei Übereinstimmung markieren

Ich möchte gerne Textfelder auf Userform mit Werten in Spalte BM vergleichen.
Das ganze soll bei Klick auf Button 1 geschehen.

Textfeld 2 mit Werten aus Spalte BM 1 bis BM 100 vergleichen dann
Textfeld 3 mit Werten aus Spalte BM 1 bis BM 100 vergleichen dann
...
...
Textfeld 65 mit Werten aus Spalte BM 1 bis BM 100 verglichen.
Schleife beenden

Wenn in den Textfeldern Textfeld 2 Übereinstimmungen mit den Werten aus Spalte BM 1-100 sind, möchte ich das mein Textfeld die Hintergrundfarbe grün bekommt.

Wenn in den Textfeldern Textfeld 3 Übereinstimmungen mit den Werten aus Spalte BM 1-100 sind, möchte ich das mein Textfeld die Hintergrundfarbe grün bekommt.
...
...
Wenn in den Textfeldern Textfeld 3 Übereinstimmungen mit den Werten aus Spalte BM 1-100 sind, möchte ich das mein Textfeld die Hintergrundfarbe grün bekommt.

(Jedes Textfeld mit jeder Zelle in Spalte BM überprüfen)
Textfeld 1 soll nicht überprüft werden!
Schleife beenden

Gruß und Danke im voraus
Carsten

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Schleife in VBA
13.05.2003 23:41:15
Sisto Salera

Hallo Carsten
Ich habe allerdings "nur" Excel XP (10.0). Du musst testen ob das mit Deiner Uraltversion von Excel 97 auch geht.
Option Explicit

'Makro im Codebereich des UserForm1
'Sisto Salera 13.05.2003
Private Sub CommandButton1_Click()
Dim i%, Suche$

For i = 0 To UserForm1.Controls.Count
'Die folgenden 5 Zeilen nur zur Illustration wie Controls angesprochen werden
' On Error Resume Next 'Gewisse Controls haben keine .Name Eigenschaft
' Cells(i + 1, 1) = i
' Cells(i + 1, 2) = UserForm1.Controls.Item(i).Name
' Cells(i + 1, 3) = UserForm1.Controls.Item(i).Value
' Cells(i + 1, 3) = UserForm1.Controls.Item(i).BackColor

On Error GoTo Weiter 'Falls keine Name Eigenschaft
If InStr(UserForm1.Controls.Item(i).Name, "TextBox") > 0 Then
UserForm1.Controls.Item(i).BackColor = &H80000005 'auf weiss setzen
Suche = UserForm1.Controls.Item(i).Value
If Suche > "" Then
If Not Range("BM1:BM100").Find(What:=Suche, LookAt:=xlWhole) Is Nothing Then
UserForm1.Controls.Item(i).BackColor = 65280 'auf grün setzen
End If
End If
End If
Weiter: On Error GoTo 0
Next i
End Sub

Anzeige
Re: Schleife in VBA
14.05.2003 18:51:13
Mrclarify

Hallo Sisto Salera

der Code hat super Funktioniert auch bei Excel 97,
allerdings bräuchte ich noch ne erweiterung habe leider erst jetzt daran gedacht.

meine Textfelder 40-65 sollen 2 überprüfungen durchlaufen den Bereich Tabelle1 Bn1-Bn100 und den Bereich Tabelle2 Bn1-Bn100,die Formatierung soll die gleiche blaiben weis oder grün und wieder alles bei click auf Button1
wie muß ich daß dann machen ich spreche ja nur textfelder allgemein an und nicht bestimmte.

Wäre dankbar wenn du dich nochmal melden würdest.

Gruß Carsten


302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige