Registriert seit: 27.11.2017
Version(en): 2010
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
Registriert seit: 13.04.2014
Version(en): 365
Hi,
geht nur mit VBA!
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Registriert seit: 27.11.2017
Version(en): 2010
:19: das habe ich mir schon gedacht kann mir jemand weiterhelfen wie das aussehen muss :19:
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
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
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 27.11.2017
Version(en): 2010
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
Registriert seit: 10.04.2014
Version(en): 2016 + 365
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 stellenBeitrag 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!"
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
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
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)