Wie kann ich in Excel die ersten 129 Arbeitsblätter nach Spalte B sortieren in VBA?

Question

Wie kann ich in Excel die ersten 129 Arbeitsblätter nach Spalte B sortieren in VBA?

Antwort

Verwandte Fragen

Wie kann ich in Excel nur die ersten 129 Arbeitsblätter sortieren in VBA?

Kann ich in Excel aus einer 'Private Sub Workbook_Open()' mit 'Call Private Sub Workbook_SheetBeforeRightClick' starten?

Wie prüft man in Excel per VBA, ob in einer InputBox 'Abbrechen' gewählt wurde?

Wie lasse ich in Excel per VBA eine Messagebox erscheinen, wenn eine Zelle einen bestimmten Wert unterschreitet?

Wie kann ich innerhalb einer Pivot-Tabelle einzelne Felder sortieren?

Wie kann ich mit VBA die Zelle mit dem Namen 'Konto' auswählen?

Wie kann ich mit einem VBA-Makro eine Zellverknüpfung zu einem anderen, nicht geöffneten Arbeitsblatt aktualisieren?

Wie setze ich Variablen beim Starten einer Excel-Tabelle mit VBA?

Was bewirkt der VBA-Code ThisWorkbook.Names("z06_a1401111_Bericht").RefersToR1S1 = "='z06_a1401111_Bericht'!R1S1:R20S18"?

Wie kann der VBA-Code angepasst werden, damit in 'Personen einzelnd drucken' der Name in Spalte C9-C66 gesucht und mit dem Wert im Arbeitsplan verglichen wird?

Accepted Answer

Um in Excel mit VBA die ersten 129 Arbeitsblätter nach der Spalte B zu sortieren, kannst du den folgenden Code verwenden. Dieser Code durchläuft ersten 129 Arbeitsblätter und sortiert die Daten in Spalte B aufsteigend. ```vba Sub SortFirst129Sheets() Dim ws As Worksheet Dim i As Integer Dim lastRow As Long ' Schleife durch die ersten 129 Arbeitsblätter For i = 1 To 129 ' Überprüfen, ob das Arbeitsblatt existiert If i <= ThisWorkbook.Worksheets.Count Then Set ws = ThisWorkbook.Worksheets(i) ' Letzte Zeile in Spalte B finden lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row ' Daten in Spalte B sortieren ws.Sort.SortFields.Clear ws.Sort.SortFields.Add Key:=ws.Range("B1:B" & lastRow), Order:=xlAscending With ws.Sort .SetRange ws.Range("A1:B" & lastRow) ' Bereich anpassen, falls mehr Spalten vorhanden sind .Header = xlYes ' Header anpassen, falls vorhanden .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End If Next i End Sub ``` Dieser Code geht davon aus, dass die Daten in den Arbeitsblättern in der ersten Zeile einen Header haben. Wenn das nicht der Fall ist, ändere die `.Header`-Eigenschaft auf `xlNo`. Stelle sicher, dass du den Code in ein Modul in der VBA-Entwicklungsumgebung von Excel einfügst und dann ausführst.

Accepted Answer

Um in Excel mit VBA die ersten 129 Arbeitsblätter zu sortieren, kannst du den folgenden Code verwenden. Dieser Code geht davon aus, dass du die Arbeitsblätter alphabetisch sortieren möc... [mehr]

Accepted Answer

Um in Excel mit VBA die ersten 129 Arbeitsblätter zu sortieren, kannst du den folgenden Code verwenden. Dieser Code geht davon aus, dass du die Arbeitsblätter alphabetisch sortieren möchtest: ```vba Sub SortFirst129Sheets() Dim i As Integer Dim j As Integer Dim temp As String Dim sheetNames(1 To 129) As String ' Speichere die Namen der ersten 129 Arbeitsblätter For i = 1 To 129 sheetNames(i) = ThisWorkbook.Sheets(i).Name Next i ' Sortiere die Namen der Arbeitsblätter For i = 1 To 128 For j = i + 1 To 129 If sheetNames(i) > sheetNames(j) Then temp = sheetNames(i) sheetNames(i) = sheetNames(j) sheetNames(j) = temp End If Next j Next i ' Setze die Arbeitsblätter in der sortierten Reihenfolge For i = 1 To 129 ThisWorkbook.Sheets(sheetNames(i)).Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) Next i End Sub ``` Dieser Code speichert die Namen der ersten 129 Arbeitsblätter in einem Array, sortiert dieses Array und bewegt dann die Arbeitsblätter in der sortierten Reihenfolge ans Ende der Arbeitsmappe. Stelle sicher, dass du die Makros in deiner Excel-Datei aktivierst, um den Code auszuführen.

