Microsoft Excel

Herbers Excel/VBA-Archiv

Zelle mehrfach kopieren

Betrifft: Zelle mehrfach kopieren von: Chris
Geschrieben am: 03.09.2020 10:39:05

Liebes VBAler,


ich möchte den range A2:A25 nach den Werten X und Y durchsuchen. Sobald der Wert auftaucht soll die jeweilige Zelle 8 mal in der gleichen Reihe nach rechts kopiert werden. Wie löst man so etwas per VBA?


Vielen Dank schon mal.


Gruß


Chris

Betrifft: AW: Zelle mehrfach kopieren
von: Werner
Geschrieben am: 03.09.2020 10:45:47

Hallo,

so:
Public Sub Mehrfach()
Dim i As Long, raBereich As Range

With Worksheets("Tabelle1")
    For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
        Select Case .Cells(i, "A")
            Case "x", "y"
                .Cells(i, "A").Resize(, 8).Value = .Cells(i, "A").Value
            Case Else
        End Select
    Next i
End With
            
End Sub
Gruß Werner

Betrifft: AW: Zelle mehrfach kopieren
von: Chris
Geschrieben am: 03.09.2020 11:27:47

Hallo Werner,

funktioniert! Vielen Dank!

Gruß

Chris

Betrifft: Gerne u. Danke für die Rückmeldung. o.w.T.
von: Werner
Geschrieben am: 03.09.2020 12:06:54



Betrifft: AW: Zelle mehrfach kopieren
von: Matthias L
Geschrieben am: 03.09.2020 10:58:28

Hallo Chris
Sub Kopiere()
Dim rng As Range
For Each rng In Range("A2:A25")
 If rng = "x" Or rng = "y" Then
  rng.AutoFill Destination:=Range("A" & rng.Row & ":I" & rng.Row), Type:=xlFillCopy
 End If
Next
End Sub
Gruß Matthias

Betrifft: AW: Zelle mehrfach kopieren
von: Chris
Geschrieben am: 03.09.2020 13:05:01

Hallo Matthias,

danke für dein Makro. Es läuft wunderbar!
Gruß

Chris

Beiträge aus dem Excel-Forum zum Thema "Zelle mehrfach kopieren"