Thema Datum  Von Nutzer Rating
Antwort
23.07.2018 16:11:35 Sufix33
NotSolved
Blau Spalten einfügen
 23.07.2018 16:28:41 Gast62
NotSolved
23.07.2018 16:45:02 Sufix33
NotSolved
23.07.2018 23:01:38 Ulrich
NotSolved
24.07.2018 08:31:41 sufix66
NotSolved
24.07.2018 10:42:35 Sufix
NotSolved

Ansicht des Beitrags:
Von:
Gast62		 Datum:
23.07.2018 16:28:41		 Views:
1074		 Rating:
     
Antwort:
  Ja
Thema:
Spalten einfügen

Hallo,

versuch es mal so:

 

Dim lLastRow As Long, rngLast As Range
    Set rngLast = Sheets("Systemcheck").Cells.Find("*", , , , xlByRows, xlPrevious)
    If rngLast Is Nothing Then
        lLastRow = 1
    Else
        lLastRow = rngLast.Row + 1
    End If
    Intersect(Sheets("LOL").UsedRange, Sheets("LOL").Columns("A:B")).Copy destination:=Sheets("Systemcheck").Cells(lLastRow, 49)

 

Grüße, Ulrich

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
23.07.2018 16:11:35 Sufix33
NotSolved
Blau Spalten einfügen
 23.07.2018 16:28:41 Gast62
NotSolved
23.07.2018 16:45:02 Sufix33
NotSolved
23.07.2018 23:01:38 Ulrich
NotSolved
24.07.2018 08:31:41 sufix66
NotSolved
24.07.2018 10:42:35 Sufix
NotSolved