Accepted Answer

In Excel VBA ist es nicht möglich, ein **Worksheet-Ereignis** wie `Workbook_SheetBeforeRightClick` direkt mit `Call` aus einer anderen Prozedur (z.B. `Workbook_Open`) zu starten. Ereignisprozedur... [mehr]

Accepted Answer

In Excel VBA ist es nicht möglich, ein **Worksheet-Ereignis** wie `Workbook_SheetBeforeRightClick` direkt mit `Call` aus einer anderen Prozedur (z.B. `Workbook_Open`) zu starten. Ereignisprozeduren wie `Workbook_SheetBeforeRightClick` werden **automatisch** von Excel ausgelöst, wenn das entsprechende Ereignis eintritt (hier: Rechtsklick auf ein Arbeitsblatt). Du kannst aber den Code, der in `Workbook_SheetBeforeRightClick` steht, in eine **normale, öffentliche Sub** auslagern und diese Sub dann sowohl im Ereignis als auch in `Workbook_Open` aufrufen. Beispiel: ```vba ' Im Modul "DieseArbeitsmappe" Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Call MeineRoutine(Sh, Target) End Sub Private Sub Workbook_Open() ' Beispiel: Aufruf für das aktive Blatt und Zelle A1 Call MeineRoutine(ActiveSheet, ActiveSheet.Range("A1")) End Sub ' In einem allgemeinen Modul (z.B. Modul1) Public Sub MeineRoutine(ByVal Sh As Object, ByVal Target As Range) ' Dein Code hier MsgBox "Routine wurde aufgerufen für " & Sh.Name & "!" & vbCrLf & "Zelle: " & Target.Address End Sub ``` **Fazit:** Du kannst das Ereignis nicht direkt mit `Call` auslösen, aber du kannst den Code in eine eigene Sub auslagern und diese dann von beiden Stellen aus aufrufen. Weitere Infos: - [Microsoft Docs: Worksheet Events](https://learn.microsoft.com/en-us/office/vba/api/excel.worksheet_events) - [Microsoft Docs: Workbook Events](https://learn.microsoft.com/en-us/office/vba/api/excel.workbook_events)

Accepted Answer

Um in Excel VBA zu prüfen, ob in einer InputBox auf "Abbrechen" geklickt wurde, kannst du den Rückgabewert der InputBox auswerten. Wird "Abbrechen" gewählt, gibt die... [mehr]

Accepted Answer

Um in Excel VBA zu prüfen, ob in einer InputBox auf "Abbrechen" geklickt wurde, kannst du den Rückgabewert der InputBox auswerten. Wird "Abbrechen" gewählt, gibt die InputBox den Wert `False` (bei numerischer Eingabe) oder eine leere Zeichenkette (`""`, bei Texteingabe) zurück. Hier ein Beispiel für eine InputBox, die einen Text abfragt: ```vba Dim userInput As String userInput = InputBox("Bitte gib etwas ein:") If userInput = "" Then MsgBox "Abbrechen wurde gewählt oder nichts eingegeben." Else MsgBox "Eingegeben: " & userInput End If ``` **Hinweis:** - Bei einer InputBox, die Zahlen abfragt und als `Variant` deklariert ist, kann auch `False` zurückgegeben werden. - Bei einer InputBox, die als String deklariert ist, wird bei "Abbrechen" immer `""` (leerer String) zurückgegeben. **Weitere Infos zur InputBox:** [Microsoft Dokumentation zur InputBox-Funktion](https://learn.microsoft.com/de-de/office/vba/language/reference/user-interface-help/inputbox-function)

Accepted Answer

Um in Excel per VBA eine Messagebox erscheinen zu lassen, wenn eine Zelle einen bestimmten Wert unterschreitet, kannst du das Worksheet-Change-Ereignis verwenden. Hier ein Beispiel, wie du das umsetze... [mehr]

Accepted Answer

Um in Excel per VBA eine Messagebox erscheinen zu lassen, wenn eine Zelle einen bestimmten Wert unterschreitet, kannst du das Worksheet-Change-Ereignis verwenden. Hier ein Beispiel, wie du das umsetzen kannst: Angenommen, du möchtest überwachen, ob der Wert in Zelle A1 kleiner als 10 ist: 1. Öffne den VBA-Editor mit **ALT + F11**. 2. Doppelklicke im Projekt-Explorer auf das entsprechende Arbeitsblatt (z. B. „Tabelle1“). 3. Füge folgenden Code ein: ```vba Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then If IsNumeric(Target.Value) Then If Target.Value < 10 Then MsgBox "Der Wert in A1 ist kleiner als 10!", vbExclamation End If End If End If End Sub ``` **Erläuterung:** - Das Makro prüft, ob die geänderte Zelle A1 ist. - Es wird geprüft, ob der Wert numerisch ist. - Ist der Wert kleiner als 10, erscheint eine Messagebox. Du kannst den Zellbereich und den Schwellwert nach Bedarf anpassen.

Accepted Answer

Um in einer Pivot-Tabelle (z. B. in Microsoft Excel) einzelne Felder zu sortieren, gehe wie folgt vor: 1. **Klicke auf den Dropdown-Pfeil** neben der Überschrift des Feldes, das du sortieren m&o... [mehr]

Accepted Answer

Um in einer Pivot-Tabelle (z. B. in Microsoft Excel) einzelne Felder zu sortieren, gehe wie folgt vor: 1. **Klicke auf den Dropdown-Pfeil** neben der Überschrift des Feldes, das du sortieren möchtest (z. B. in der Zeilen- oder Spaltenbeschriftung). 2. Im Dropdown-Menü findest du die Optionen **"Aufsteigend sortieren"** oder **"Absteigend sortieren"**. Wähle die gewünschte Sortieroption aus. 3. Alternativ kannst du im Dropdown-Menü auf **"Weitere Sortieroptionen"** klicken, um nach bestimmten Werten oder benutzerdefiniert zu sortieren. **Hinweis:** - Die Sortierung bezieht sich immer auf das aktuell ausgewählte Feld. - Wenn du nach Werten (z. B. Summen) sortieren möchtest, wähle im Menü die entsprechende Option, z. B. "Nach Summe von ... sortieren". **Weitere Informationen findest du hier:** [Microsoft Support: PivotTable-Daten sortieren](https://support.microsoft.com/de-de/office/sortieren-von-daten-in-einer-pivottabelle-6d3b4a3b-dc4a-4d49-8b1c-3e5c7f3c8d5c) Falls du eine andere Software als Excel verwendest, teile bitte mit, welche das ist, da die Schritte leicht abweichen können.

Accepted Answer

Um in VBA eine Zelle mit dem Namen „Konto“ auszuwählen, kannst du den Namen direkt über das `Range`-Objekt ansprechen. Voraussetzung ist, dass der Name „Konto“ als be... [mehr]

Accepted Answer

Um in VBA eine Zelle mit dem Namen „Konto“ auszuwählen, kannst du den Namen direkt über das `Range`-Objekt ansprechen. Voraussetzung ist, dass der Name „Konto“ als benannter Bereich in deiner Arbeitsmappe existiert. Hier ein Beispielcode: ```vba Range("Konto").Select ``` Falls du dichergehen möchtest, dass der Name existiert, kannst du es so absichern: ```vba Dim nm As Name On Error Resume Next Set nm = ThisWorkbook.Names("Konto") On Error GoTo 0 If Not nm Is Nothing Then Range("Konto").Select Else MsgBox "Der benannte Bereich 'Konto' existiert nicht." End If ``` **Hinweis:** - Der Code funktioniert nur, wenn der Name „Konto“ eindeutig ist und sich auf eine einzelne Zelle bezieht. - In modernen Excel-Versionen ist die Verwendung von `.Select` oft nicht nötig, da du direkt mit dem Bereich arbeiten kannst. Weitere Infos zu benannten Bereichen findest du bei [Microsoft](https://support.microsoft.com/de-de/office/definieren-und-verwenden-von-namen-in-formeln-bd4224d2-167d-4a9a-8454-1c2d3786e99f).

Accepted Answer

Um eine Verknüpfung (z.B. eine Formel wie `='[AndereDatei.xlsx]Tabelle1'!A1`) in einer Zelle per VBA zu aktualisieren, ohne dass die verknüpfte Arbeitsmappe geöffnet ist, kann... [mehr]

Accepted Answer

Um eine Verknüpfung (z.B. eine Formel wie `='[AndereDatei.xlsx]Tabelle1'!A1`) in einer Zelle per VBA zu aktualisieren, ohne dass die verknüpfte Arbeitsmappe geöffnet ist, kannst du die Methode `UpdateLinks` verwenden. Diese Methode aktualisiert die externen Verknüpfungen in einer Arbeitsmappe. Hier ein Beispiel, wie du das per VBA machen kannst: ```vba Sub VerknuepfungenAktualisieren() ' Aktualisiert alle externen Verknüpfungen in der aktuellen Arbeitsmappe ThisWorkbook.UpdateLinks xlUpdateLinksExcelLinks End Sub ``` **Wichtige Hinweise:** - Die Methode funktioniert nur, wenn die Quelldatei (die andere Arbeitsmappe) gespeichert und zugänglich ist (z.B. im Netzwerk oder auf der Festplatte). - Die Quelldatei muss nicht geöffnet sein, aber sie darf nicht verschoben oder umbenannt worden sein, sonst schlägt die Aktualisierung fehl. - Wenn du gezielt nur eine bestimmte Verknüpfung aktualisieren möchtest, kannst du die Links auslesen und gezielt ansprechen: ```vba Sub BestimmteVerknuepfungAktualisieren() Dim links As Variant Dim i As Integer links = ThisWorkbook.LinkSources(xlLinkTypeExcelLinks) If Not IsEmpty(links) Then For i = 1 To UBound(links) If InStr(links(i), "AndereDatei.xlsx") > 0 Then ThisWorkbook.UpdateLink Name:=links(i), Type:=xlLinkTypeExcelLinks End If Next i End If End Sub ``` **Weitere Informationen:** - [Microsoft Dokumentation zu UpdateLinks](https://learn.microsoft.com/de-de/office/vba/api/excel.workbook.updatelinks) - [Microsoft Dokumentation zu LinkSources](https://learn.microsoft.com/de-de/office/vba/api/excel.workbook.linksources) Mit diesen Makros kannst du Verknüpfungen zu nicht geöffneten Arbeitsmappen aktualisieren.

Accepted Answer

Um Variablen wie `Set wsKriterien = ThisWorkbook.Worksheets("Kriterien")` beim Starten einer Excel-Datei automatisch zu setzen, kannst du das Workbook-Open-Ereignis im VBA-Editor nutzen. So... [mehr]

Accepted Answer

Um Variablen wie `Set wsKriterien = ThisWorkbook.Worksheets("Kriterien")` beim Starten einer Excel-Datei automatisch zu setzen, kannst du das Workbook-Open-Ereignis im VBA-Editor nutzen. So gehst du vor: 1. **VBA-Editor öffnen:** Drücke `ALT + F11`, um den VBA-Editor zu öffnen. 2. **Zum "DieseArbeitsmappe"-Modul wechseln:** Im Projekt-Explorer auf der linken Seite doppelklicken auf `DieseArbeitsmappe` (englisch: `ThisWorkbook`). 3. **Workbook_Open-Ereignis einfügen:** Füge folgenden Code ein: ```vba Dim wsKriterien As Worksheet Private Sub Workbook_Open() Set wsKriterien = ThisWorkbook.Worksheets("Kriterien") ' Hier kannst du weitere Aktionen mit wsKriterien durchführen End Sub ``` **Wichtig:** - Die Variable `wsKriterien` ist in diesem Beispiel nur innerhalb des Moduls gültig. - Wenn du sie in mehreren Modulen verwenden möchtest, deklariere sie als `Public` ganz oben in einem allgemeinen Modul: ```vba Public wsKriterien As Worksheet ``` und dann im `Workbook_Open`-Ereignis: ```vba Set wsKriterien = ThisWorkbook.Worksheets("Kriterien") ``` 4. **Datei als Makro-Arbeitsmappe speichern:** Speichere die Datei als `.xlsm`, damit Makros ausgeführt werden können. **Ergebnis:** Jedes Mal, wenn die Arbeitsmappe geöffnet wird, wird die Variable `wsKriterien` automatisch auf das Arbeitsblatt "Kriterien" gesetzt. Weitere Infos zu VBA-Ereignissen findest du z.B. bei [Microsoft Learn](https://learn.microsoft.com/de-de/office/vba/api/excel.workbook.open).

Accepted Answer

Der Ausdruck ```vba ThisWorkbook.Names("z06_a1401111_Bericht").RefersToR1S1 = "='z06_a1401111_Bericht'!R1S1:R20S18" ``` weist dem definierten Namen **z06_a1401111_Beric... [mehr]

Accepted Answer

Der Ausdruck ```vba ThisWorkbook.Names("z06_a1401111_Bericht").RefersToR1S1 = "='z06_a1401111_Bericht'!R1S1:R20S18" ``` weist dem definierten Namen **z06_a1401111_Bericht** im aktuellen Workbook einen neuen Bezug zu. **RefersToR1S1** verwendet dabei die R1S1-Referenzschreibweise (Reihe/Spalte statt A1/B1). **Bedeutung:** - Der Name verweist nun auf den Zellbereich von **Zeile 1, Spalte 1** bis **Zeile 20, Spalte 18** auf dem Tabellenblatt **z06_a1401111_Bericht**. - In A1-Schreibweise entspricht das dem Bereich **A1:R20**. **Zusammengefasst:** Mit diesem Befehl wird der benannte Bereich **z06_a1401111_Bericht** auf die Zellen **A1:R20** des Blatts **z06_a1401111_Bericht** gesetzt. Weitere Infos zu benannten Bereichen in Excel findest du z.B. hier: https://support.microsoft.com/de-de/office/definieren-und-verwenden-von-namen-in-formeln-a1dcf0dd-61fc-4e1e-aa80-c8969888273e

Accepted Answer

Um die Schleife so umzubauen, dass **in "Personen einzelnd drucken"** in den Zellen **C9:C66** nach dem Namen gesucht und mit der Spalte B im "Arbeitsplan" verglichen wird, muss di... [mehr]

Accepted Answer

Um die Schleife so umzubauen, dass **in "Personen einzelnd drucken"** in den Zellen **C9:C66** nach dem Namen gesucht und mit der Spalte B im "Arbeitsplan" verglichen wird, muss die Namensprüfung in eine Schleife über diese Zellen gelegt werden. Für jeden gefundenen Namen wird dann geprüft, ob er in der gefundenen Zeile im "Arbeitsplan" steht. Die Übertragung erfolgt dann in die jeweilige Zeile (also z.B. in Zeile 9, 10, ...). Hier die angepasste Version des relevanten Teils: ```vba Sub übertragallepersonen() Dim wb As Workbook Dim wsQuell As Worksheet, wsZiel As Worksheet Dim datumToFind As Variant, rGef As Range Dim nameQuell As Variant Dim zielStartCol As Long, zielCol As Long, quelleCol As Long Dim i As Long Set wb = ThisWorkbook Set wsQuell = wb.Sheets("Personen einzelnd drucken") Set wsZiel = wb.Sheets("Arbeitsplan") ' Datum aus Spalte B8 der Quell-Tabelle als Zahl If IsDate(wsQuell.Range("B8").Value) Then datumToFind = CLng(wsQuell.Range("B8").Value) Else MsgBox "Datum in Personen einzeln drucken!B8 ist ungültig oder leer.", vbExclamation Exit Sub End If ' In Arbeitsplan Spalte A suchen (ebenfalls als Zahl) Set rGef = Nothing For Each cell In wsZiel.Columns("A").Cells If IsDate(cell.Value) Then If CLng(cell.Value) = datumToFind Then Set rGef = cell Exit For End If End If If cell.Row > 1000 Then Exit For ' Optional: Suchbereich begrenzen Next cell If rGef Is Nothing Then MsgBox "Datum nicht in Arbeitsplan Spalte A gefunden.", vbInformation Exit Sub End If zielStartCol = 4 ' Spalte D ' Jetzt alle Namen in C9:C66 durchgehen For i = 9 To 66 nameQuell = wsQuell.Cells(i, 3).Value ' Spalte C If Not IsEmpty(nameQuell) Then If wsZiel.Cells(rGef.Row, "B").Value = nameQuell Then ' Kopiere Werte von Arbeitsplan F bis BA in die Zielspalten ab Spalte D der aktuellen Zeile For zielCol = 6 To 54 ' F(6) bis BA(54) wsQuell.Cells(i, zielStartCol + (zielCol - 6)).Value = wsZiel.Cells(rGef.Row, zielCol).Value Next zielCol End If End If Next i MsgBox "Datenübertragung abgeschlossen.", vbInformation End Sub ``` **Hinweis:** - Die Übertragung erfolgt für jede Zeile von C9 bis C66, sofern dort ein Name steht und dieser in der gefundenen Zeile im "Arbeitsplan" (Spalte B) steht. - Die Werte werden in die jeweilige Zeile (i) ab Spalte D geschrieben. - Die Meldung am Ende kommt nur einmal, wenn alle Zeilen durchlaufen wurden. Falls du möchtest, dass für jeden gefundenen Namen eine eigene Zeile im "Arbeitsplan" gesucht wird (also nicht nur für das eine Datum), müsste die Logik noch weiter angepasst werden.