Office: Wenn Zelleninhalt gleich Wert dann

Giesel86 · 23. Juni 2014

Halli Hallo,

ich habe folgendes kléines Problemchen,

ich möchte eine Prüfung durchführen lassen wenn ab der Zeile 7 in der Spalte 12eins der folgenden Texte eingeben ist:
UBM, UBV, UBH, H, V, D, SW, O oder die zelle nicht leer ist dann soll eine MsgBox komme: "Es wurden alle Umfänge zugeordnet!"
ansonsten soll die Zelle blau markiert werden und die MsgBox kommen: "Bitte treffen Sie eine Zuordnung in der markierten Zelle und führen Sie die Prüfung erneut durch!"
Wenn alles stimmt sollen alle Markierungen gelöscht werden

Meine Programmierung:

Code:

Function ZuordnungBasistabellePrüfen2()
Dim letzte As Long
Dim Zeile As Long
Dim wks As Worksheet
Set wks = ActiveSheet

With wks
letzte = Cells(.Rows.Count, 4).End(xlUp).Row 'letzte Zeile mit Inhalt in Spalte E

For Zeile = 7 To letzte
With .Cells(Zeile, 12)
If Cells.Value = "SW" Or Cells.Value = "UBM" Or Cells.Value = "UBV" Or Cells.Value = "UBH" Or Cells.Value = "D" Or Cells.Value = "H" Or Cells.Value = "V" Then
If Not IsEmpty(.Value) Then 'prüfen, ob Spalte L in Zeile leer
MsgBox "Es sind alle Umfänge zugeordnet!"
Else
MsgBox "Bitte treffen Sie eine Zuordnung in der markierten Zelle " _
& "und führen Sie die Prüfung erneut durch "
.Select 'Zelle auswählen
.Interior.Color = vbBlue 'leere Zelle blau markieren
Exit For
End If
If IsEmpty(.Value) Then 'Wenn die Zelle nicht leer ist, dann keine farbl. Markierung
.Interior.ColorIndex = xlColorIndexNone
End If

End If
End With
Next
End With 'wks
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es kommt der Laufzeitfehller #1007: nicht genügend speicher *mad.gif*

kann mir jemand behilflich sein? danke *Smilie

:)

Mc Santa · 25. Juni 2014

Hallo,

ohne Datei kann man sehr schlecht helfen, aber mal ein Schuss ins Blaue:
Code:

Function ZuordnungBasistabellePrüfen2()
Dim letzte As Long
Dim Zeile As Long
Dim wks As Worksheet
Set wks = ActiveSheet

With wks
letzte = .Cells(.Rows.Count, 4).End(xlUp).Row 'letzte Zeile mit Inhalt in Spalte E

For Zeile = 7 To letzte
With .Cells(Zeile, 12)
If .Value = "SW" Or .Value = "UBM" Or .Value = "UBV" Or .Value = "UBH" Or .Value = "D" Or .Value = "H" Or .Value = "V" Then
If Not IsEmpty(.Value) Then 'prüfen, ob Spalte L in Zeile leer
MsgBox "Es sind alle Umfänge zugeordnet!"
Else
MsgBox "Bitte treffen Sie eine Zuordnung in der markierten Zelle " _
& "und führen Sie die Prüfung erneut durch "
.Select 'Zelle auswählen
.Interior.Color = vbBlue 'leere Zelle blau markieren
Exit For
End If
If IsEmpty(.Value) Then 'Wenn die Zelle nicht leer ist, dann keine farbl. Markierung
.Interior.ColorIndex = xlColorIndexNone
End If

End If
End With
Next
End With 'wks
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hilft dir das weiter?

VG

Giesel86 · 25. Juni 2014

super es klappt alles *Smilie DANKE!!

Office: Wenn Zelleninhalt gleich Wert dann

Wenn Zelleninhalt gleich Wert dann

Wenn Zelleninhalt gleich Wert dann

Wenn Zelleninhalt gleich Wert dann - Similar Threads - Zelleninhalt Wert

Zelleninhalte in andere Zelle mit Komma getrennt

Zelleninhalte Text zerlegen

VBA Kopieren von Zelleninhalte in Textbox

Übertragung von Zelleninhalten aus einer in eine andere Tabelle

Excel Funktion, Ergebnis aus Zelle behalten obwohl Ursprungszelle entfernt wird

Zelleninhalt Datumsabhängig ändern

3 Zelleninhalte auf identischen Wert prüfen, wenn nicht die Zelle nicht leer ist