Code abändern bzw. Zusatz einfügen

Hallo, guten Abend
Mit untenstehenden Code wir in einem Sheet der Vorgang "richtig" vollzogen.
Ich schaff es einfach nicht im zweiten Arbeitsschritt [wksWinter.Range(strBereich) = "B"] also in einem zweiten Sheet in nur jeder zweiten Zelle ein Wert wie in diesem Fall das "B" darzustellen.
INFO: Habe den ganzen Code eingefügt, da Code basierend auf "Mehrfachmarkierung(en)"

Private Sub cmdWinterTelefon_Click()
Dim strBereich As String, i As Integer, strBereichW As String, iW As Integer
getMoreSpeed True
With Selection.Areas
For i = 1 To .Count
strBereich = strBereich & .Item(i).Address(False, False) & ", "
Next i
End With
strBereich = Left$(strBereich, Len(strBereich) - 2)
With Range(strBereich).Interior
.Pattern = xlPatternLinearGradient
.Gradient.Degree = 270
.Gradient.ColorStops.Clear
End With
With Range(strBereich).Interior.Gradient.ColorStops.Add(0)
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.400006103701895
End With
With Range(strBereich).Interior.Gradient.ColorStops.Add(1)
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.400006103701895
End With
'**************Hier um diesen Bereich geht´s, der Rest funkt anstandslos*************
wksWinter.Range(strBereich) = "B"
getMoreSpeed False
Unload Me
End Sub

vielen lieben Dank im Voraus
& Gruß Lorenz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Beispiel() Dim rngData As Range, iRow As Long Set rngData = wksWinter.Range("E2:I37") With rngData For iRow = .Row To (.Row + .Rows.Count - 1) Step 2 wksWinter.Cells(iRow, .Column) = "B" Next End With End Sub

Hallo Lorenz,
leider habe ich dich noch immer nicht verstanden. Du schreibst "Es spielt sich alles in einer Zeile ab" und dennoch befinden sich in deinem Beispiel drei Zellen in Zeile 12 (B12+D12+F12) und drei andere Zellen in Zeile 22 (G22+I22+K22). Also nachfolgend noch ein Beispiel, wie auch bei Mehrfachselektion in jede Zelle ein "B" eingetragen wird:

Sub Beispiel()
Dim rngData As Range
Set rngData = Range("B12,D12,F12,G22,I22,K22")
rngData = "B"
End Sub

Und falls nur die erste Zelle jeder Selektion mit einem "B" befüllt werden soll, lautet der Code so:

Sub Beispiel2()
Dim rngData As Range, rngArea As Range
Set rngData = Range("B12:C12,D12:E12,F12:G12,G22:H22,I22:J22,K22:L22")
For Each rngArea In rngData.Areas
rngArea.Cells(1, 1) = "B"
Next
End Sub

Ich hoffe, dass diesmal etwas Passendes dabei ist.
Viele Grüße
Martin

Beliebteste Forumthreads (12 Monate)

Code abändern bzw. Zusatz einfügen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread