Formel anwenden wenn Leer

[David Lange]

Hallo,

ich suche nach einer Möglichkeit eine Zelle so zu formatieren das man etwas per Hand eintragen kann oder das eine Formel darauf angewendet wird Hintergrund dazu ist.
Es gibt bei uns verschiedene Personallisten dazu gibt es eine Alphaliste in der alle Personaldaten stehen, auf diese Liste beziehen sich alle anderen Personallisten.
Jetzt kann es vorkommen das gewisse Daten der Alphaliste nicht Aktuell sind da diese nur Quartalsweise aktualisiert wird. Ich würde meine Personalliste so aufstellen
das sich gewisse Zellen auf die Alphaliste beziehen sollte allerdings ein wert nicht mehr Aktuell sein so soll die per Hand geändert werden könne.

Der Grundgedanke zur Formel wäre folgender:

Wenn Zelle Leer dann Formel (Sverweis*******)
Wenn Zelle beschrieben dann keine Formel.

Ich hoffe ich habe es verständlich erklärt

Gruß

David

[BoskoBiati]

Hi,

geht nur mit VBA!

[David Lange]

:19:  das habe ich mir schon gedacht kann mir jemand weiterhelfen wie das aussehen muss :19:

[schauan]

Hallöchen,

im Prinzip etwas in der Art:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'Wenn eine Zelle im Bereich B1:B10 geändert wurde, dann
If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
  'Wenn der Inhalt entfernt wurde, dann Formel eintragen
  If Target.Value = "" Then Target.Formula = "=A1"
'Wenn eine Zelle im Bereich B1:B10 geändert wurde, dann
End If
End Sub

[David Lange]

Entschuldige die späte Antwort das ganze hilft mir schon etwas weiter allerdings stehe ich noch von einer Herausforderung. In dem ausgewählten Bereich
hat jede Zelle durch SVERWEIS quasi eine andere Formel in deinem Makro kann ich aber nur eine bestimmte Formel für den ganzen Bereich eingeben.

Gruß

David

[Rabe]

Hi,

und woher sollen wir das wissen?
Sollen wir uns nun die Formeln aus der Nase ziehen oder selber überlegen?

Es ist schwierig, sich aus einer Beschreibung eine Datei zu erstellen, die zum Testen von Funktionen, Formeln und Makros geeignet ist, dazu müßte sie gleich aufgebaut sein wie Deine Datei.
Also stelle bitte (D)eine (Beispiel-)Tabelle als Excel-Datei zur Verfügung oder stelle die relevanten Ausschnitte und die Makro-Codes hier dar, siehe die als Wichtige Themen: markierten Beiträge im Forum "Nutzungs- und Bedienungshinweise" bei "Forumstechnik".

• Eine Beispieldatei muss vom Aufbau her zwingend dem Original gleichen, sonst wird's mit gezielter Hilfe i. d. R. nichts oder erst nach zig Nachfragen
  
• Meistens reichen 10-15 Datensätze
  
• Sensible Daten sollen anonymisiert werden
  
• Bei einigen Datensätzen sollte unbedingt händisch das Wunschergebnis eingetragen sein
  
• Und last but not least ist es wichtig, im Post zugeschnitten auf die Beispieldatei eine ordentliche Problembeschreibung abzugeben.
  

Die farbigen Texte sind anklickbare Links.

Hier steht, wie es geht:
Beitrag 1 WICHTIG: Arbeitsmappen zur Verfügung stellen
Beitrag 2 WICHTIG: Tabellenausschnitte und VBA-Codes im Forum einstellen

Eine Bitte:
Anstatt Screenshots ist eine Datei oder ein Ausschnitt besser!
"Du gehst ja auch nicht in die Werkstatt und gibst zur Reparatur ein Foto Deines kaputten Autos ab!"

[schauan]

Hallöchen,

wenn verschiedene Formeln zur Anwendung kommen, musst Du die auch irgendwo definieren oder komplett im code programmieren.
z.B.
If Target.Address = "$B$1" And Target.Value = "" Then Target.Formula = "=A1"
If Target.Address = "$B$2" And Target.Value = "" Then Target.Formula = "=A1+A2"
usw.
(alternativ
Select Case Target.Adress
Case "$B$1": If Target.Value = "" Then Target.Formula = "=A1"
Case "$B$2": If Target.Value = "" Then Target.Formula = "=A1+A2"
End Select