Ändern von Monaten in einer Arbeitsmappe (Microsoft Excel)
Es ist nicht ungewöhnlich, monatliche Informationen der einen oder anderen Art in einer Arbeitsmappe zu verfolgen. Möglicherweise verfolgen Sie Ausgaben, Verkäufe, Bestandsbewegungen, Aktienkurse oder tausend andere Dinge. Wenn Sie einen neuen Monat beginnen, können Sie eine Kopie der Arbeitsmappe des Vormonats erstellen und dann nach einer Möglichkeit suchen, den Monatsnamen zu ändern, der an verschiedenen Stellen in der neu erstellten Kopie angezeigt wird.
Wenn der Monatsname, den Sie ändern möchten, als Text in verschiedenen Arbeitsblättern gespeichert ist, können Sie die Such- und Ersetzungsfunktion von Excel verwenden, um die Änderungen vorzunehmen. Befolgen Sie einfach diese Schritte:
-
Klicken Sie auf die Registerkarte des ersten Arbeitsblatts, in dem Sie Änderungen vornehmen möchten.
-
Halten Sie die Umschalttaste gedrückt, während Sie auf die Registerkarte des letzten Arbeitsblatts klicken, in dem Sie Änderungen vornehmen möchten. Alle Arbeitsblätter, die Sie ändern möchten, sollten jetzt ausgewählt sein.
-
Drücken Sie Strg + H, um die Registerkarte Ersetzen des Dialogfelds Suchen und Ersetzen anzuzeigen.
-
Geben Sie im Feld Suchen nach den Namen des alten Monats ein.
-
Geben Sie im Feld Ersetzen durch den Namen des neuen Monats ein.
-
Klicken Sie auf Alle ersetzen.
-
Schließen Sie das Dialogfeld Suchen und Ersetzen.
Wenn diese Schritte einen bestimmten Monatsnamen nicht so ändern, wie er in Ihrer Arbeitsmappe angezeigt wird, kann dies daran liegen, dass der Monatsname kein Text ist, sondern ein Datumswert, der so formatiert ist, dass nur der Monat angezeigt wird. In diesem Fall können Sie Suchen und Ersetzen nicht verwenden. Stattdessen müssen Sie einfach den in der Zelle gespeicherten Datumswert ändern.
Wenn Sie die Monatsnamen auf den Registerkarten des Arbeitsblatts schnell ändern möchten, ist dies etwas schwieriger. Die Such- und Ersetzungsfunktion von Excel findet oder ersetzt den Text in Registerkartennamen nicht. Normalerweise müssen sie von Hand ausgeführt werden. Wenn Sie jedoch viele davon haben, möchten Sie möglicherweise ein Makro erstellen, das die Änderungen für Sie übernimmt. Das folgende Makro fordert Sie auf, nach dem gesuchten Text und dem Text zu suchen, durch den Sie ihn ersetzen möchten. Anschließend werden die einzelnen Arbeitsblattregisterkarten durchlaufen und die Änderungen für Sie vorgenommen.
Sub TabReplace() Dim I As Integer, J As Integer Dim sFind As String Dim sReplace As String Dim sTemp As String sFind = InputBox("Text to find?") sReplace = InputBox("Replace it with?") If (sFind & sReplace) = "" Then Exit Sub For I = 1 To Sheets.Count sTemp = Sheets(I).Name J = InStr(sTemp, sFind) While J > 0 sTemp = Left(sTemp, J - 1) & sReplace _ & Mid(sTemp, (J + Len(sFind))) J = InStr(sTemp, sFind) Wend If sTemp <> Sheets(I).Name Then Sheets(I).Name = sTemp End If Next I End Sub
Obwohl die hier vorgestellten Schritte (und Makros) das Aktualisieren Ihrer Arbeitsmappe erleichtern können, ist es möglicherweise noch einfacher, die Arbeitsweise Ihrer Arbeitsmappe zu überdenken. Es ist möglicherweise einfacher, eine Zelle so einzurichten, dass sie den Namen des aktuellen Monats enthält, und diesen Namen dann in den entsprechenden Zellen in der gesamten Arbeitsmappe zu referenzieren. Dann müssen Sie nur noch den Monatsnamen in einer einzelnen Zelle ändern, und er wird automatisch an anderer Stelle geändert. In anderen ExcelTips haben Sie sogar gelernt, wie Sie einen Registerkartennamen basierend auf dem Inhalt einer bestimmten Zelle dynamisch ändern können.
_Hinweis: _
Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.
ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.
Dieser Tipp (2748) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier: