Überprüfung ob Eingabe erfolgt ist

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Überprüfung ob Eingabe erfolgt ist
von: Micha
Geschrieben am: 28.11.2003 12:48:09

Hallo,

in Zellen A1 bis A40 können werte eingegeben werden, wenn dort ein Wert steht muss durch den Anwender auch in der entsprechenden Zeile von B1 bis B40 ein Wert eingetragen werden.
Ich möchte jetzt abfragen ob in der B Spalte auch ein Wert steht wenn in Spalte A einer drinsteht.

Kann jemand helfen??

Hintergrund:

Diese Überprüfung möchte ich in einem Makro unterbringen, welches die Druckvorschau aufruft und schon existiert, in dem Fall das einem Wert in Spalte A kein Wert in Spalte B zugeordnet ist erscheint dann eine MessageBox die zur Eintragung auffordert.

Gruss

Bild


Betrifft: AW: Überprüfung ob Eingabe erfolgt ist
von: PeterW
Geschrieben am: 28.11.2003 13:08:58

Hallo Micha,

probier es mal so:

Sub Vorhanden()
Dim lgRow As Long
For lgRow = 1 To 40
  If Cells(lgRow, 1) <> "" And Cells(lgRow, 2) = "" Then
    MsgBox "Eingabe fehlt"
    Cells(lgRow, 2).Select
  End If
Next
End Sub

Gruß
Peter


Bild


Betrifft: AW: Überprüfung ob Eingabe erfolgt ist
von: Frederik Fuhrmann
Geschrieben am: 28.11.2003 13:09:02

Hallo!

Hier mal den Ansatz:

Dim c As Range

For Each c In Range("A1:A40")
If c <> "" Then
If c.Offset(0, 1) = "" Then
MsgBox "Bitte tragen Sie die fehlenden Werte ein!"
End If
End If
nex c


Gruß
F.


Bild


Betrifft: Danke, daraus sollte sich was machen lassen oT.
von: Micha
Geschrieben am: 28.11.2003 13:21:10

:-)


Bild

Beiträge aus den Excel-Beispielen zum Thema " Überprüfung ob Eingabe erfolgt ist"