Leere Zelle

Sub ZuordnungBasistabellePrüfen() Dim i As Long Dim letzte As Long Dim spalte As Long For spalte = 1 To 12 Step 11 letzte = Cells(Rows.Count, spalte).End(xlUp).Row If IsEmpty(Cells(i, 12)) Then MsgBox "Bitte treffen Sie eine Zuordnung in der markierten Zelle und führen Sie die Prüfung _ erneut durch " Cells.Interior.Color = vbBlue End If Next End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Leere Zelle

10.06.2014 13:45:14

Rudi Maintaire

AW: Leere Zelle

10.06.2014 13:51:45

fcs

AW: Leere Zelle

10.06.2014 14:50:43

Fee1986

AW: Leere Zelle

11.06.2014 09:41:06

Fee1986

AW: Leere Zelle

11.06.2014 12:15:21

fcs

Sub ZuordnungBasistabellePrüfen() Dim letzte As Long letzte = Cells(Rows.Count, 1).End(xlUp).Row If IsEmpty(Cells(letzte, 12)) Then MsgBox "Bitte treffen Sie eine Zuordnung in der markierten Zelle" _ & " und führen Sie die Prüfung erneut durch." Cells(letzte, 12).Interior.Color = vbBlue End If End Sub

Hallo fee,
ein Grundproblem: Variable i hat immer den Wert 0. Dadurch kommt es hier zu einem Fehler, weil es keine Zeile mit der Nummer 0 gibt.
Ansonsten wirkt dein Makro noch recht unvollständig/unausgegoren.
Nach deiner Beschreibung würde ich es wie folgt aufbauen:

Sub ZuordnungBasistabellePrüfen()
Dim letzte As Long
Dim Zeile As Long
Dim wks As Worksheet
Set wks = ActiveSheet
With wks
'letzte Zeile mit Inhalt in Spalte A
letzte = .Cells(.Rows.Count, 1).End(xlUp).Row
For Zeile = 1 To letzte
'prüfen, ob Spalte L in Zeile leer
With .Cells(Zeile, 12)
If IsEmpty(.Value) Then
MsgBox "Bitte treffen Sie eine Zuordnung in der markierten Zelle " _
& "und führen Sie die Prüfung erneut durch "
.Select
.Interior.Color = vbBlue
Exit For
ElseIf .Interior.Color = vbBlue Then
'Farbmarkierung zurücksetzen
If Not IsEmpty(.Value) Then
.Interior.ColorIndex = xlColorIndexNone
End If
End If
End With
Next
End With 'wks
End Sub

Gruß
Franz

Sub ZuordnungBasistabellePrüfen() Dim letzte As Long Dim Zeile As Long Dim wks As Worksheet Set wks = ActiveSheet With wks 'letzte Zeile mit Inhalt in Spalte A letzte = .Cells(.Rows.Count, 1).End(xlUp).Row For Zeile = 1 To letzte 'prüfen, ob Spalte L in Zeile leer With .Cells(Zeile, 12) Select Case .Value Case "UBM", "UBH", "UBV", "V", "H", "D", "O" If .Interior.Color = vbBlue Then 'Farbmarkierung zurücksetzen .Interior.ColorIndex = xlColorIndexNone End If Case Else MsgBox "Bitte treffen Sie eine Zuordnung in der markierten Zelle " _ & "und führen Sie die Prüfung erneut durch " .Select .Interior.Color = vbBlue Exit For End Select End With Next End With 'wks End Sub

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread