Thema Datum  Von Nutzer Rating
Antwort
Rot Problem: Makro fügt Formeln mit ein
15.02.2016 16:04:26 David
NotSolved

Ansicht des Beitrags:
Von:
David		 Datum:
15.02.2016 16:04:26		 Views:
1709		 Rating:
     
Antwort:
  Ja
Thema:
Problem: Makro fügt Formeln mit ein
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 Attribute VB_Name = "Modul1" 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 Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A1").Select Application.CutCopyMode = False 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 Problem: Makro fügt Formeln mit ein
15.02.2016 16:04:26 David
NotSolved