Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
872to876
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
872to876
872to876
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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é

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é

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

Anzeige
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

101 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige