identificer skrifttype

   Hej. Jeg har behov for noget i stil med: =hvis(A1="kursiv";1;2)     Altså en "hvis-reaktion" på om en anden celle er skrevet i kursiv. 
Kan nogen genier hjælpe?

Forfatter	Besked / Se Ulæst Post Del emne Printervenlig udgave Delicious Digg Facebook Furl Google Boomarks Google Buzz MySpace Newsvine reddit StumbleUpon Oversæt Twitter Windows Live Yahoo Bookmarks Emne Søg Emne Funktioner Besvar Opret Nyt Emne
Lars Gissel Medlems Profil Send personlig besked Find Medlems Indlæg Føj til venneliste Bronze bruger Medlem siden: 06-Juli-2010 Land: DK Status: Offline Beskeder: 3	Indlæg Funktioner Besvar Citér Lars Gissel Rapportér besked Citér Svar Emne: identificer skrifttype Sendt: 06-Juli-2010 kl. 13:02
	Hej. Jeg har behov for noget i stil med: =hvis(A1="kursiv";1;2) Altså en "hvis-reaktion" på om en anden celle er skrevet i kursiv. Kan nogen genier hjælpe?



Allan Medlems Profil Send personlig besked Find Medlems Indlæg Besøg Medlems Hjemmeside Føj til venneliste Forum Admin Medlem siden: 03-Februar-2010 Land: Danmark Status: Offline Beskeder: 127	Indlæg Funktioner Besvar Citér Allan Rapportér besked Citér Svar Sendt: 07-Juli-2010 kl. 22:24
	Hej Lars, Jeg er ikke bekendt med en formel som kan det du erfterspørger, måske andre kan hjælpe? Er du bekendt med VBA (makroer)? Hvis ja, så skriver jeg gerne en lille stump kode som kan klare din udfordring. //Allan

Lars Gissel Medlems Profil Send personlig besked Find Medlems Indlæg Føj til venneliste Bronze bruger Medlem siden: 06-Juli-2010 Land: DK Status: Offline Beskeder: 3	Indlæg Funktioner Besvar Citér Lars Gissel Rapportér besked Citér Svar Sendt: 08-Juli-2010 kl. 07:16
	Hej Allan. Tak for dit svar. Ja - jeg har arbejdet med makroer før, og vil meget gerne se din kode! Venlig hilsen Lars

Allan Medlems Profil Send personlig besked Find Medlems Indlæg Besøg Medlems Hjemmeside Føj til venneliste Forum Admin Medlem siden: 03-Februar-2010 Land: Danmark Status: Offline Beskeder: 127	Indlæg Funktioner Besvar Citér Allan Rapportér besked Citér Svar Sendt: 08-Juli-2010 kl. 13:04
	Hej Lars, Sæt denne UDF ind i et modul. Tryk ALT+F11 Højreklik på THISWORKBOOK og indsæt et Modul I det nye modul, indsætter du følgende: Function TælKursiv(Celler As Range) Antal = 0 For Each Celler In Celler If Celler.Font.Italic = True And Celler.Value <> "" Then Antal = Antal + 1 Next TælKursiv = Antal End Function Forklaring: Nu har du fået en ny formel i Excel som kan tilgås fra formellinjen som normale formler. Skriv f.eks. =TælKursiv(A1) Nu tælles om A1 er kursiv eller ej. Skriv f.eks. =TælKursiv(A1:A100) Nu tælles hvor mange kursive celler der er i området A1:A100 Bemærk at en ændring af et format ikke tvinger Excel til at genberegne formler, så formlen beregner først når der tastes i arket. Din formel vil så blive noget ála =HVIS(TælKursiv(A1)>0;1;2) Virker det efter hensigten? //Allan

Lars Gissel Medlems Profil Send personlig besked Find Medlems Indlæg Føj til venneliste Bronze bruger Medlem siden: 06-Juli-2010 Land: DK Status: Offline Beskeder: 3	Indlæg Funktioner Besvar Citér Lars Gissel Rapportér besked Citér Svar Sendt: 09-Juli-2010 kl. 10:25
	Hej Allan - Det er genialt!!! Jeg skulle lige forstå at den (naturligvis) kun virker i det regneark som makroen ligger i (i starten troede jeg at den skulle ligge i en anden fil og ville virke generelt på alle regneark) men det er perfekt til mit behov. Tusind tak for hjælpen

Allan Medlems Profil Send personlig besked Find Medlems Indlæg Besøg Medlems Hjemmeside Føj til venneliste Forum Admin Medlem siden: 03-Februar-2010 Land: Danmark Status: Offline Beskeder: 127	Indlæg Funktioner Besvar Citér Allan Rapportér besked Citér Svar Sendt: 17-Juli-2010 kl. 23:04
	Hej Lars, Velbekomme, det var en fornøjelse at kunne hjælpe. HVIS du skal bruge denne funktion i alle regneark du åbner, kan det sagtens lade sig gøre. Når/hvis behovet melder sig, så sig endelig til, der er flere muligheder. God sommer //Allan