Wie setze ich den Absendername als Titel in der Kopfzeile

\NeedsTeXFormat{LaTeX2e}
\ProvidesClass{unihamburg}
\RequirePackage{ifthen}
\RequirePackage[usenames,dvipsnames]{xcolor}
\definecolor{unihamburg}{RGB}{0,66,144}
\definecolor{text1}{HTML}{2b2b2b} 
\definecolor{shade}{HTML}{F5DD9D}
\definecolor{headings}{HTML}{701112}
\RequirePackage{graphicx}
\RequirePackage{blindtext}
\RequirePackage{marvosym}
\RequirePackage{ifsym}
\RequirePackage{mdframed}
\mdfdefinestyle{zitat}{
  hidealllines=true,leftline=true,linewidth=2pt,
  leftmargin=1.5em,innerleftmargin=1.5em,rightmargin=1.5em,
  innerrightmargin=0pt,innerbottommargin=0pt, innertopmargin=0pt, linecolor=unihamburg}
\usepackage{pdfpages}
\RequirePackage{graphicx}
\usepackage[T1]{fontenc}
\usepackage[utf8]{inputenc}
\usepackage[oldstyle,sflining]{libertine}
\newboolean{@german}      \setboolean{@german}{false}
\DeclareOption{ngerman}{\setboolean{@german}{true}}
\DeclareOption{english}{\setboolean{@german}{false}}
\DeclareOption*{\PassOptionsToClass{\CurrentOption}{letter}}
\ExecuteOptions{ngerman}   \ProcessOptions
\LoadClass[a4paper]{letter}
\newcommand{\lettergerman}{}
\newcommand{\letterenglish}{}
\ifthenelse{\boolean{@german}}
  {\RequirePackage{ngerman}\lettergerman}{\letterenglish}

% Seitenaufteilung
\setlength{\hoffset}{-1in}              % Horizontaler Offset des Druckertreibers kompensiert
\setlength{\voffset}{-1in}              % Vertikaler Offset des Druckertreibers kompensiert
\setlength{\marginparwidth}{40mm}       % Breite der Randboxen
\setlength{\oddsidemargin}{20mm}        % Linker Rand (ungerade Seiten)
\setlength{\evensidemargin}{20mm}       % Linker Rand (gerade Seiten)
\setlength{\headsep}{0mm}               % Abstand von der Kopfzeile zum Text
\setlength{\topmargin}{10mm}            % Oberer Rand
\newdimen\logoheight          \setlength{\logoheight}{22mm}             % Höhe des graphischen Logos
\newdimen\divisionheight      \setlength{\divisionheight}{0pt}       % Höher der drei Zeilen für die Übergeordnete Funktionseinheit
\newdimen\subdivisionheight   \setlength{\subdivisionheight}{\divisionheight}  % Höher der drei Zeilen für die Übergeordnete Funktionseinheit
\newdimen\vheaderskip         \setlength{\vheaderskip}{2mm}             % vertikaler Abstand der Blöcke im Header
\newdimen\headerskip          \setlength{\headerskip}{\vheaderskip}     % horizontaler Abstand der Blöcke im Header
  \addtolength{\headerskip}{2mm}
\newdimen\addressskip         \setlength{\addressskip}{6mm}             % Erhöhung der Adresse über die Absenderinformationen
\newdimen\addressheight       \setlength{\addressheight}{31mm}
\newdimen\subjectheight       \setlength{\subjectheight}{20mm}
\newdimen\addresswidth        \setlength{\addresswidth}{78mm}
\newdimen\fromwidth           \setlength{\fromwidth}{58mm}
\newdimen\bottommargin        \setlength{\bottommargin}{10mm}           % Unterer Rand
\setlength{\textwidth}{4mm}             % Textbreite -- 4mm als fudge-factor nötig.
  \addtolength{\textwidth}{\addresswidth}
  \addtolength{\textwidth}{\fromwidth}
\setlength{\headheight}{0mm}            % Höhe der Kopfzeile bis unter die Kurzanschrift
  \addtolength{\headheight}{\logoheight}
  \addtolength{\headheight}{\divisionheight}
  \addtolength{\headheight}{2\vheaderskip}
  \addtolength{\headheight}{9.5pt}      % Höhe einer Zeile in 8.00pt, entspricht der Funktion oder Name Zeile, auf die die Kurzadresse ausgerichtet ist
  \addtolength{\headheight}{\addressskip}
