mehrere Zellen mit Makro bearbeiten

T-Low · 11.02.2003

Hallo!

Ich habe eine Exceltabelle, die ungefähr so aussieht:

	A	B	C	D
1	B82	1224-2
2	Q91	503-112
3	SNK	121-22
4	SS3	445-121

Diese Tabelle umfasst etwa 2700 Zeilen. Von Zeit zu Zeit muss ich bestimmte Zellen ausstreichen. Dazu brauche ich ein Makro, welches die markierten Zellen in den Spalten A und B durchstreicht und in der entsprechenden Zeile in Spalte C das aktuelle Datum und in Spalte D den Wert einer Zelle (z.B. B15) ausgibt. Das soll dann später so aussehen:

	A	B	C	D
1	~~B82~~	~~1224-2~~	11.02.03	Wert aus B15
2	~~Q91~~	~~503-112~~	11.02.03	Wert aus B15
3	SNK	121-22
4	SS3	445-121

Alle markierten Zellen durchzustreichen ist kein Problem. Ein Problem habe ich mit der Ausgabe der Werte in den Spalten C und D, erst recht, wenn ich mehrere Zeilen markiert habe.

Wie kann ich also Excel beibringen, in den Spalten C und D der markierten Zeilen bestimmte Werte einzutragen?

Ich brauche kein komplettes Makro, aber ein Hinweis in die richtige Richtung wäre schon sehr viel Wert. Zumal die Sache für mich wirklich sehr, sehr wichtig ist.

T-Low

itz · 11.02.2003

Hallo T-Low,

versuch es mal so:

Code:

Sub test()
Dim bereich As Range
Dim startZeile As Long, endZeile As Long
Set bereich = Selection
startZeile = bereich.Row
endZeile = bereich.Row + bereich.Rows.Count - 1
For i = startZeile To endZeile
    Cells(i, 3).Value = Date
    Cells(i, 4).Value = Range(E1).Value
Next i
End Sub

Steffan.

T-Low · 11.02.2003

Yipijahe!

Danke Dir!

T-Low

mehrere Zellen mit Makro bearbeiten

T-Low

itz

T-Low

mehrere Zellen mit Makro bearbeiten

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums