Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Nordsee-Nacken vom 20.01.2021, 08:09 Options

Einfügen von Werten wenn bestimmter Text in Zelle

Moin Moin Ihr Fleissigen,

ich suche ein Makro das folgendes können muss.

Wenn in F6 der Text Urlaub steht, sollte in B6 der Wert 8 eingetragen werden.
Wenn in F7 der Text Urlaub steht, sollte in B7 der Wert 8 eingetragen werden.
usw. bis Zeile 36

Vorab schon mal vielen Dank

Gruß Nordsee-Nacken

Antwort schreiben

Antwort 1 von Hajo_Zi vom 20.01.2021, 09:27 Options

Hallo Nick,

warum Makro? Warum nicht einfach WENN()

Gruß Hajo

Antwort 2 von Saarbauer vom 20.01.2021, 09:49 Options

Hallo,

schreibe in Zelle B6

=Wenn(F6="Urlaub";8; "hier was sonst passieren soll")

und ziehe dies bis Zeile 36 nach unten

Gruß

Helmut

Antwort 3 von Nordsee-Nacken vom 20.01.2021, 09:53 Options

Moin,

Die Idee war meine erste, abergeht leider nicht, da in diesen Zellen Werte eingegeben weden müssen. Deshalb brauch ich diese Funktion als VBA

Gruß

Nordsee-Nacken

Antwort 4 von Saarbauer vom 20.01.2021, 10:12 Options

Hallo,

wenn ein Wert eigebenen wird, dann trifft die Wenn()-Bedingung ja nicht zu und wird somit einfach überschrieben.
Fall erledigt.

Gruß

Helmut

Antwort 5 von Nordsee-Nacken vom 20.01.2021, 10:21 Options

Ja, das ist schon klar, Was passiert aber wenn der Wert wieder gelöscht wird? Dann ist die Formatierung ja auch weg, oder ?

Antwort 6 von fedjo vom 20.01.2021, 10:34 OptionsLösung

Hallo Nordsee-Nacken,
Code in Tabelle eintragen.

Gruß
fedjo

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("F6:F36")
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
If RaZelle.Value = "Urlaub" Then RaZelle.Offset(0, -4) = 8
End If
Next RaZelle
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub

Antwort 7 von Nordsee-Nacken vom 20.01.2021, 11:38 Options

Danke fredjo,

klappt super :) so meinte ich es

Ein fettes Dankeschön

Antwort 8 von Hajo_Zi vom 20.01.2021, 12:35 Options

Hallo,

das Problem ist ja schon als glöst markiert. Es geht aber auch eine Lösung ohne VBA.
Bedibngte Formatierung, For,mel ist =F6="Urlaub", Zellenformat Benutzerdefiniert und als Format "8" intragen. Dann intressiert nicht was vorher drin steht es wird 8 angezeigt.

Gruß Hajo

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..