Thema Datum  Von Nutzer Rating
Antwort
06.05.2017 12:30:19 Red
NotSolved
Blau Werte aus einem Zellenbereich in andere Spalte schreiben
06.05.2017 13:44:31 BigBen
*****
Solved
06.05.2017 21:00:15 Red
NotSolved

Ansicht des Beitrags:
Von:
BigBen
Datum:
06.05.2017 13:44:31
Views:
553
Rating: Antwort:
 Nein
Thema:
Werte aus einem Zellenbereich in andere Spalte schreiben

Hallo,

vielleicht hilft dieser Code weiter:

Sub CopyWithRelation()
    Dim rngSource As Range
    Dim rngDest As Range
    Dim rng As Range
    Set rngSource = Intersect(Range("A:A"), ActiveSheet.UsedRange)
    For Each rng In rngSource.Cells
        Set rngDest = ActiveSheet.Cells(rng.Row, 12)
        rngDest.Formula = rng.Formula
    Next
End Sub

Vor dem Ausführen des Befehls muss die Tabelle mit der zu kopierenden Werten in Spalte A aktiviert worden sein.

LG, BigBen


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
06.05.2017 12:30:19 Red
NotSolved
Blau Werte aus einem Zellenbereich in andere Spalte schreiben
06.05.2017 13:44:31 BigBen
*****
Solved
06.05.2017 21:00:15 Red
NotSolved