zellformat mac-adresse

[berndk]

Richtig. Wenn ich zum Beispiel in E7 einen Ausdruck eingebe, dann soll er nur in E7 wandeln. Diese Möglichkeit soll separat für die Zellen E5 bis E34 bestehen. Das mit den Grossbuchstaben habe ich jetzt hinbekommen.
Schon mal danke

[mikele]

Hallo,
wenn du das folgende Makro an das Tabellenereignis "Inhalt geändert" koppelst (Rechtsklick auf Tab -> Tabellenereignisse), sollte das Gewünschte passieren:

Code: Alles auswählen

Sub macAdresse_formatieren (oevent)
	if oevent.supportsservice("com.sun.star.sheet.SheetCell") then 'wenn eine einzelne Zelle geändert
		oDoc=Thiscomponent
		oTab=oDoc.sheets(0)
		oBereich=oTab.getCellRangeByname("E5:E34")
		if oBereich.queryIntersection(oevent.rangeaddress).count>0 then 'wenn Zelle im betrachteten Bereich
			sAlt=oevent.string
			if len(sAlt)=12 then	'wenn Zellinhalt genau 12 Zeichen
				sAlt=ucase(sAlt)
				sNeu=left(sAlt,2)
				for i=3 to 12 step 2
					sNeu=sNeu & ":" & Mid(sAlt,i,2)
				next
				oevent.string=sNeu			
			end if	
		end if
	end if
End Sub

[berndk]

Mikele, Du bist mein Mann. Einfach super, vielen Dank.