\setlength{\fboxsep}{0pt}               % Fboxen zum debuggen ohne Rand
\setlength{\textheight}{0mm}            % Texthöhe
  \addtolength{\textheight}{296mm}
  \addtolength{\textheight}{-\topmargin}
  \addtolength{\textheight}{-\headheight}
  \addtolength{\textheight}{-\headsep}
  \addtolength{\textheight}{-\bottommargin}
\newdimen\senderboxheight     \setlength{\senderboxheight}{296mm}       % Höhe der Randspalte mit den Absenderinformationen
  \addtolength{\senderboxheight}{-\topmargin}
  \addtolength{\senderboxheight}{-\logoheight}
  \addtolength{\senderboxheight}{-2\divisionheight}
  \addtolength{\senderboxheight}{-3\vheaderskip}
  \addtolength{\senderboxheight}{-\bottommargin}
  \addtolength{\senderboxheight}{-13.5pt}                               % Mir ist nicht wirklich klar, warum das hierhin gehört

% Dummyvariablen
\newdimen\tmplength

% Löschung nicht benötigter Definitionen
\let\name\@undefined
\let\fromname\@undefined
\let\address\@undefined
\let\fromaddress\@undefined
\let\location\@undefined
\let\fromlocation\@undefined
\let\telephone\@undefined
\let\telephonenum\@undefined
\let\fromsig\@undefined

% Definitionen und Variablen
\newcommand{\cdaddress}{
%\includegraphics[width=20mm,height=20mm]{/home/tischa/Dokumente/Korrespondenz/Vorlage/Logo/QR.png}
}

\newcommand{\fromsig}{}
\def\signature#1{\renewcommand{\fromsig}{#1}}

\newcommand{\@shortstreet}{Adresse Straße 11}
\newcommand{\@shortsender}{\hspace{3em}}
\def\shortsender#1{\renewcommand{\@shortsender}{#1}}
\newcommand{\@shortaddress}{XXXX\,Hamburg}                      % Die Voreinstellung sollte übernommen werden. 
\def\shortaddress#1{\renewcommand{\@shortaddress}{#1}}

\newcommand{\@name}{}                                        % Name (in Fettschrift)
\newboolean{@nameset}
\setboolean{@nameset}{false}
\def\name#1{
  \renewcommand{\@name}{#1}
  \setboolean{@nameset}{true}
}
\newcommand{\noname}{
  \setboolean{@nameset}{false}
}

\newcommand{\@function}{}                                    % Name und/oder Funktion
\def\function#1{\renewcommand{\@function}{#1}}
\newcommand{\@subject}{}
\def\subject#1{\renewcommand{\@subject}{#1}}

% Kommandos für den rechten Rand
\newcommand{\ap@name}{}                                      % Name des Ansprechpartners
\newboolean{ap@nameset}
\setboolean{ap@nameset}{false}
\def\apname#1{
  \renewcommand{\ap@name}{#1}
  \setboolean{ap@nameset}{true}
}

\newcommand{\ap@postalcode}{}                                % Postleitzahl
\def\appostalcode#1{\renewcommand{\ap@postalcode}{#1}}
\newcommand{\ap@town}{Hamburg}                                  % Ort
\def\aptown#1{\renewcommand{\ap@town}{#1}}
\newcommand{\ap@street}{Adress Straße\,11}                                    % Strasse

\newboolean{@altstreetstyle}\setboolean{@altstreetstyle}{false}     % Verwende den Postanschrift/Dienstgebäude-Stil
\def\altstreetstyle{\setboolean{@altstreetstyle}{true}}
\def\apstreet#1{\renewcommand{\ap@street}{#1}}

