Thema Datum  Von Nutzer Rating
Antwort
18.02.2021 11:13:48 Tim
NotSolved
Blau Bestimmte Zellen in ein neues Arbeitsblatt kopieren
 18.02.2021 11:42:25 volti
NotSolved

Ansicht des Beitrags:
Von:
volti		 Datum:
18.02.2021 11:42:25		 Views:
178		 Rating:
     
Antwort:
  Ja
Thema:
Bestimmte Zellen in ein neues Arbeitsblatt kopieren

Hallo Tim,

vielleicht hilft Dir dieses Beispiel weiter.

Einziger Nachteil: Es wird in einem leeren Blatt erst ab der 2.Zeile kopiert....

Code:
01
02
03
04
05
06
07
08
09
10
11
12
13
14		  
Sub Rechnung_transfer()
  Dim WShZ As Worksheet, WShQ As Worksheet

  Set WShQ = Worksheets("Vorlage")
  Set WShZ = Worksheets("Rechnungen")
  With WShZ.Range("A$" & WShZ.Cells(WShZ.Rows.Count, 2).End(xlUp).Row + 1)
      .Offset(, 0).Value = WShQ.Range("B16").Value ' Rechnungsnummer
      .Offset(, 1).Value = WShQ.Range("B15").Value ' Kundennummer
      .Offset(, 2).Value = WShQ.Range("F15").Value ' Rechnungsdatum
      .Offset(, 3).Value = WShQ.Range("F27").Value ' Rechnungsbetrag
  End With

End Sub
_________
viele Grüße
Karl-Heinz

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
18.02.2021 11:13:48 Tim
NotSolved
Blau Bestimmte Zellen in ein neues Arbeitsblatt kopieren
 18.02.2021 11:42:25 volti
NotSolved