LaTeX Forum

\documentclass[12pt,a4paper]{book}
\usepackage[utf8]{inputenc} 
\usepackage[T1]{fontenc}
\usepackage[ngerman]{babel}
\usepackage[usenames]{color}
\usepackage{array}
\usepackage{booktabs}
\usepackage{longtable}
\usepackage{listings}

\lstdefinelanguage{VBA}{morekeywords={…Liste…},
	sensitive=false,
	morecomment=[l]Rem,
	morecomment=[l]',
	morestring=[b]",
	emph={…Liste…},
	emphstyle=\itshape}
	
\lstloadlanguages{VBA}
\lstset{%
	language=VBA,
	basicstyle=\small,
	keywordstyle=\color{blue}\bfseries,
	commentstyle=\color{green}\itshape,
	tabsize=1,
	extendedchars=false,
	inputencoding=utf8,
	breaklines=true,
	showstringspaces=false,
	stringstyle=\sffamily,
	numbers=left,
	numberstyle=\tiny,
	stepnumber=2,
	numbersep=5pt}
[\code]

Alles funktioniert wie gewünscht, bis auf eine Sache: für einen Kommentar, der mit Rem oder ' eingeleitet ist, greift für die speziellen deutschen Umlaute nicht die hier in diesem Code definierte Weise, also die Umlaute werden nicht in grün und nicht in itshape gesetzt. Allerdings der Rest des Kommentartextes wird richtig wie gewünscht gesetzt.

Ich hatte vermutet, es liegt daran, dass ich den inputencoding=utf8 nicht gesetzt hatte, doch auch jetzt, wie in dem obigen Code, funktioniert es nicht. Auch wenn ich extendedchars=true setze, erhalte ich mehrere Fehlermeldungen. 

Was könnte hier das Problem sein und wie kann ich die Umlaute innerhalb der Rem-und-'-Zeilen wie gewünscht setzen lassen?

Danke für Hinweise.
Tanata

\documentclass[12pt,a4paper]{book}
\usepackage[utf8]{inputenc} 
\usepackage[T1]{fontenc}
\usepackage[ngerman]{babel}
\usepackage[usenames]{color}
\usepackage{array}
\usepackage{booktabs}
\usepackage{longtable}
\usepackage{listings}

\lstdefinelanguage{VBA}{morekeywords={And, As, Byte, Call, Case, Compare, CDbl, Datebase, Date, Dim, Else, ElseIf, End, Error, Exit, Explicit, False, Function, GoTo, If, IIF, Integer, Not, Nothing, Null, Object, On, Option, Or, Private, Resume, String, Single, Select, Set, Static, Sub, Then, True, To,},
	sensitive=false,
	morecomment=[l]Rem,
	morecomment=[l]',
	morestring=[b]",
	emph={acFormBar, acEditMenu, acCurrent, acEntire, acMenuVer70, acSaveYes, acViewNormal, acForm, acDataErrAdded, acNewRec, acDataErrContinue, Cancel, CancelEvent, Close, CurrentDb, DefaultValue, DateValue, DAO, Description, DoCmd, DoMenuItem, Err, Error, Error$, $, Execute,  FindRecord, Forms, FindFirst, IsNull, Me, MsgBox, GoToControl, GoToRecord, NewData, Nz, Maximize, Number, OpenForm, Parent, Recordset, Requery, Response, SetFocus, stDocName, stLinkCriteria, Value, vbExclamation, vbOK, vbOKCancel, vbInformation, vbYes, vbNo, vbYesNo, vbCancel, vbQuestion, vbYesNoCancel, Visible,},
	emphstyle=\itshape}
	
\lstloadlanguages{VBA,VBScript}
\lstset{%
	language=VBA,
	basicstyle=\small,
	keywordstyle=\color{blue}\bfseries,
	commentstyle=\color{green}\itshape,
	tabsize=1,
	extendedchars=false,
	inputencoding=utf8,
	breaklines=true,
	showstringspaces=false,
	stringstyle=\sffamily,
	numbers=left,
	numberstyle=\tiny,
	stepnumber=2,
	numbersep=5pt}

\begin{document}
\begin{lstlisting}
Rem Die in diesem Kommentar vorhandenen Umlaute, wie in für, ändern, Aufführung, werden nicht wie gewünscht gesetzt.
\end{lstlisting}
\end{document}

extendedchars=true

! Package inputenc Error: Unicode char \u8:\expandafter not set up for use with LaTeX

! Package inputenc Error: Keyboard character used is undefined

\documentclass[12pt,a4paper]{book} 
\usepackage[latin1]{inputenc}
\usepackage[T1]{fontenc}	
\usepackage[ngerman]{babel} 
\usepackage[usenames]{color} 
\usepackage{array} 
\usepackage{booktabs} 
\usepackage{longtable} 
\usepackage{listings} 

\lstdefinelanguage{VBA}{morekeywords={And, As, Byte, Call, Case, Compare, CDbl, Datebase, Date, Dim, Else, ElseIf, End, Error, Exit, Explicit, False, Function, GoTo, If, IIF, Integer, Not, Nothing, Null, Object, On, Option, Or, Private, Resume, String, Single, Select, Set, Static, Sub, Then, True, To,}, 
   sensitive=false, 
   morecomment=[l]Rem, 
   morecomment=[l]', 
   morestring=[b]", 
   emph={acFormBar, acEditMenu, acCurrent, acEntire, acMenuVer70, acSaveYes, acViewNormal, acForm, acDataErrAdded, acNewRec, acDataErrContinue, Cancel, CancelEvent, Close, CurrentDb, DefaultValue, DateValue, DAO, Description, DoCmd, DoMenuItem, Err, Error, Error$, $, Execute,  FindRecord, Forms, FindFirst, IsNull, Me, MsgBox, GoToControl, GoToRecord, NewData, Nz, Maximize, Number, OpenForm, Parent, Recordset, Requery, Response, SetFocus, stDocName, stLinkCriteria, Value, vbExclamation, vbOK, vbOKCancel, vbInformation, vbYes, vbNo, vbYesNo, vbCancel, vbQuestion, vbYesNoCancel, Visible,}, 
   emphstyle=\itshape} 
    
\lstloadlanguages{VBA,VBScript} 
\lstset{% 
   language=VBA, 
   basicstyle=\small, 
   keywordstyle=\color{blue}\bfseries, 
   commentstyle=\color{green}\itshape, 
   tabsize=1, 
   extendedchars=true, 
   inputencoding=latin1, 
   breaklines=true, 
   showstringspaces=false, 
   stringstyle=\sffamily, 
   numbers=left, 
   numberstyle=\tiny, 
   stepnumber=2, 
   numbersep=5pt} 

\begin{document} 
\begin{lstlisting} 
Rem Die in diesem Kommentar vorhandenen Umlaute, wie in für, ändern, Aufführung, werden nicht wie gewünscht gesetzt. 
\end{lstlisting} 
\end{document} 

texcl=true

\lstset{..., 
    texcl=true,
    ....}

texcl=true