Thema Datum  Von Nutzer Rating
Antwort
08.05.2013 21:02:01 Benedikt
NotSolved
Blau Markierte Zellen untereinander schreiben
 08.05.2013 23:14:31 Gast29469
NotSolved
09.05.2013 10:55:22 Gast64
NotSolved
09.05.2013 14:34:27 Gast80800
NotSolved

Ansicht des Beitrags:
Von:
Gast29469		 Datum:
08.05.2013 23:14:31		 Views:
824		 Rating:
     
Antwort:
  Ja
Thema:
Markierte Zellen untereinander schreiben		 
Sub demo()
  
  Dim wksDest As Excel.Worksheet
  Dim rngSrc As Excel.Range
  Dim rngDest As Excel.Range
  Dim rngCell As Excel.Range
  
  Set rngSrc = Selection
  
  With ThisWorkbook.Worksheets
    Set wksDest = .Add(After:=.Item(.Count))
    wksDest.Name = Format$(Now, "dd-mm-yyyy_hh-mm-ss")
  End With
  
  Set rngDest = wksDest.Range("A1")
  
  For Each rngCell In rngSrc.Cells
    rngDest.Value = rngCell.Value
    Set rngDest = rngDest.Offset(1)
  Next
  
  Set rngDest = Nothing
  Set rngSrc = Nothing
  Set wksDest = Nothing
  
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
08.05.2013 21:02:01 Benedikt
NotSolved
Blau Markierte Zellen untereinander schreiben
 08.05.2013 23:14:31 Gast29469
NotSolved
09.05.2013 10:55:22 Gast64
NotSolved
09.05.2013 14:34:27 Gast80800
NotSolved