MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 12.01.2017, 11:56   #1
culli25
Neuer Benutzer
Neuer Benutzer
Standard Frage - Den Wert aus der Formel anzeigen

Suche mal wieder Hilfe im speziellen Fall.
Ich versuche aus der Tabelle Arb.Tab die Spalten U und V (sind Formeln drin) nach Tabelle Zuza zu kopieren. Mir wird zwar die Formel rüber kopiert, ich möchts aber das gleich der Wert erscheint. Formel: (=WENN($L4="S";"++++++";"")

Was und wie muss ich hier etwas ergänzen?

Bedanke mich bereits jetzt für jegliche Hilfe.

Gruß Culli

Private Sub CommandButton17_Click() ' Die Tabelle Zuzahlung
Dim Zeile As Long
Dim ZeileMax As Long
Dim i As Long
' .AutoFilter 4, 1
With Worksheets("Zuza")
Worksheets("Tab_Teiln").Range("A1:z230").ClearContents ' LÖSCHEN der alten Daten???????
Worksheets("Arb. Tab").Range("c1:c230").Copy Destination:=Worksheets("Zuza").Range("b1")
Worksheets("Arb. Tab").Range("d1:d230").Copy Destination:=Worksheets("Zuza").Range("a1")
Worksheets("Arb. Tab").Range("l1:l230").Copy Destination:=Worksheets("Zuza").Range("c1")
Worksheets("Arb. Tab").Range("m1:m230").Copy Destination:=Worksheets("Zuza").Range("f1")
Worksheets("Arb. Tab").Range("u1:u230").Copy Destination:=Worksheets("Zuza").Range("d1")
Worksheets("Arb. Tab").Range("v1:v230").Copy Destination:=Worksheets("Zuza").Range("e1")
' .PasteSpecial Paste:=xlPasteValues
' Application.CutCopyMode = False
ZeileMax = .UsedRange.Rows.Count
n = 1

For Zeile = 1 To ZeileMax
Next Zeile
End With
End Sub
culli25 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.01.2017, 12:36   #2
Beverly
MOF Guru
MOF Guru
Standard

Hi,

du warst schon auf dem richtigen Weg, allerdings musst du PasteSpecial für jeden Kopiergang einsetzen - also nach diesem Prinzip für jeden Bereich:

Code:

Worksheets("Arb. Tab").Range("c1:c230").Copy
Worksheets("Zuza").Range("b1").PasteSpecial Paste:=xlValues

GrußformelBeverly's Excel - Inn

__________________

Möchtest du dich für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).
Beverly ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.01.2017, 13:44   #3
culli25
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Danke fürs Interesse und die schnelle Hilfe.
Habe aber folgendes Problem:
Wenn ich auf ausführen gehen kommt der Fehler "Fehler beim kompilieren, Syntaxfehler"
Habe die beiden letzten Zeilen geändert, wo die Formeln kopiert werden sollten.
Was muss ich verändern, ergänzen?

Danke und Gruß Culli

Worksheets("Arb. Tab").Range("l1:l230").Copy Destination:=Worksheets("Zuza").Range("c1")
Worksheets("Arb. Tab").Range("m1:m230").Copy Destination:=Worksheets("Zuza").Range("f1")

Worksheets("Arb. Tab").Range("u1:u230").Copy Worksheets("Zuza").Range("d1").PasteSpecial Paste:=xlValues

Worksheets("Arb. Tab").Range("v1:v230").Copy Worksheets("Zuza").Range("e1").PasteSpecial Paste:=xlValues

ZeileMax = .UsedRange.Rows.Count
n = 1

For Zeile = 1 To ZeileMax
Next Zeile
End With
End Sub
culli25 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.01.2017, 14:33   #4
Beverly
MOF Guru
MOF Guru
Standard

Schau dir den Unterschied zwischen deinem Code

Code:

Worksheets("Arb. Tab").Range("u1:u230").Copy Worksheets("Zuza").Range("d1").PasteSpecial Paste:=xlValues

und meinem (prinzipiellen) Code

Code:

Worksheets("Arb. Tab").Range("c1:c230").Copy
Worksheets("Zuza").Range("b1").PasteSpecial Paste:=xlValues
mal ganz genau an...


GrußformelBeverly's Excel - Inn

__________________

Möchtest du dich für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).
Beverly ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.01.2017, 17:41   #5
culli25
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Wie immer, souverän gelöst.
Ich ließ mich zum "einzeiligen" verleiten.

Danke für dein Hilfe.

Gruß Culli
culli25 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:59 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.