Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1372to1376
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Eingabe erzwingen wenn Nachbarzelle nicht leer

Eingabe erzwingen wenn Nachbarzelle nicht leer
08.08.2014 13:53:35
Andreas
Hallo,
sitz gerade an einem kniffligen Problem:
Wenn ich in der Zelle I etwas eingebe (in diesem Fall sind das Koordinaten) dann möchte ich dass man gezwungen wird in der Zelle J eine Auswahl zutreffen (um beurteilen zu können wie genau die Daten sind), ich habe die Auswahl momentan über die Gültigkeit - Liste gemacht, ich schaffe aber keine Abhängigkeit zur linken Nachbarzelle :-(
Jetzt bin ich mir relativ sicher dass das nur über VBA gehen wird und da kenn ich mich leider nicht aus.
Wär cool wenn mir jemand helfen könnte.
https://www.herber.de/bbs/user/91973.xlsx

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eingabe erzwingen wenn Nachbarzelle nicht leer
08.08.2014 16:58:39
fcs
Hallo Andreas,
wie du schon erkannt hast - es geht nur via VBA.
Die entprechenden Makros müssen auf die Eingabe von Werten in den Spalten reagieren und die seelction von Zellen.
Gruß
Franz
Das sieht dann etwa wie folgt aus.
'Code im VBA-Editor unter dem Tabellenblatt der Datei in dem die Einagebn gemacht werden.
Option Explicit
Dim ZelleAlt As Range
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
Application.EnableEvents = False
If Target.Column = 9 And Target.Columns.Count = 1 Then
For Each Zelle In Target.Cells
If Zelle.Offset(0, 1) = "" And Zelle.Value  "" Then
Zelle.Offset(0, 1).Select
Set ZelleAlt = Zelle.Offset(0, 1)
GoTo Beenden
End If
Next
ElseIf Target.Column = 10 And Target.Columns.Count = 1 Then
For Each Zelle In Target.Cells
If Zelle.Offset(0, -1)  "" And Zelle.Value = "" Then
Zelle.Select
MsgBox "Bitte Auswahl in Spalte J machen"
GoTo Beenden
End If
Next
End If
Beenden:
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Not ZelleAlt Is Nothing Then
If ZelleAlt.Offset(0, -1)  "" Then
If ZelleAlt.Value = "" Then
'        MsgBox "Bitte Auswahl in Spalte J machen"
ZelleAlt.Select
GoTo Beenden
End If
End If
End If
If Target.Column = 10 Then
Set ZelleAlt = Target.Range("A1")
Else
Set ZelleAlt = Nothing
End If
Beenden:
Application.EnableEvents = True
End Sub

Anzeige
AW: Eingabe erzwingen wenn Nachbarzelle nicht leer
11.08.2014 08:26:56
Andreas
Servus Franz,
des is der Wahnsinn, funktioniert super!!!!
Ganz herzliches Dankeschön, es ist immer wieder erstaunlich welche Klasse Menschen hier in diesem Forum sind!
LG
Andreas

367 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige