Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Mehreren Zellen per VBA einen Wert zuweisen

Mehreren Zellen per VBA einen Wert zuweisen
04.06.2007 16:15:00
kretzing
Hallo zusammen,
ich habe eine weitere Frage. Wie kann ich mehreren Zellen per VBA möglichst einfach, d.h. möglichst ohne Schleifen-Programmierung, einen Wert zuweisen (z.B. dem Bereich A2 bis A4000). Gibt es dafür eine einfache Lösung?
Herzlichen Dank!
Schönen Gruß
André

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehreren Zellen per VBA einen Wert zuweisen
04.06.2007 16:26:04
Niels
Hi Andre,
ja gibt es!

Sub eintragen()
wert = InputBox("Bitte Wert eingeben")
Range("a2:a4000") = wert
End Sub


Gruß Niels

AW: Mehreren Zellen per VBA einen Wert zuweisen
04.06.2007 16:29:00
kretzing
Vielen Dank für Eure Antworten!
Und warum geht folgender Code nicht?
Zeilen = Sheets("Tabelle1").Range("N31")
Sheets("Woche01").Select
Range("A2:A" & Zeilen) = 1
Vielen Dank für Euren Hinweis!
Schöne Grüße
André

Anzeige
AW: Mehreren Zellen per VBA einen Wert zuweisen
04.06.2007 16:37:02
Bill

Sub ttt()
Dim Zeilen As Integer
Zeilen = Sheets("Tabelle1").Range("N31")
Sheets("Woche1").Range("A2:A" & Zeilen) = 1
End Sub


test mal dies
Gruss Bill

AW: Mehreren Zellen per VBA einen Wert zuweisen
04.06.2007 16:40:00
kretzing
Funktionier! Vielen Dank Bill!

AW: Mehreren Zellen per VBA einen Wert zuweisen
04.06.2007 16:26:40
Original
[a2:a4000] = 123
mfg Kurt
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Mehreren Zellen per VBA einen Wert zuweisen


Schritt-für-Schritt-Anleitung

Um mehreren Zellen in Excel per VBA einen Wert zuzuweisen, kannst Du folgende Schritte befolgen:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.

  2. Klicke im Menü auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code in das Modul ein:

    Sub eintragen()
        wert = InputBox("Bitte Wert eingeben")
        Range("A2:A4000") = wert
    End Sub
  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Drücke ALT + F8, wähle das Makro eintragen aus und klicke auf Ausführen.

  6. Gib den gewünschten Wert ein, der in den Bereich A2 bis A4000 eingetragen werden soll.

Mit diesem einfachen Excel-Makro kannst Du schnell und effizient mehrere Zellen mit einem bestimmten Wert befüllen, ohne dabei Schleifen zu verwenden.


Häufige Fehler und Lösungen

  • Fehler: "VBA-Fehler: Typen unverträglich"

    • Lösung: Stelle sicher, dass der Wert, den Du eingibst, in den Zellen gespeichert werden kann (z.B. keine Textzeichen in numerischen Zellen).
  • Fehler: "Bereich nicht gefunden"

    • Lösung: Überprüfe den Namen des Arbeitsblatts, wenn Du einen spezifischen Bereich ansprichst. Achte auf die korrekte Benennung, z.B. Sheets("Woche01").Range(...).

Alternative Methoden

Eine alternative Methode, um mehreren Zellen per VBA einen Wert zuzuweisen, ist die Verwendung einer Variablen für den Zellbereich:

Sub alternativeMethode()
    Dim zellenBereich As Range
    Set zellenBereich = Sheets("Woche01").Range("A2:A4000")
    zellenBereich.Value = 123 ' Beispielwert
End Sub

Diese Methode ist nützlich, wenn Du den Bereich in mehreren Makros verwenden möchtest.


Praktische Beispiele

Wenn Du den Wert in einem Bereich dynamisch festlegen möchtest, kannst Du den folgenden Code verwenden:

Sub dynamischeZuweisung()
    Dim Zeilen As Integer
    Zeilen = Sheets("Tabelle1").Range("N31").Value
    Sheets("Woche01").Range("A2:A" & Zeilen).Value = 1
End Sub

In diesem Beispiel wird die Anzahl der Zeilen, die aktualisiert werden sollen, aus einer anderen Zelle gelesen, was eine flexible Anpassung ermöglicht.


Tipps für Profis

  • Nutze die InputBox, um dynamische Werte zu erfassen und so Deine Makros interaktiver zu gestalten.
  • Vermeide es, Schleifen zu verwenden, wenn Du große Datenmengen bearbeitest, um die Ausführungsgeschwindigkeit zu erhöhen.
  • Experimentiere mit benutzerdefinierten Funktionen, um komplexere Berechnungen und Zuweisungen durchzuführen.

FAQ: Häufige Fragen

1. Kann ich auch andere Zellbereiche ansprechen?
Ja, Du kannst jeden Zellbereich ansprechen, indem Du den Range-Parameter entsprechend anpasst, z.B. Range("B1:B100").

2. Wie kann ich mehrere Werte gleichzeitig zuweisen?
Du kannst ein Array verwenden, um mehrere Werte gleichzeitig einzutragen. Beispiel:

Sub mehrereWerte()
    Dim werte(1 To 2) As Variant
    werte(1) = "Wert 1"
    werte(2) = "Wert 2"
    Range("A1:A2") = Application.Transpose(werte)
End Sub

Mit diesen Informationen bist Du gut gerüstet, um mehreren Zellen per VBA einen Wert zuzuweisen und gängige Probleme zu lösen.

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