Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1856to1860
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1856to1860
1856to1860
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leere Zelle

Leere Zelle
17.11.2021 10:26:28
susu
Hallo,
ich habe eine Excel-Liste mit Auswahlkriterien aus einer Dropdownliste wie z.B. Führung: entweder innenverschraubt oder außenverschraubt. Wenn ich außenverschraubt anwähle, soll ich in die Zelle daneben eine beliebige Zahl eingeben können. Wenn ich aber innenverschraubt anwähle, soll in der Zelle daneben nichts stehen.
Vielen Dank!

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leere Zelle
17.11.2021 10:41:35
UweD
Hallo
angenommen deine Auswahldaten stehen in A:A und die Eingabe soll in B:B erfolgen
- Die Zellen A1:A.. markieren und Datenüberprüfung zuweisen (Zulassen: Liste; Quelle: innenverschraubt; aussenverschraubt)
- Die Zellen B1:B.. markieren und Datenüberprüfung zuweisen (Zulassen: Benutzerdefiniert; Formel: =A1="aussenverschraubt"; Haken bei Leere Zellen rausnehmen)
Probleme gibt es, wenn du bei bestehender Eingabe in B davor den Wert wechselst
LG UweD
AW: Leere Zelle
17.11.2021 11:28:32
susu
Hallo,
genau das ist mein Problem. Wenn ich eine Zahl eingebe, geht sie nicht mehr weg. Aber ich will, dass die Zahl nur dann steht, wenn ich "außenverschraubt" anwähle.
Danke.
Anzeige
AW: Leere Zelle
17.11.2021 11:38:21
UweD
Dann über VBA
dazu bitte Musterdatei hochladen
LG UweD
AW: Leere Zelle
17.11.2021 11:49:53
susu
Hallo,
wenn B3="außenverschraubt", dann bei E3 eine Zahl eintragen.
wenn B3="innenverschraubt" oder "nicht vorhanden", dann soll E3 leer sein.
Danke dir!
AW: Leere Zelle
17.11.2021 12:34:40
Pierre
Hallo susu,
z. B. hiermit (nur auf die Schnelle):

Sub ZahlEinfügen()
Dim Zahl As String
If Cells(3, 2).Value = "außenverschraubt" Then
Zahl = InputBox("Bitte Zahl eingeben:")
If IsNumeric(Zahl) Then
Cells(3, 5).Value = Zahl
ElseIf Not IsNumeric(Zahl) Then MsgBox ("Bitte eine Zahl eingeben!")
End If
ElseIf Cells(3, 2).Value  "außenverschraubt" Then
Cells(3, 5).ClearContents
End If
End Sub
Wenn "außenverschraubt" in B3 steht, öffnet sich eine Box, in die eine Zahl eingegeben werden kann, welche dann in E3 übernommen wird.
Steht in B3 irgendwas anderes, dann wird E3 geleert.
Außerdem ist eine Prüfung dabei, ob eine Zahl eingegeben wurde. Wenn nicht, kommt ein Hinweis, dass nur Zahlen eingegeben werden dürfen.
Gruß Pierre
Anzeige
AW: Leere Zelle
17.11.2021 17:11:10
UweD
Hallo nochmal
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- Den Code rechts reinkopieren
- Code ggf. anpassen

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Vergl1 As String, Vergl2 As String
Dim RNG As Range, Off As Integer
On Error GoTo Fehler
Const APPNAME = "Worksheet_Change"
Set RNG = Range("B3:B100") 'anpassen
Off = 3 'Offset für Eingabespalte
Vergl1 = "innenverschraubt"
Vergl2 = "nicht vorhanden"
If Not Intersect(RNG, Target) Is Nothing Then
Select Case Target.Value
Case Vergl1, Vergl2
Application.EnableEvents = False
Target.Offset(0, Off).ClearContents
Application.EnableEvents = True
Case Else
Target.Offset(0, Off).Select
End Select
End If
'*** Fehlerbehandlung
Err.Clear
Fehler:
Application.EnableEvents = True
If Err.Number  0 Then MsgBox "Fehler in Sub """ & APPNAME & """" & vbCrLf _
& "Fehlernummer: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Bei Änderungen in B3:B100 wird geprüft und entsprechend geändert.
! Zellen einzeln ändern!
LG UweD
Anzeige
AW: Leere Zelle
17.11.2021 12:04:37
Rudi
Hallo,
das geht dann nur per VBA
Gruß
Rudi
AW: Leere Zelle
17.11.2021 13:53:58
GerdL
Moin,
kopiere ins Modul der Tabelle u. teste.

Private Sub Worksheet_Change(ByVal Target As Range)
Const strDropcell As String = "B3"
Const strCheck As String = "außenverschraubt"
Const strInputcell As String = "E3"
If Target.Address(0, 0) = strDropcell Then
If Target.Value  strCheck Then
Application.EnableEvents = False
Range(strInputcell).ClearContents
Application.EnableEvents = True
End If
ElseIf Target.Address(0, 0) = strInputcell Then
If Range(strDropcell)  strCheck Then
Application.EnableEvents = False
Range(strInputcell).ClearContents
Application.EnableEvents = True
End If
End If
End Sub
Gruß Gerd
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige