Herbers Excel-Forum - das Archiv
Überprüfung ob Eingabe erfolgt ist
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
- Überprüfung ob Eingabe erfolgt ist von Micha vom 28.11.2003 12:48:09
- AW: Überprüfung ob Eingabe erfolgt ist - von PeterW am 28.11.2003 13:08:58
- AW: Überprüfung ob Eingabe erfolgt ist - von Frederik Fuhrmann am 28.11.2003 13:09:02
- Danke, daraus sollte sich was machen lassen oT. - von Micha am 28.11.2003 13:21:10
- AW: Überprüfung ob Eingabe erfolgt ist - von PeterW am 28.11.2003 13:08:58
 |
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
 |
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
|
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.
|
Betrifft: Danke, daraus sollte sich was machen lassen oT.
von: Micha
Geschrieben am: 28.11.2003 13:21:10
:-)
| |