Range-Variable selektiv Bereiche zuweisen

Hallo zusammen!
Ich würde gerne einer als Range deklarierten Variable selektiv verschiedene Zellen einer Zeile zuweisen. Es sollen nämlich nur die Zellen "markiert" bzw. zugewiesen werden, die eine bestimmte Bedingung erfüllen.
Konkret geht es um die Spalten G bis M in Zeile 4. Jede Zelle in dem Bereich G4:M4 soll der Range-Variable zugewiesen werden, wenn der Wert eines Array "soll_werte(1,i_spalte)" für die entsprechende Spalte 1 beträgt.
Hat das Array beispielsweise folgende Werte "soll_werte(1, 1 bis 7) = (1, 0, 0, 1, 0, 1, 1)", soll die Range-Variable folgendermaßen aussehen:
Dim rg as Range
Set range = ActiveSheet.Range("G4","J4","L4","M4")
Könnt ihr mir auf die Sprünge helfen, wie ich dieses Konzept dynamisieren kann?
Danke im voraus & beste Grüße!
Herms

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Herms,
so sollte es gehen:


Sub nn()

Dim soll_werte(1 To 1, 1 To 7) As Integer
soll_werte(1, 1) = 1
soll_werte(1, 4) = 1
soll_werte(1, 6) = 1
soll_werte(1, 7) = 1
'= (1, 0, 0, 1, 0, 1, 1) ' 
Dim rg As Range
Dim i, j As Integer, a As String
  i = 71 '="G" 
  For j = Lbound(soll_werte, 2) To Ubound(soll_werte, 2)
    If soll_werte(1, j) = 1 Then
      a = IIf(a = "", "", a & ",")
      a = a & Chr(i) & "4"
    End If
    i = i + 1
  Next j
  Set rg = ActiveSheet.Range(a)
  rg.Select
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 14 - mit VBAHTML 12.6.0


Gruß der AlteDresdner

Sub Fen() Dim rng As Range Z = 4 Tx = Array(1, 0, 0, 1, 0, 1, 1) For i = 0 To UBound(Tx) If Tx(i) Then Ra = Ra & Chr(71 + i) Next i Debug.Print Ra For i = 1 To Len(Ra) R = Mid(Ra, i, 1) & Z If rng Is Nothing Then Set rng = Range(R) Else Set rng = Union(rng, Range(R)) End If Next i Debug.Print rng.Address End Sub

Dim SollWerte dim i as Long dim rng As Range SollWerte = Array(1, 0, 0, 1, 0, 1, 1) with Range("G4").Offset(0, -Ubound(SollWerte)) for i = Lbound(SollWerte) to ubound(SollWerte) if SollWert(i) = 1 Then if rng is Nothing then Set rng = .Offset(0, i) else Set rng = Union(rng, .Offset(0, i)) end if end if next

Beliebteste Forumthreads (12 Monate)

Range-Variable selektiv Bereiche zuweisen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Range-Variable selektiv Bereiche zuweisen

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

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread