Thema Datum  Von Nutzer Rating
Antwort
Rot Makro kopiert Formeln statt Werte Hilfe !!!!!
 15.02.2016 18:13:17 David
NotSolved
15.02.2016 21:26:53 Crazy Tom
NotSolved
15.02.2016 23:12:06 Gast5718
NotSolved
16.02.2016 11:18:59 Gast44523
NotSolved
16.02.2016 11:20:18 Gast54340
NotSolved

Ansicht des Beitrags:
Von:
David		 Datum:
15.02.2016 18:13:17		 Views:
1292		 Rating:
     
Antwort:
  Ja
Thema:
Makro kopiert Formeln statt Werte Hilfe !!!!!

Hallo Leute, mein Makro kopiert eine Spalte und fügt Sie auf einem anderen Tabellenblatt wieder ein. Dabei geht es bei jeder Betätigung eine Spalte weiter. Leider werden die Formeln mit kopiert ich benötige aber nur die Werte. Ich kenne mich nicht gut aus. kann mir jemand sagen wie ich den Code ändern müsste ? MfG David

 

Option Explicit


Sub SpalteKopieren()

Worksheets("Rasterblatt").Unprotect Password:="test"

'die Umgebung festlegen ! ********************************************
Const QUELLTABELLE As String = "Rasterblatt"
Const ZIELTABELLE As String = "Daten"
Const QUELLSPALTE As String = "B"
'*********************************************************************
'
Dim rngQuelle As Range, c As Range
Dim lngZielspalte As Long
 
   With Sheets(ZIELTABELLE)
      lngZielspalte = 2
      'Belegung prüfen
      Set c = .UsedRange
      If c.Address <> .Cells(2).Address Then
         'schon benutzt
         lngZielspalte = c.Columns(c.Columns.Count).Offset(, 1).Column
      End If
   End With
    
   Set c = Nothing
    
   With Sheets(QUELLTABELLE).Columns(QUELLSPALTE)
      'Belegung prüfen
      On Error Resume Next
      Set c = .ColumnDifferences(Comparison:=.Cells(.Rows.Count))
      On Error GoTo 0
      If Not c Is Nothing Then
         'Daten gefunden
         'Ziel = lngZielspalte Zelle 1
        
        c.Copy Destination:=Sheets(ZIELTABELLE).Columns(lngZielspalte).Cells(1)
      End If
   End With

 

Worksheets("Rasterblatt").Protect Password:="test"

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 Makro kopiert Formeln statt Werte Hilfe !!!!!
 15.02.2016 18:13:17 David
NotSolved
15.02.2016 21:26:53 Crazy Tom
NotSolved
15.02.2016 23:12:06 Gast5718
NotSolved
16.02.2016 11:18:59 Gast44523
NotSolved
16.02.2016 11:20:18 Gast54340
NotSolved