Herbers Excel/VBA-Archiv

Zelle mehrfach kopieren

• Zelle mehrfach kopieren von Chris vom 03.09.2020 10:39:05
• AW: Zelle mehrfach kopieren - von Werner am 03.09.2020 10:45:47
  • AW: Zelle mehrfach kopieren - von Chris am 03.09.2020 11:27:47
    • Gerne u. Danke für die Rückmeldung. o.w.T. - von Werner am 03.09.2020 12:06:54
• AW: Zelle mehrfach kopieren - von Matthias L am 03.09.2020 10:58:28
  • AW: Zelle mehrfach kopieren - von Chris am 03.09.2020 13:05:01

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"