Wie kann ich per Makro in Excel die Werte aus K2, L5 und M5 als neuen Eintrag in eine intelligente Tabelle übertragen?

Question

Wie kann ich per Makro in Excel die Werte aus K2, L5 und M5 als neuen Eintrag in eine intelligente Tabelle übertragen?

Antwort

Verwandte Fragen

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

Wie greift man in einem Excel-Makro auf eine Zelle mit dem Namen "neu" in einem anderen Blatt zu?

Wie kann man per Makro prüfen, ob ein Zellinhalt in Excel eingerückt ist, und diesen bei Bedarf einrücken?

Wie ermittele ich per Formel den letzten Wert einer Spalte in einer intelligenten Excel-Tabelle?

Wie entfernt man eine Tabelle in Excel mit STRG+T?

Wie finde ich einen Vorgang vor einem bestimmten Vorgang in einer Excel-Tabelle?

Excel: Bei Auswahl einer Zelle in Spalte A, Bild in Spalte C anzeigen. Bilder befinden sich in Tabelle 2.

Wie kann ich im Excel eine ganze Zeile ausschneiden und in eine neue Tabelle einfügen?

Wie kann ich mit einem Excel-Makro das Rechteck1 ein- und ausblenden?

Wie gebe ich in Excel in Zelle B1 den Wert aus H1:H8 aus, dessen Zeilennummer in G1 steht?

Accepted Answer

