Wie kann man mit einem Excel-Makro allen Zellen von M17 bis M25 den Wert 1 zuweisen?

Question

Wie kann man mit einem Excel-Makro allen Zellen von M17 bis M25 den Wert 1 zuweisen?

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 mit einem Makro die Inhalte und Rahmen der Zellen A4 bis C7 löschen?

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

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

Wie übernehme ich den kleineren Wert aus zwei Zellen in Excel?

Wie kann ich in Excel die Inhalte von A17 und B17 in C1 anzeigen?

Excel-Zellen umformatieren: Wörter in Großbuchstaben korrekt schreiben.

Wie färbe ich in Excel alle Zellen mit Text?

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

Accepted Answer

Um in Excel per Makro (VBA) allen Zellen im Bereich M17:M25 den Wert 1 zuzuweisen, kannst du folgenden VBA-Code verwenden: ```vba Sub BereichMitEinsBefuellen() Range("M17:M25").Value = 1 End Sub ``` So funktioniert es: 1. Drücke `ALT + F11`, um den VBA-Editor zu öffnen. 2. Wähle im linken Fenster das gewünschte Arbeitsblatt oder „DieseArbeitsmappe“ aus. 3. Klicke auf „Einfügen“ > „Modul“. 4. Füge den obigen Code in das Modul ein. 5. Schließe den Editor und führe das Makro aus (z.B. über `ALT + F8`). Alle Zellen von M17 bis M25 erhalten dann den Wert 1.

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 die Inhalte und Rahmen der Zellen von A4 bis C7 zu löschen, kannst du folgenden VBA-Code verwenden: ```vba Sub InhalteUndRahmenLoeschen() With Range("A4:C7&q... [mehr]

Accepted Answer

Um mit einem Makro in Excel die Inhalte und Rahmen der Zellen von A4 bis C7 zu löschen, kannst du folgenden VBA-Code verwenden: ```vba Sub InhalteUndRahmenLoeschen() With Range("A4:C7") .ClearContents ' Inhalte löschen .Borders.LineStyle = xlNone ' Rahmen entfernen End With End Sub ``` **Kurzanleitung:** 1. Drücke `ALT + F11`, um den VBA-Editor zu öffnen. 2. Wähle „Einfügen“ > „Modul“. 3. Füge den obigen Code ein. 4. Schließe den Editor und führe das Makro aus. Damit werden sowohl die Zellinhalte als auch alle Rahmen in dem Bereich entfernt.

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 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... [mehr]

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

Um in Excel den kleineren Wert aus zwei Zellen zu übernehmen, kannst du die Funktion `MIN` verwenden. Angenommen, die beiden Zellen sind A1 und B1, dann lautet die Formel: ```excel =MIN(A1; B1)... [mehr]

Accepted Answer

Um in Excel den kleineren Wert aus zwei Zellen zu übernehmen, kannst du die Funktion `MIN` verwenden. Angenommen, die beiden Zellen sind A1 und B1, dann lautet die Formel: ```excel =MIN(A1; B1) ``` Diese Formel gibt den kleineren Wert der beiden Zellen A1 und B1 zurück. Du kannst die Formel in eine andere Zelle eingeben, um das Ergebnis anzuzeigen.

Accepted Answer

Um die Inhalte von Zelle A17 und B17 in Zelle C1 anzuzeigen, kannst du die folgende Formel verwenden: ```excel =A17 & " " & B17 ``` Diese Formel kombiniert den Text aus A17 und B17... [mehr]

Accepted Answer

Um die Inhalte von Zelle A17 und B17 in Zelle C1 anzuzeigen, kannst du die folgende Formel verwenden: ```excel =A17 & " " & B17 ``` Diese Formel kombiniert den Text aus A17 und B17 mit einem Leerzeichen dazwischen. Wenn du die Formel in C1 eingibst, wird dort "Angebot gesamt 01.01.2024 - 31.01.2024" angezeigt.

Accepted Answer

Um in Excel Zellen mit Text in Großbuchstaben korrekt zu formatieren, kannst du die Funktion `PROPER` verwenden. Diese Funktion wandelt den Text so um, dass der erste Buchstabe jedes Wortes gro&... [mehr]

Accepted Answer

Um in Excel Zellen mit Text in Großbuchstaben korrekt zu formatieren, kannst du die Funktion `PROPER` verwenden. Diese Funktion wandelt den Text so um, dass der erste Buchstabe jedes Wortes groß und die restlichen Buchstaben klein sind. Hier ist, wie du es machen kannst: 1. Angenommen, der Text Großbuchstaben steht in Zelle A1. 2. Klicke in eine leere Zelle, z.B. B1. 3. Gib die folgende Formel ein: `=PROPER(A1)`. 4. Drücke die Eingabetaste. Jetzt wird der Text aus A1 in B1 korrekt formatiert angezeigt. Du kannst die Formel nach unten ziehen, um sie auf weitere Zellen anzuwenden.

Accepted Answer

Um in Excel alle Zellen zu färben, die Text enthalten, kannst du die bedingte Formatierung verwenden. Hier sind die Schritte: 1. Markiere den Bereich, in dem du die Zellen färben möcht... [mehr]

Accepted Answer

Um in Excel alle Zellen zu färben, die Text enthalten, kannst du die bedingte Formatierung verwenden. Hier sind die Schritte: 1. Markiere den Bereich, in dem du die Zellen färben möchtest. 2. Gehe zum Reiter "Start" in der Menüleiste. 3. Klicke auf "Bedingte Formatierung". 4. Wäh "Neue Regel". 5. Wähle "Formel zur Ermittlung der zu formatierenden Zellen verwenden". 6. Gib die folgende Formel ein: `=ISTEXT(A1)` (ersetze A1 durch die erste Zelle deines markierten Bereichs). 7. Klicke auf "Formatieren" und wähle die gewünschte Füllfarbe aus. 8. Bestätige mit "OK". Jetzt werden alle Zellen im ausgewählten Bereich, die Text enthalten, mit der gewählten Farbe hervorgehoben.

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).