Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

VBA Programmierung

Mitglied: specialuser

specialuser (Level 1) - Jetzt verbinden

14.08.2017 um 10:26 Uhr, 696 Aufrufe, 4 Kommentare

Hallo zusammen,

der Wert aus Zelle L30 und N30 soll ins wb2 kopiert werden funktionier so weit auch ganz gut außer bei der Zelle N30 und N38 in diesen beiden Zellen ist eine Formel hinterlegt deswegen überträgt es beim kopieren nur ein #NV, daher soll hier nur der Wert kopiert werden. Ich glaube es funktioniert mit einer Value funktion weis aber nicht genau weis jemand wo ich das einfügen muss das es funktioniert.

Private Sub öffneVersandübersicht_Click()
Dim wb2 As Workbook
Set wb2 = Workbooks.Open("Datei xyz")
ThisWorkbook.Activate

With Sheets(1)

.Range("K38").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Offset(1)
.Range("L24").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "D").End(xlUp).Offset(1)
.Range("L30").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "E").End(xlUp).Offset(1)
.Range("N30").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "F").End(xlUp).Offset(1)
.Range("K38").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "G").End(xlUp).Offset(1)
End With
End Sub

Gruß
Mitglied: emeriks
14.08.2017, aktualisiert um 10:42 Uhr
Hi,
bitte Code-Tags benutzen!

Ich glaube, so müsste es funktionieren.
01.
Sheets(1).Range("K38").Copy 
02.
wb2.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial xlPasteValues
03.
....
E.
Bitte warten ..
Mitglied: specialuser
14.08.2017, aktualisiert um 11:09 Uhr
Hallo Emeriks,

danke für deine Antwort aber wenn ich das so versuche kommt Fehler beim Kompilieren: Syntaxfehler.

01.
Private Sub öffneVersandübersicht_Click()
02.
    Dim wb2 As Workbook
03.
    Set wb2 = Workbooks.Open("datei xyz")
04.
    ThisWorkbook.Activate
05.
    
06.
    With Sheets(1)
07.
           
08.
            .Range("K38").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Offset(1)
09.
            .Range("L24").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "D").End(xlUp).Offset(1)
10.
            .Range("L30").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "E").End(xlUp).Offset(1)
11.
            sheets(1).Range("N30").Copy wb2.Sheets(1).Cells(Rows.Count, "F").End(xlUp).Offset(1).PasteSpecial xlPasteValue
12.
            .Range("K38").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "G").End(xlUp).Offset(1)
13.
            End With
14.
End Sub
Wenn ich das Sheets(1) rausnehme bei Range N30 kommt der Fehler erwartet Anweisungsende.

Gruß
Bitte warten ..
Mitglied: 133883
14.08.2017, aktualisiert um 11:34 Uhr
Naja wenn aus zwei Zeilen die dir emeriks geliefert hat, eine machst kein Wunder ...
Ist ja auch so schwer mal in die Referenz zu schauen

Range.Copy
Range.PasteSpecial

Gruß
Bitte warten ..
Mitglied: emeriks
14.08.2017 um 13:13 Uhr
Trenn Zeile 11 wieder in 2 Zeilen auf oder ein ":" dazwischen.
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Excel VBA Programmierung
gelöst Frage von specialuserVB for Applications7 Kommentare

Hallo zusammen, ich suche auf diesem Weg Hilfe bei einer VBA Programmierung. Und zwar geht es darum 2 Dropdownlisten ...

Outlook & Mail

VBA Programmierung (Ausführung bei gelesenen Mails)

Frage von TwykerOutlook & Mail1 Kommentar

Hey Zusammen, ich eigne mir grade VBA an und komme jetzt nicht mehr weiter. Ich hab ein Lampensystem an ...

Suche Projektpartner

Excel VBA 2010 Programmierer mit Erfahrung in Diagramm-Programmierung

Frage von evolutionSuche Projektpartner

Hallo, ich suche einen erfahrenen Excel-VBA-Programmierer (2010), für ein Kundenprojekt. Hauptsächlich geht es um Flächenbilanzen und Potentialanalysen die dann ...

HTML

HTML Programmierung

Frage von Alex29HTML5 Kommentare

Hallo zusammen, ich wollte mein Haus etwas smarter machen und habe daher nun einige Microcontroller laufen, die einige Steuerungsfunktionen ...

Neue Wissensbeiträge
Windows Server

Active Directory ESE Version Store Changes in Server 2019

Information von Dani vor 1 StundeWindows Server

Moin, Last month at Microsoft Ignite, many exciting new features rolling out in Server 2019 were talked about. But ...

Exchange Server

Microsoft Extending End of Support for Exchange Server 2010

Information von Dani vor 1 StundeExchange Server

Moin, After investigating and analyzing the deployment state of an extensive number of Exchange customers we have decided to ...

Schulung & Training

Humble Book Bundle: Network and Security Certification 2.0

Tipp von NetzwerkDude vor 3 StundenSchulung & Training

Abend, bei HumbleBundle gibts mal wider ein schönes Paket e-books: sind verschiedene Zertifizierungen wie MCSA, CCNA, CompTIA etc., für ...

Voice over IP

Telekom Umstellung von ISDN Anlagenanschluss auf IP-Telefonie

Erfahrungsbericht von NixVerstehen vor 3 TagenVoice over IP7 Kommentare

Hallo zusammen, nachdem nun vor ein paar Tagen die zwangsweise Umstellung von ISDN auf IP-Telefonie problemlos über die Bühne ...

Heiß diskutierte Inhalte
Windows Server
Drucker auf dem Terminalserver 2016 via Printserver wird nicht angezeigt
Frage von EchterHansenWindows Server14 Kommentare

Moin Moin, ich habe hier zwei 2016er Terminalserver und einen 2016er Printserver, auf dem ca. 10 RICOH-Drucker Typ 4. ...

Hardware
Ncomputing N600 oder auch 600W Privat nutzen Kostenlos oder kostengünstig
gelöst Frage von PlerTanixHardware14 Kommentare

Hallo liebe Forum User, Ich habe da eine Frage. Ich bin Azubi im dritten Lehrjahr und bei uns in ...

Windows 10
Upgrade Windows 10 1903 und Office 2010 Problem mit Userzertifikaten
gelöst Frage von Looser27Windows 1012 Kommentare

Guten Morgen, ich habe bei uns ein Phänomen in o.g. Kombination festgestellt, welches nach dem Inplace-Upgrade auf 1903 auftritt. ...

Hardware
Ausrichtung Profilschienen - was würdet ihr empfehlen?
gelöst Frage von ShihanHardware10 Kommentare

Ich habe einen Digitus 19" 12 U Netzwerkschrank. Dieser hätte eigentlich nur vorne Profilschienen, da ich aber im hinteren ...