Thema Datum  Von Nutzer Rating
Antwort
04.10.2018 13:02:23 ersin22
NotSolved
Blau EXCEL VBA - Wenn Zelle in Spalte G leer, dann verkette Zelle B und C in Zelle L
 04.10.2018 18:06:35 Gast70117
*****
Solved
04.10.2018 22:16:51 Gast43054
NotSolved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
04.10.2018 18:06:35		 Views:
424		 Rating:
     
Antwort:
 Nein
Thema:
EXCEL VBA - Wenn Zelle in Spalte G leer, dann verkette Zelle B und C in Zelle L		 
Sub NachVorlage()
Dim Ws As Worksheet
Dim rngU As Range, rngG As Range, rngA As Range, rngC As Range
Dim Chain As String, Flag As Boolean

   Set Ws = ActiveSheet
   With Ws
      Set rngU = .UsedRange.Columns(7)
      'immer wenn die Spalte G einen leeren Wert
      Set rngG = rngU.SpecialCells(xlCellTypeBlanks)
      For Each rngA In rngG.Areas
         Chain = "": Flag = False
         For Each rngC In rngA.Cells
            'und auch nur wenn Spalte A "Merkmal" identisch ist für die leeren Zellen in Spalte G
            If rngC.Offset(, -6) = rngA.Cells(1).Offset(-1, -6) Then
               'die Zellen B und C in derselben Zeile in Zelle L zu verketten
               Chain = Chain & ", " & rngC.Offset(, -5) & " " & rngC.Offset(, -4)
               Flag = True
            End If
         Next rngC
         'aber in der Zeile wo zuletzt ein Wert in Zelle G stand
         If Flag Then rngA.Cells(1).Offset(-1, 5) = Mid(Chain, 3)
      Next rngA
   End With
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
04.10.2018 13:02:23 ersin22
NotSolved
Blau EXCEL VBA - Wenn Zelle in Spalte G leer, dann verkette Zelle B und C in Zelle L
 04.10.2018 18:06:35 Gast70117
*****
Solved
04.10.2018 22:16:51 Gast43054
NotSolved