\documentclass[12pt]{beamer}
\usepackage[utf8]{inputenc}
\usepackage[T1]{fontenc}
\usepackage[ngerman]{babel}
\usepackage{refcount}
\usetheme{AnnArbor}
\makeatletter
\newcommand*{\additionalinfoof}[1]{
\expandafter\ifx\csname additionalinfo@#1\endcsname\relax\else
\expandafter\ifx\csname additionalinfo@#1\endcsname\@empty\else
: \@nameuse{additionalinfo@#1}
\fi\fi
}
\newcommand*{\additionalinfo}[2][\thesection.\thesubsection]{
\global\@namedef{additionalinfo@#1}{#2}
}
\makeatother
\usepackage{xpatch}
\makeatletter
\xpatchcmd\beamer@subsectionintoc{#3}{#3\additionalinfoof{#1.#2}}{}{\FailED}
\makeatother
\setbeamertemplate{headline}
{
\leavevmode
\hbox{
\begin{beamercolorbox}[wd=.5\paperwidth,ht=2.65ex,dp=1.5ex,right]{section in head/foot}
\usebeamerfont{section in head/foot}\insertsectionhead\hspace*{2ex}
\end{beamercolorbox}
\begin{beamercolorbox}[wd=.5\paperwidth,ht=2.65ex,dp=1.5ex,left]{subsection in head/foot}
\usebeamerfont{subsection in head/foot}\hspace*{2ex}\insertsubsectionhead\additionalinfoof{\thesection.\thesubsection}
\end{beamercolorbox}}
\vskip0pt
}
\begin{document}
\section{Thema A}