\newcommand{\ap@tel}{}                                        % Telefonnummer
\newcommand{\ap@telprefix}{(0228)\,}
\newcommand{\aptel}[2][(0228)\,]{
  \renewcommand{\ap@telprefix}{#1}
  \renewcommand{\ap@tel}{#2}
}

\newcommand{\ap@handy}{}                                        % Telefonnummer
\newcommand{\ap@handyprefix}{(0176)\,}
\newcommand{\aphandy}[2][(0228)\,]{
  \renewcommand{\ap@handy}{#1}
  \renewcommand{\ap@handy}{#2}
}

%\newcommand{\ap@fax}{}                                        % Faxnummer
%\newcommand{\ap@faxprefix}{(0228)\,}
%\newcommand{\apfax}[2][(0228)\,]{
 % \renewcommand{\ap@faxprefix}{#1}
  %\renewcommand{\ap@fax}{#2}
%}

\newcommand{\ap@email}{}
\def\apemail#1{\renewcommand{\ap@email}{#1}}
\newcommand{\ap@wwwuni}{} 
\def\apwwwuni#1{\renewcommand{\ap@wwwuni}{#1}}
\newcommand{\@division}{}
\def\division#1{\renewcommand{\@division}{#1}}
\newcommand{\@subdivision}{}
\def\subdivision#1{\renewcommand{\@subdivision}{#1}}
\newcommand{\@secretariat}{}
\def\secretariat#1{\renewcommand{\@secretariat}{#1}}

\newcommand{\@sectel}{}                                       % Telefonnummer Sekretariat
\newcommand{\@sectelprefix}{(0228)\,}
\newcommand{\sectel}[2][(0228)\,]{
  \renewcommand{\@sectelprefix}{#1}
  \renewcommand{\@sectel}{#2}
}

\newcommand{\@apsign}{}
\def\apsign#1{\renewcommand{\@apsign}{#1}}
\newcommand{\@bank}{
Bank

}
\newboolean{@showbank}\setboolean{@showbank}{false}   % Normalerweise wollen wir die Bankverbindung nicht haben
\def\nobank{\setboolean{@showbank}{false}}
\def\showbank{\setboolean{@showbank}{true}}
\newcommand{\bank}[2][true]{
  \setboolean{@showbank}{#1}
  \renewcommand{\@bank}{#2}
}

\newcommand{\righttext}{
\ifthenelse{\boolean{ap@nameset}}
  {\ap@name \\}
  {}
\ifthenelse{\boolean{@altstreetstyle}}
  {}
  {\textifsymbol{18} \ap@street\\
\ap@postalcode{}\,\ap@town\\}
\Telefon~\ap@telprefix \ap@tel\\
\Mobilefone~\ap@handyprefix \ap@handy\\
%Fax:  \ap@faxprefix \ap@fax\\
\ifthenelse{\equal{\@secretariat}{}}
  {}
  {Sekretariat: \@secretariat\\
  Tel.: \@sectelprefix \@sectel \\}
\Email~\ap@email\\
\ifthenelse{\boolean{@altstreetstyle}}
  {Postanschrift: \mbox{\ap@postalcode{} \ap@town}\\
  Dienstgeb\"aude: \mbox{\ap@street}\\}
  {}
\ifthenelse{\equal{\ap@wwwuni}{}}
  {}
  {\ap@wwwuni\\}
\\
\ifthenelse{\equal{\@apsign}{}}
  {}
  {Aktenchen: \@apsign\\
  \\}
  %\\\\\\\\\\
 \vspace{18.5mm}
{\flushleft
\ap@town{},% \linebreak[1]
\,\@date\\
}
\ifthenelse{\boolean{@showbank}}
  {\vfill
  \begin{minipage}[t]{\marginparwidth}
    \@bank
  \end{minipage}}
  {}
}

% Zeichensatzauswahl
\renewcommand{\familydefault}{\sfdefault}

% Redefinition des Kopfes
\def\ps@firstpage{\def\@oddhead{%
  \begin{tabular}[b]{@{}p{\addresswidth}@{}@{\extracolsep{\headerskip}}p{\fromwidth}@{}@{}p{\marginparwidth}@{\extracolsep{0pt}}}
    %\hline
      %\fbox{MxM}
      &
      % Gibt es eine weniger verbose Möglichkeit Längen zu addieren?
      \setlength{\tmplength}{\logoheight}
      \addtolength{\tmplength}{\vheaderskip}
      \parbox[][\tmplength][t]{\fromwidth}{{\begin{flushright} \cdaddress \end{flushright}}}
      & 
      %\fbox{MxM}
      \setlength{\tmplength}{\logoheight}
      \addtolength{\tmplength}{\vheaderskip}
      \parbox[][\tmplength][t]{\marginparwidth}{{\begin{flushleft} \includegraphics[height=25mm]{/home/tischa/Dokumente/Vorlagen/Logo/qrcodeprivate.png} \end{flushleft}}}
      \\
    %\hline
      &
      \setlength{\tmplength}{\divisionheight}
      \addtolength{\tmplength}{\vheaderskip}
      \begin{minipage}[t][\tmplength][t]{\fromwidth}
        \begin{flushright}
        \footnotesize
        \end{flushright}
      \end{minipage}
      &
      \begin{minipage}[t][][t]{\marginparwidth}
        \begin{flushleft}
        \footnotesize
        \@division 
        \end{flushleft}
      \end{minipage}
      \\
    %\hline
      \begin{minipage}[t][2ex][t]{\addresswidth}
        \makebox[-3pt][r]{    % -3pt sind reine Empirik
          \parbox[t]{8mm}{      % ebenso Empirik; 9.5mm wären zu erwarten gewesen
            \mbox{} \\
            \setlength{\unitlength}{1mm}
            \begin{picture}(1,97)
              \multiput(0,0)(0,46){3}{     % 46 ist Empirik
                \textcolor{unihamburg}{\rule{1mm}{1mm}}
              }
            \end{picture}
          }
        }
        \begin{minipage}[t][][t]{\addresswidth}
          \begin{flushleft}
          \scriptsize
          \@shortsender{}\,$\cdot$\,\@shortstreet\,$\cdot$\,\@shortaddress
          \end{flushleft}
        \end{minipage}
      \end{minipage}
      &
      \setlength{\tmplength}{\subdivisionheight}
      \addtolength{\tmplength}{\vheaderskip}
      \begin{minipage}[t][\tmplength][t]{\fromwidth}
        \begin{flushright}
        \footnotesize
        \ifthenelse{\boolean{@nameset}}
          {\textbf{\@name} \\}
          {}
        \@function
        \end{flushright}
      \end{minipage}
      &
      \begin{minipage}[t][][t]{\marginparwidth}
        \begin{flushleft}
        \footnotesize
        \@subdivision
        \end{flushleft}
      \end{minipage}
      \\
    %\hline
      &
      &
      \parbox[t][\senderboxheight][t]{\marginparwidth}{{\footnotesize \righttext}}
      \\
    %\hline
  \end{tabular}
  }
  \def\@oddfoot{}%
  \def\@evenhead{}%
  \def\@evenfoot{}%
  }

\def\ps@headings{\def\@evenhead{%
  \begin{tabular}[b]{@{}p{\addresswidth}@{}@{\extracolsep{\headerskip}}p{\fromwidth}@{}@{}p{\marginparwidth}@{\extracolsep{0pt}}}
    %\hline
      %\fbox{MxM}
      &
      % Gibt es eine weniger verbose Möglichkeit Längen zu addieren?
      \setlength{\tmplength}{\logoheight}
      \addtolength{\tmplength}{\vheaderskip}
      \parbox[][\tmplength][t]{\fromwidth}{{\begin{flushright} \cdaddress \end{flushright}}}
      & 
      %\fbox{MxM}
      \\
    %\hline
      &
      \setlength{\tmplength}{\divisionheight}
      \addtolength{\tmplength}{\vheaderskip}
      \begin{minipage}[t][\tmplength][t]{\fromwidth}
        \begin{flushright}
        \footnotesize
        \end{flushright}
      \end{minipage}
      &
      \\
    %\hline
      \parbox[][2cm][t]{0pt}{}
      &
      \\
  \end{tabular}
  }%
  \def\@oddfoot{}%
  \def\@oddhead{\@evenhead}%
  \def\@evenfoot{\@oddfoot}%
  }
\ps@headings

% Opening
\def\opening#1{
  \thispagestyle{firstpage}
%  \vspace*{3ex}
  \parbox[][\addressheight][t]{\addresswidth}{\toname \\ \toaddress}\\%
  \parbox[][\subjectheight][b]{\textwidth}{
    \textbf{\@subject}\\%
    \vspace*{1ex}%
  }\\%
  #1\par\nobreak
  \vspace{2\parskip}
  }

% Closing
\def\closing#1{
  \par\nobreak\vspace{\parskip}
  \setlength{\tmplength}{\parskip}
 %\includegraphics[height=2.0em]{Unterschrift.pdf}
      \begin{minipage}[]{\textwidth}
    #1\\\par\nobreak
    \vspace*{1\tmplength}   
     \includegraphics[height=3.5em]{Unterschrift.pdf}
  \end{minipage}
  \fromsig
  \vfill
  }