Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
936to940
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
936to940
936to940
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Array

Array
08.01.2008 12:55:36
michael
Herzlichen Gruß ins Forum
Könnt ihr mir bitte den Nachfolgenden Code so umschreiben
das er NUR die ActiveCell überprüft.

Sub KtNummernVergleich()
Dim varZahlen, c As Range, i As Integer, blnFound As Boolean
varZahlen = Array(8000, 8001, 8002, 8003, 8006, 8007, 8008, _
8010, 8011, 8098, 8099, 8101, 8102, 8103, 8500, 8501, _
7000, 7011, 7012, 7015, 7016, 7017, 7019, 7021, 7022, 7023, 7100, _
4189, 4190, 4191, 4210, 4280, 4380, 4381, 4610, 4640, 4910, 4911, 4920, _
4930, 4940, 4941, 4942, 4943, 4944, 4945, 4946, 4960, 4961, 4970, 9000)
For Each c In Range("F10:F80")
blnFound = False
If c  "" Then
For i = 0 To UBound(varZahlen)
If c = varZahlen(i) Then
blnFound = True
Exit For
End If
Next i
If blnFound = False Then
MsgBox c.Value & "      gibt es nicht"
c.Select
Exit Sub
End If
End If
Next c
End Sub


Danke (der kleine) michael

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

Betreff
Datum
Anwender
Anzeige
AW: Array
08.01.2008 13:05:00
Rudi
Hallo,

Sub KtNummernVergleich()
Dim varZahlen, c As Range
varZahlen = Array(8000, 8001, 8002, 8003, 8006, 8007, 8008, _
8010, 8011, 8098, 8099, 8101, 8102, 8103, 8500, 8501, _
7000, 7011, 7012, 7015, 7016, 7017, 7019, 7021, 7022, 7023, 7100, _
4189, 4190, 4191, 4210, 4280, 4380, 4381, 4610, 4640, 4910, 4911, 4920, _
4930, 4940, 4941, 4942, 4943, 4944, 4945, 4946, 4960, 4961, 4970, 9000)
If IsError(Application.Match(ActiveCell, varZahlen, 0)) Then
MsgBox ActiveCell &" gibt es nicht."
End If
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
Danke für deine "Mühe" (grins)funkt. owT
08.01.2008 15:47:09
michael
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige