Thema Datum  Von Nutzer Rating
Antwort
Rot Übertragen der Werte ohne Formatierung
15.07.2021 08:38:22 Anja
NotSolved
15.07.2021 09:13:57 Werner
NotSolved

Ansicht des Beitrags:
Von:
Anja
Datum:
15.07.2021 08:38:22
Views:
32
Rating: Antwort:
  Ja
Thema:
Übertragen der Werte ohne Formatierung

Hallo Miteinander,

ich habe den folgenden Quellcode und würde gerne beim Übertragen der Werte nur die Werte und nicht die Formatierung mit übertragen.

Könnt ihr mir den Quellcode entsprechend ändern?smiley

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Option Explicit
 
Public Sub Test()
   
  Dim rngSource As Excel.Range
  Dim rngTarget As Excel.Range
   
  '#Quelle
  With ThisWorkbook.Worksheets("Eintrag")
    Set rngSource = .Range("A1").CurrentRegion
  End With
   
  'nichts zum Kopieren?
  If rngSource.Rows.Count = 1 Then Exit Sub
  'nur den Datenbereich referenzieren (d.h. ohne Kopfzeile)
  Set rngSource = rngSource.Resize(rngSource.Rows.Count - 1).Offset(1)
   
  '#Ziel
  With ThisWorkbook.Worksheets("Liste")
    Set rngTarget = .Cells(.Rows.Count, "A").End(xlUp).Offset(1)
  End With
   
'  Call rngTarget.Worksheet.Unprotect(Password:="")
  Call rngSource.Copy(Destination:=rngTarget)
'  Call rngTarget.Worksheet.Protect(Password:="")
 
  Call rngSource.Delete(xlShiftUp)
   
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
Rot Übertragen der Werte ohne Formatierung
15.07.2021 08:38:22 Anja
NotSolved
15.07.2021 09:13:57 Werner
NotSolved