Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Markierung per VBA um variablen Wert erweitern

Markierung per VBA um variablen Wert erweitern
07.05.2004 17:35:02
Fritz
Hallo VBA-Spezialisten,
wie kann ich folgenden Bereich markieren:
Ausgehend von der markierten Zelle möchte ich die Markierung auf die nächste Spalte nach rechts sowie um die Anzahl von Zeilen nach unten erweitern, deren Zahl jeweils in der Zelle A2 steht.
Wäre nett, wenn ihr mir wieder helfen würdet.
Vielen Dank bereits an dieser Stelle
Gruß
Fritz
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Markierung per VBA um variablen Wert erweitern
07.05.2004 17:38:35
Georg
Hallo Fritz
Range(ActiveCell, ActiveCell.Offset(Range("a2"), 1)).Select
Gruß
AW: Markierung per VBA um variablen Wert erweitern
Fritz
Hallo Georg,
das ging fix. Hat prima geklappt.
Vielen Dank nochmals
Gruß
Fritz
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Markierung per VBA um variablen Wert erweitern


Schritt-für-Schritt-Anleitung

  1. Öffne Excel und aktiviere die Arbeitsmappe, in der Du die Markierung vornehmen möchtest.
  2. Öffne den VBA-Editor: Drücke ALT + F11.
  3. Füge ein neues Modul hinzu: Klicke im Menü auf Einfügen > Modul.
  4. Gib den folgenden Code ein:
    Sub MarkierungErweitern()
        Range(ActiveCell, ActiveCell.Offset(Range("A2").Value, 1)).Select
    End Sub
  5. Schließe den VBA-Editor und kehre zu Excel zurück.
  6. Wähle die Zelle aus, von der aus die Markierung beginnen soll.
  7. Führe das Makro aus: Drücke ALT + F8, wähle MarkierungErweitern und klicke auf Ausführen.

Mit diesem VBA-Skript wird die Markierung um die in Zelle A2 angegebene Anzahl von Zeilen nach unten und eine Spalte nach rechts erweitert. Dies ist eine effiziente Methode, um deine Excel-Zelle nach unten zu vergrößern und die markierte Fläche schnell zu erweitern.


Häufige Fehler und Lösungen

  • Fehler: Laufzeitfehler 1004: Anwendung oder Objektdefinierung fehlgeschlagen

    • Lösung: Stelle sicher, dass in Zelle A2 eine numerische Eingabe vorhanden ist. Wenn A2 leer ist oder keinen gültigen Wert enthält, wird der Fehler ausgelöst.
  • Fehler: Der Range ist ungültig

    • Lösung: Überprüfe, ob die aktive Zelle am Rand des Arbeitsblatts liegt. In diesem Fall könnte die Markierung die Grenzen des Arbeitsblatts überschreiten.

Alternative Methoden

Wenn Du keine VBA-Lösung verwenden möchtest, kannst Du die Markierung auch manuell erweitern:

  1. Markiere die Zelle, von der Du starten möchtest.
  2. Halte die SHIFT-Taste gedrückt und wähle die untere rechte Zelle, die Du markieren möchtest.
  3. Verwende die Tastenkombination STRG + SHIFT + PFEIL NACH UNTEN, um die Markierung schnell nach unten zu erweitern.

Diese Methode ist zwar nicht so dynamisch wie VBA, kann aber in manchen Situationen schneller sein.


Praktische Beispiele

  • Beispiel 1: Du hast die Zelle B1 markiert und in A2 steht die Zahl 5. Nach Ausführen des Makros wird der Bereich von B1 bis C6 markiert.
  • Beispiel 2: Wenn Du die Zelle D3 auswählst und in A2 die Zahl 3 eingibst, wird der Bereich von D3 bis E6 markiert.

Tipps für Profis

  • Nutze Tastenkombinationen für eine schnellere Navigation. Das Drücken von F5 öffnet das Dialogfeld „Gehe zu“, wo Du schnell zu einer bestimmten Zelle gelangen kannst.
  • Dokumentiere Deine VBA-Skripte mit Kommentaren, damit Du später verstehen kannst, was jeder Teil des Codes bewirken soll.
  • Überlege, ob Du benannte Bereiche verwenden möchtest, um die Lesbarkeit und Wartbarkeit Deiner Excel-Dokumente zu verbessern.

FAQ: Häufige Fragen

1. Was passiert, wenn A2 leer ist?
Wenn A2 leer ist, wird der VBA-Code nicht funktionieren, und Du erhältst einen Fehler. Stelle sicher, dass immer ein gültiger Wert eingetragen ist.

2. Kann ich das Makro anpassen, um mehrere Spalten zu erweitern?
Ja, Du kannst den Offset-Wert in der Range-Funktion anpassen, um mehr Spalten zu markieren. Zum Beispiel ActiveCell.Offset(Range("A2").Value, 3) würde die Markierung um drei Spalten nach rechts erweitern.

3. Ist VBA in allen Excel-Versionen verfügbar?
Ja, VBA ist in den meisten modernen Excel-Versionen verfügbar, wie Excel 2010, 2013, 2016, 2019 und 365.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige