Visual Basic Forum

Jenisor · Newbie Anmeldedatum: 23.03.2010 Beiträge: 1

Hallo Community.

Ich habe ein Problem und hoffe dass ihr mir weiterhelfen könnt,da ich selber nicht weiterweiß.Ich muss ein Schulprojekt erstellen und zwar habe ich eine Tabelle mit 5 Spalten wo Daten fehlen oder falsch sind.

Mein Problem ist folgendes.Ich wollte die fehlerhaften/fehlenden farbig markieren und meine Syntax funkt aus einem unbekannten Grund nicht.Die Syntax lautet wie folgt:
---------------------------------------------
Sub Makro1()

Dim i As Long
Dim Tabelle As String

Tabelle = InputBox("Welche Spalte soll geprüft werden")
If Tabelle = "Vorname" Then
For i = 1 To 1000
'soll immer eine zeile weitergehen

hilf = "A" + Str(i)
Range(hilf).Activate

'soll prüfen ob das feld leer ist

If IsEmpty(ActiveCell) Then
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 192
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Else

If Tabelle="Name"then

For i = 1 To 1000
'soll immer eine zeile weitergehen

hilf = "A" + Str(i)
Range(hilf).Activate

'soll prüfen ob das feld leer ist

If IsEmpty(ActiveCell) Then
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 192
.TintAndShade = 0
.PatternTintAndShade = 0
End With

End If
Next i
End If
End Sub
--------------------------------------------------------
Der Befehl läuft immer so weiter.
Was nicht funkt ist der Range(hilf).activate befehl und evnt der Emptybefehl.Ich habe auch direkt mit Range("A"+str(i)) probiert aber es funkt auch nicht.

Könnt ihr mir bitte weiterhelfen und wenn möglich noch verraten wie die Syntax lautet zu Prüfen ob statt ein Text eine Zahl Vorhanden ist. (Hab Microsoft Visual basic 6.5 version)

Ich hoffe ich habe mich einigermaßen verständlich ausgedrückt.

Mfg Jenisor
_________________

muerzi · Verfasst am: 04.05.2010, 11:26

Einzelne Zeilen einer Listbox lassen sich nicht farbig hervorheben