07.08.2017, 22:26
Hi,
ich habe ein VBA-Code in einem Modul gespeichert, welches durch Betätigung eines Button ausgeführt wird.
Jetzt habe ich einen zweiten VBA Code darunter geschrieben.
Ich würde gerne, dass durch Betätigung des Button gleich beide Codes abgespielt werden, was zur Zeit nicht geschieht.
Was muss ich ändern?
Viele Grüße und DANKE!
ich habe ein VBA-Code in einem Modul gespeichert, welches durch Betätigung eines Button ausgeführt wird.
Jetzt habe ich einen zweiten VBA Code darunter geschrieben.
Ich würde gerne, dass durch Betätigung des Button gleich beide Codes abgespielt werden, was zur Zeit nicht geschieht.
Was muss ich ändern?
Viele Grüße und DANKE!
Code:
Sub kopieren()
Dim lngC As Long
Dim rngZelle As Range
Dim vntUrsprung As Variant, vntZiel As Variant
vntUrsprung = Array("B23", "E23", "G10", "G28", "G35", "C45", "L29", "M29", "N29", "P29", "Q29", "P14", "Q14", "Q10", "G38")
vntZiel = Array("Q", "R", "T", "AA", "AB", "AC", "W", "X", "Y", "N", "O", "B", "C", "AO", "AI")
Range("M1:M2").Copy Worksheets("Spielabschnitt").Range("AR1")
For lngC = 0 To UBound(vntUrsprung)
Worksheets("Spielabschnitt").Range(vntZiel(lngC) & Range("M2")).Value = Range(vntUrsprung(lngC)).Value
Next lngC
For Each rngZelle In Range("AA6,AA9,AA12,AA15,AA23,AA26,AA29,AA32,AA40,AA43,AA46,AA49")
If rngZelle.Value = 1 Then
Worksheets("Spielabschnitt").Range("H" & Range("M2")).Value = rngZelle.Offset(, 6).Value
Exit For
End If
Next rngZelle
Application.CutCopyMode = False
End Sub
Sub FarbeReiter()
Dim Blatt As Worksheet
For Each Blatt In ActiveWorkbook.Worksheets
If InStr(Blatt.Name, "Kopie") > 0 Then
Blatt.Tab.ColorIndex = 3
End If
Next Blatt
End Sub