Thema Datum  Von Nutzer Rating
Antwort
13.08.2017 23:47:21 Chris
NotSolved
14.08.2017 09:29:48 Werner
NotSolved
14.08.2017 09:58:27 Gast30934
NotSolved
14.08.2017 10:11:02 Werner
NotSolved
14.08.2017 10:22:27 Gast88723
NotSolved
Blau Nächste Zelle Beschreiben
 14.08.2017 10:30:17 Werner
Solved
14.08.2017 11:14:50 Gast15138
Solved
14.08.2017 11:17:35 Werner
Solved

Ansicht des Beitrags:
Von:
Werner		 Datum:
14.08.2017 10:30:17		 Views:
604		 Rating:
     
Antwort:
 Nein
Thema:
Nächste Zelle Beschreiben

Hallo Chris,

so:

Private Sub Button_Click()
Dim Spalte As Long

Spalte = Worksheets("Kind").Cells(3, Columns.Count).End(xlToLeft).Column + 1
With Worksheets("Mia")
      .Range("L10:L13").Copy
      Worksheets("Kind").Cells(3, Spalte).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End With
Application.CutCopyMode = False
End Sub

 

Gruß Werner

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
13.08.2017 23:47:21 Chris
NotSolved
14.08.2017 09:29:48 Werner
NotSolved
14.08.2017 09:58:27 Gast30934
NotSolved
14.08.2017 10:11:02 Werner
NotSolved
14.08.2017 10:22:27 Gast88723
NotSolved
Blau Nächste Zelle Beschreiben
 14.08.2017 10:30:17 Werner
Solved
14.08.2017 11:14:50 Gast15138
Solved
14.08.2017 11:17:35 Werner
Solved