mehrere Zellen mit Makro bearbeiten

Dieses Thema mehrere Zellen mit Makro bearbeiten im Forum "Windows XP Forum" wurde erstellt von T-Low, 11. Feb. 2003.

Thema: mehrere Zellen mit Makro bearbeiten Hallo! Ich habe eine Exceltabelle, die ungefähr so aussieht: ABCD 1B821224-2 2Q91503-112 3SNK121-22 4SS3445-121...

  1. Hallo!

    Ich habe eine Exceltabelle, die ungefähr so aussieht:
    [table]
    [tr][td][/td][td]A[/td][td]B[/td][td]C[/td][td]D[/td][/tr]
    [tr][td]1[/td][td]B82[/td][td]1224-2 [/td][td][/td][td][/td][/tr]
    [tr][td]2[/td][td]Q91[/td][td]503-112[/td][td][/td][td][/td][/tr]
    [tr][td]3[/td][td]SNK[/td][td]121-22[/td][td][/td][td][/td][/tr]
    [tr][td]4[/td][td]SS3[/td][td]445-121[/td][td][/td][td][/td][/tr]
    [/table]

    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:

    [table]
    [tr][td][/td][td]A[/td][td]B[/td][td]C[/td][td]D[/td][/tr]
    [tr][td]1[/td][td]B82[/td][td]1224-2 [/td][td]11.02.03[/td][td]Wert aus B15[/td][/tr]
    [tr][td]2[/td][td]Q91[/td][td]503-112[/td][td]11.02.03[/td][td]Wert aus B15[/td][/tr]
    [tr][td]3[/td][td]SNK[/td][td]121-22[/td][td][/td][td][/td][/tr]
    [tr][td]4[/td][td]SS3[/td][td]445-121[/td][td][/td][td][/td][/tr]
    [/table]

    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
     
  2. itz
    itz
    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.
     
  3. Yipijahe! :D

    Danke Dir!

    T-Low
     
Die Seite wird geladen...

mehrere Zellen mit Makro bearbeiten - Ähnliche Themen

Forum Datum
Mit Regel / Formel Zellen Formatieren - Eine Regel funktioniert, mehrere nicht Microsoft Office Suite 6. Okt. 2011
Excel: Vergleichen und dann mehrere Zellen kopieren Windows XP Forum 27. Okt. 2007
Calc: Wie bei Excel in mehrere Zellen gleichen Wert eintragen StarOffice, OpenOffice und LibreOffice 5. Mai 2007
Problem mit max. Wert für von mehreren Zellen Microsoft Office Suite 4. Feb. 2007
Tabellenauswertung nach mehreren Zellen Microsoft Office Suite 31. Jan. 2007