Thema Datum  Von Nutzer Rating
Antwort
12.06.2019 12:54:44 User113241u235afsd2q
NotSolved
12.06.2019 15:06:53 Gast83057
NotSolved
Rot Verketten einer Spalte mit macro
 12.06.2019 21:18:33 Gast83057
NotSolved

Ansicht des Beitrags:
Von:
Gast83057		 Datum:
12.06.2019 21:18:33		 Views:
409		 Rating:
     
Antwort:
  Ja
Thema:
Verketten einer Spalte mit macro

UPS - was vergessen

Sub Kette()
Dim arr(), x

   arr = ActiveSheet.UsedRange.Columns(1).Resize(, 4).Value
   arr(2, 4) = arr(1, 1) & arr(1, 3) & arr(2, 1) & arr(2, 3)
   For x = 3 To UBound(arr, 1)
      arr(x, 4) = arr(x - 1, 4) & arr(x, 1) & arr(x, 3)
   Next x
   ActiveSheet.UsedRange.Columns(1).Resize(, 4).Value = arr
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
12.06.2019 12:54:44 User113241u235afsd2q
NotSolved
12.06.2019 15:06:53 Gast83057
NotSolved
Rot Verketten einer Spalte mit macro
 12.06.2019 21:18:33 Gast83057
NotSolved