Um Werte aus den Zellen K2, L5 und M5 als neuen Eintrag in eine intelligente Tabelle (auch als "Excel-Tabelle" oder "ListObject" bezeichnet) zu übertragen, kannst du folgenden VBA-Code verwenden. Er fügt eine neue Zeile am Ende der Tabelle hinzu und trägt die Werte dort ein. Angenommen, deine Tabelle heißt **"Tabelle1"** (den Tabellennamen findest du unter "Tabellentools" → "Tabellendesign" → "Tabellenname"). Passe den Namen ggf. an. ```vba Sub WerteInTabelleEinfuegen() Dim ws As Worksheet Dim tbl As ListObject Dim neueZeile As ListRow Set ws = ThisWorkbook.Sheets("Tabelle1") ' Blattname ggf. anpassen Set tbl = ws.ListObjects("Tabelle1") ' Tabellenname ggf. anpassen Set neueZeile = tbl.ListRows.Add ' Werte in die erste, zweite und dritte Spalte der Tabelle eintragen neueZeile.Range(1, 1).Value = ws.Range("K2").Value neueZeile.Range(1, 2).Value = ws.Range("L5").Value neueZeile.Range(1, 3).Value = ws.Range("M5").Value End Sub ``` **Hinweise:** - Ersetze `"Tabelle1"` durch den tatsächlichen Namen deiner Tabelle. - Die Werte werden in die ersten drei Spalten der Tabelle geschrieben. Falls deine Tabelle anders aufgebaut ist, passe die Indizes `(1, 1)`, `(1, 2)`, `(1, 3)` entsprechend an. - Das Makro kannst du im VBA-Editor (Alt+F11) in ein Modul einfügen. Weitere Infos zu intelligenten Tabellen findest du bei [Microsoft](https://support.microsoft.com/de-de/office/verwenden-von-excel-tabellen-zur-verwalten-von-daten-7ab0bb7d-3a9e-4b56-a3c9-6c94334e492c).

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 einem Excel-Makro (VBA) auf eine Zelle mit dem Namen „neu“ zuzugreifen, die sich in einem anderen Blatt befindet, verwendest du den Namen direkt, da benannte Bereiche (Names) arbeits... [mehr]

Accepted Answer

Um in einem Excel-Makro (VBA) auf eine Zelle mit dem Namen „neu“ zuzugreifen, die sich in einem anderen Blatt befindet, verwendest du den Namen direkt, da benannte Bereiche (Names) arbeitsmappenweit eindeutig sind. Du kannst also so darauf zugreifen: ```vba Range("neu").Value = "Dein Wert" ``` Wenn du explizit das Arbeitsblatt angeben möchtest (z. B. das Blatt heißt „Tabelle2“), kannst du auch: ```vba Worksheets("Tabelle2").Range("neu").Value = "Dein Wert" ``` Wichtig: - Der Name „neu“ muss als benannter Bereich in der Arbeitsmappe existieren und auf eine Zelle (z. B. `=Tabelle2!$A$1`) zeigen. - Der Zugriff funktioniert unabhängig davon, auf welchem Blatt das Makro ausgeführt wird. Weitere Infos zu benannten Bereichen findest du bei [Microsoft](https://support.microsoft.com/de-de/office/definieren-und-verwenden-von-namen-in-formeln-8fde0e0f-4e2e-4ee7-bd91-26a0a1a2a6b8).

Accepted Answer

Um mit einem Makro in Excel zu prüfen, ob der Inhalt einer Zelle eingerückt ist, und falls nicht, diesen einzurücken, kannst du die Eigenschaft `.IndentLevel` verwenden. Diese gibt an,... [mehr]

Accepted Answer

Um mit einem Makro in Excel zu prüfen, ob der Inhalt einer Zelle eingerückt ist, und falls nicht, diesen einzurücken, kannst du die Eigenschaft `.IndentLevel` verwenden. Diese gibt an, wie stark der Text in einer Zelle eingerückt ist (Standardwert ist 0, d.h. nicht eingerückt). Hier ein Beispiel-Makro, das dies für die aktuell markierte Zelle ausführt: ```vba Sub EinrueckenWennNichtEingerueckt() Dim zelle As Range Set zelle = ActiveCell If zelle.IndentLevel = 0 Then zelle.IndentLevel = 1 ' Einrücken um eine Stufe End If End Sub ``` **Erläuterung:** - `ActiveCell` ist die aktuell ausgewählte Zelle. - `IndentLevel` prüft, ob die Zelle eingerückt ist. - Falls nicht (`= 0`), wird der Einzug auf 1 gesetzt. Du kannst das Makro auch auf einen Zellbereich anwenden, indem du z.B. `For Each zelle In Selection` verwendest. **Hinweis:** Das Einrücken bezieht sich auf die Zellenformatierung, nicht auf Leerzeichen im Text.

Accepted Answer

Um in Excel den letzten Wert einer Spalte innerhalb einer **Intelligenten Tabelle** (auch als „Excel-Tabelle“ oder „ListObject“ bekannt) per Formel zu ermitteln, kannst du folg... [mehr]

Accepted Answer

Um in Excel den letzten Wert einer Spalte innerhalb einer **Intelligenten Tabelle** (auch als „Excel-Tabelle“ oder „ListObject“ bekannt) per Formel zu ermitteln, kannst du folgende Formel verwenden: Angenommen, deine Tabelle heißt **Tabelle1** und die Spalte, aus der du den letzten Wert ermitteln möchtest, heißt **Werte**. **Formel:** ```excel =INDEX(Tabelle1[Werte];ANZAHL2(Tabelle1[Werte])) ``` **Erklärung:** - `Tabelle1[Werte]` bezieht sich auf die gesamte Spalte „Werte“ in der Tabelle „Tabelle1“. - `ANZAHL2(Tabelle1[Werte])` zählt die Anzahl der nicht-leeren Zellen in dieser Spalte. - `INDEX(...; ...)` gibt den Wert in der letzten nicht-leeren Zelle dieser Spalte zurück. **Hinweis:** Diese Formel funktioniert auch dann, wenn die Tabelle wächst oder schrumpft, da sich die Bereichsbezüge automatisch anpassen. Weitere Infos zu Intelligenten Tabellen findest du bei Microsoft: [https://support.microsoft.com/de-de/office/verwenden-von-strukturierten-verweisen-mit-excel-tabellen-3fbecfa1-6292-4b32-b3e2-1f97d57af9b4](https://support.microsoft.com/de-de/office/verwenden-von-strukturierten-verweisen-mit-excel-tabellen-3fbecfa1-6292-4b32-b3e2-1f97d57af9b4)

Accepted Answer

Um in Excel eine Tabelle, die mit "Strg + T" erstellt wurde, wieder zu entfernen, kannst du die folgenden Schritte ausführen: 1. Klicke auf eine Zelle innerhalb der Tabelle. 2. Gehe zu... [mehr]

Accepted Answer

Um in Excel eine Tabelle, die mit "Strg + T" erstellt wurde, wieder zu entfernen, kannst du die folgenden Schritte ausführen: 1. Klicke auf eine Zelle innerhalb der Tabelle. 2. Gehe zum Tab "Tabellentools" (dieser erscheint, wenn du in der Tabelle bist). 3. Wähle den Tab "Entwurf" (oder "Design" je nach Excel-Version). 4. Klicke auf "In Bereich umwandeln" (oder "Convert to Range"). 5. Bestätige die Umwandlung, wenn du dazu aufgefordert wirst. Die Tabelle wird nun in einen normalen Zellbereich umgewandelt, und die speziellen Tabelleneigenschaften sind entfernt.

Accepted Answer

Um einen Vorgang vor einem bestimmten Vorgang in einer Excel-Tabelle zu finden, kannst du die folgenden Schritte befolgen: 1. **Sortieren der Daten**: Stelle sicher, dass deine Daten in einer logisch... [mehr]

Accepted Answer

Um einen Vorgang vor einem bestimmten Vorgang in einer Excel-Tabelle zu finden, kannst du die folgenden Schritte befolgen: 1. **Sortieren der Daten**: Stelle sicher, dass deine Daten in einer logischen Reihenfolge sortiert sind, z.B. nach Datum oder einer anderen relevanten Spalte. Du kannst die Daten markieren und dann über das Menü "Daten" die Sortierfunktion verwenden. 2. **Verwendung der Suchfunktion**: Drücke `Strg + F`, um das Suchfenster zu öffnen. Gib den Namen oder die ID des Vorgangs ein, nach dem du suchst. Excel wird dich direkt zu diesem Vorgang führen. 3. **Überprüfen der vorhergehenden Zeile**: Nachdem du den gesuchten Vorgang gefunden hast, kannst du einfach die Zeile darüber überprüfen, um den Vorgang davor zu finden. 4. **Verwendung von Formeln**: Wenn du eine dynamische Lösung suchst, kannst du auch eine Formel verwenden. Zum Beispiel, wenn deine Vorgänge in Spalte A stehen, könntest du in einer neuen Spalte eine Formel wie `=WENN(A2="dein Vorgang";A1;"")` verwenden, um den Vorgang davor anzuzeigen. Diese Methoden sollten dir helfen, den Vorgang vor einem bestimmten Vorgang in deiner Excel-Tabelle zu finden.

Accepted Answer

Um in Excel ein Bild in Spalte C anzuzeigen, wenn eine Nummer in Spalte A aktiviert wird, kannst du die folgende Vorgehensweise nutzen: 1. **Bilder in Tabelle 2 einfügen**: Stelle sicher, dass d... [mehr]

Accepted Answer

Um in Excel ein Bild in Spalte C anzuzeigen, wenn eine Nummer in Spalte A aktiviert wird, kannst du die folgende Vorgehensweise nutzen: 1. **Bilder in Tabelle 2 einfügen**: Stelle sicher, dass die Bilder in Tabelle 2 eingefügt sind und dass sie benannt sind (z.B. Bild1, Bild2, usw.), entsprechend den Nummern in Spalte A. 2. **VBA-Editor öffnen**: Drücke `ALT + F11`, um den VBA-Editor zu öffnen. 3. **Neues Modul einfügen**: Klicke mit der rechten Maustaste auf "VBAProject (deine Arbeitsmappe)" und wähle "Einfügen" > "Modul". 4. **Code einfügen**: Füge den folgenden Code in das Modul ein: ```vba Private Sub Worksheet_Change(ByVal Target As Range) Dim ws1 As Worksheet Dim ws2 As Worksheet Dim pic As Picture Dim picName As String Set ws1 = ThisWorkbook.Sheets("Tabelle1") ' Ändere den Namen entsprechend Set ws2 = ThisWorkbook.Sheets("Tabelle2") ' Ändere den Namen entsprechend If Not Intersect(Target, ws1.Range("A:A")) Is Nothing Then Application.EnableEvents = False ws1.Range("C:C").ClearContents ' Löscht vorherige Bilder For Each pic In ws2.Pictures pic.Visible = False ' Versteckt alle Bilder Next pic If IsNumeric(Target.Value) Then picName = "Bild" & Target.Value ' Angenommene Benennung der Bilder On Error Resume Next ws2.Pictures(picName).Visible = True ' Zeigt das entsprechende Bild an On Error GoTo 0 End If Application.EnableEvents = True End If End Sub ``` 5. **Speichern und Schließen**: Speichere die Änderungen und schließe den VBA-Editor. 6. **Testen**: Gehe zurück zu Tabelle 1 und gib eine Nummer in Spalte A ein. Das entsprechende Bild aus Tabelle 2 sollte in Spalte C angezeigt werden. Achte darauf, dass die Bildnamen in Tabelle 2 mit den Nummern in Spalte A übereinstimmen.

Accepted Answer

Um eine ganze Ze in Excel auszusch und in eine neue einzufügen, fol diesen Schritten: . **Zeile**: Klic auf die Zeilennummer der Zeile, du ausschneiden möchtest Dadurch wird die gesamte Zei... [mehr]

Accepted Answer

Um eine ganze Ze in Excel auszusch und in eine neue einzufügen, fol diesen Schritten: . **Zeile**: Klic auf die Zeilennummer der Zeile, du ausschneiden möchtest Dadurch wird die gesamte Zeile markiert. . **Ausschneiden**: Drücke die Tastenkombination `Strg + X` oder klicke mit der rechten Maustaste auf die markierte Zeile und wähle „Ausschneiden“ aus dem Kontextmenü. 3. **Neue Tabelle öffnen**: Wechsle zu der neuen Tabelle, in die du die Zeile einfügen möchtest. Wenn du noch keine neue Tabelle erstellt hast, kannst du dies tun, indem du auf das „+“-Symbol am unteren Rand des Excel-Fensters klickst. 4. **Einfügen**: Klicke auf die Zeile, in die du die ausgeschnittene Zeile einfügen möchtest (z. B. auf die Zeilennummer, um die gesamte Zeile auszuwählen), und drücke dann `Strg + V` oder klicke mit der rechten Maustaste und wähle „Einfügen“. Die ausgeschnittene Zeile wird nun in die neue Tabelle eingefügt.

Accepted Answer

Um in Excel mit einem Makro (VBA) ein Rechteck (z.B. "Rechteck 1") ein- und auszublenden, kannst du folgenden VBA-Code verwenden: ```vba Sub Rechteck1_EinAusblenden() Dim shp As Shape... [mehr]

Accepted Answer

Um in Excel mit einem Makro (VBA) ein Rechteck (z.B. "Rechteck 1") ein- und auszublenden, kannst du folgenden VBA-Code verwenden: ```vba Sub Rechteck1_EinAusblenden() Dim shp As Shape Set shp = ActiveSheet.Shapes("Rechteck 1") shp.Visible = Not shp.Visible End Sub ``` **Erläuterung:** - Das Makro sucht auf dem aktiven Arbeitsblatt nach dem Shape mit dem Namen "Rechteck 1". - Mit `shp.Visible = Not shp.Visible` wird die Sichtbarkeit umgeschaltet: Ist das Rechteck sichtbar, wird es ausgeblendet – und umgekehrt. **Hinweis:** Der Name des Rechtecks muss exakt stimmen. Du findest ihn, indem du das Rechteck auswählst und im Namensfeld (links oben neben der Bearbeitungsleiste) nachsiehst. **Makro einfügen:** 1. Drücke `ALT + F11`, um den VBA-Editor zu öffnen. 2. Wähle das gewünschte Arbeitsblatt im Projektfenster aus. 3. Füge den Code in ein neues oder bestehendes Modul ein. 4. Schließe den Editor und führe das Makro aus (z.B. über `ALT + F8`). Weitere Infos zu Shapes in Excel findest du auch bei [Microsoft](https://learn.microsoft.com/de-de/office/vba/api/excel.shape).

Accepted Answer

Um in Excel in Zelle **B1** den Wert aus dem Bereich **H1:H8** auszugeben, dessen Zeilennummer in **G1** steht, kannst du folgende Formel verwenden: ```excel =INDEX(H1:H8; G1) ``` **Erklärung:*... [mehr]

Accepted Answer

Um in Excel in Zelle **B1** den Wert aus dem Bereich **H1:H8** auszugeben, dessen Zeilennummer in **G1** steht, kannst du folgende Formel verwenden: ```excel =INDEX(H1:H8; G1) ``` **Erklärung:** - `INDEX(H1:H8; G1)` gibt den Wert aus dem Bereich H1:H8 zurück, der in der Zeile steht, die in G1 angegeben ist. - Beispiel: Steht in G1 die Zahl 3, wird der Wert aus H3 ausgegeben. **Hinweis:** G1 muss eine Zahl zwischen 1 und 8 enthalten, damit die Formel funktioniert.