Thema Datum  Von Nutzer Rating
Antwort
23.07.2018 16:11:35 Sufix33
NotSolved
23.07.2018 16:28:41 Gast62
NotSolved
Rot Spalten einfügen
 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:
Sufix33		 Datum:
23.07.2018 16:45:02		 Views:
1070		 Rating:
     
Antwort:
  Ja
Thema:
Spalten einfügen

Danke Ulrich,

 

meinst du nur deinen Code, oder soll ich diesen über/unter meinen Kopieren?

Sub Makro4()

    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)
    
    Sheets("LOL").Select
    Columns("A:B").Select
    Selection.Copy
    Sheets("Systemcheck").Select
    Columns("AW:AX").Select
    ActiveSheet.Paste
    
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
23.07.2018 16:11:35 Sufix33
NotSolved
23.07.2018 16:28:41 Gast62
NotSolved
Rot Spalten einfügen
 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