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

gelöst Keine ganzen Zeilen sondern nur den Bereich kopieren

Mitglied: matester

matester (Level 1) - Jetzt verbinden

03.08.2010, aktualisiert 04.08.2010, 3851 Aufrufe, 8 Kommentare

Hallo zusammen,

Kann mir jemand sagen, wie ich bei diesem Code nicht die ganze Zeile (1) , sondern nur den Bereich von A bis G der jeweiligen Zeilen nach Tabelle2 kopieren kann (siehe Bild1)???


Sub kopieren_Daten()
Dim WkSh_Q As Worksheet
Dim WkSh_Z As Worksheet
Dim rZelle As Range
Dim sFundst As String
Dim sSuchbegriff As String
Dim lZeile_Z As Long
sSuchbegriff = "K-E*" ' der zu suchende Begriff
lZeile_Z = 2 ' die erste Ausgabezeile -1
Set WkSh_Q = Worksheets("Tabelle1") 'Quell-Tabellenblatt in Basis-Datei
Set WkSh_Z = Worksheets("Tabelle2") 'Ziel-Tabellenblatt in Stamm Datei
'Kopiervorgang starten
With WkSh_Q.Columns(1) 'Auswahl Spalte A (1=A)
Set rZelle = .Find(sSuchbegriff, LookAt:=xlWhole, LookIn:=xlValues)
If Not rZelle Is Nothing Then
sFundst = rZelle.Address
Do
lZeile_Z = lZeile_Z + 1

(1) WkSh_Q.Rows(rZelle.Row).Copy Destination:=WkSh_Z.Rows(lZeile_Z)

Set rZelle = .FindNext(rZelle)
Loop While Not rZelle Is Nothing And rZelle.Address <> sFundst
Else
End If
End With
'Kopiervorgang beenden
End Sub

Bild1
ded9d18e6fe2564d61d7adb24dfc5184 - Klicke auf das Bild, um es zu vergrößern


Und evtl. ein Hinweis, dass nur die jeweiligen Zellen A, C, E und G bei dem Begriff "K-E" in Tabelle2 kopiert werden (siehe Bild2).

Bild2
c17e90209e3560d42f6b572c7d9a95d4 - Klicke auf das Bild, um es zu vergrößern



Vielen Dank im Voraus . . .
Mitglied: bastla
03.08.2010 um 18:08 Uhr
Hallo matester!

Sollte so:
WkSh_Q.Range(Cells(rZelle.Row, "A"), Cells(rZelle.Row, "G")).Copy Destination:=WkSh_Z.Cells(lZeile_Z, "A")
bzw so:
WkSh_Q.Cells(rZelle.Row, "C").Copy Destination:=WkSh_Z.Cells(lZeile_Z, "B")
gehen.

Grüße
bastla

P.S.: Falls Dir (hoffentlich) meine Darstellung des geposteten Codes besser als die Deine gefallen sollte: https://www.administrator.de/helpsystem/detail.php?idx=20#toc28
Bitte warten ..
Mitglied: matester
03.08.2010 um 19:37 Uhr
Hallo bastla,

kannst du evtl. bei dem anderen noch offenen Thema "VBA Zeilen in andere Tab kopieren" zu Punkt 3 noch unterstützen (30.07.2010)???

Vielen Dank erstmal für diese schnelle Antwort.
Bitte warten ..
Mitglied: 76109
03.08.2010 um 21:40 Uhr
Hallo matester, Hallo bastla!

Und wenns nur die Spalten A, C, E und G sein sollen, dann in etwa so:
01.
With rZelle 
02.
    Union(.Cells(.Row, "A"), .Cells(.Row, "C"), .Cells(.Row, "E"), .Cells(.Row, "G")).Copy WkSh_Z.Cells(lZeile_Z, "A") 
03.
   'oder 
04.
    Union(.Offset(0, 0), .Offset(0, 2), .Offset(0, 4), .Offset(0, 6)).Copy WkSh_Z.Cells(lZeile_Z, "A") 
05.
End With
@bastla
Das
WkSh_Q.Range(Cells(rZelle.Row, "A"), Cells(rZelle.Row, "G")).Copy Destination:=WkSh_Z.Cells(lZeile_Z, "A")
wohl eher so
Range(WkSh_Q.Cells(rZelle.Row, "A"), WkSh_Q.Cells(rZelle.Row, "G")).Copy Destination:=WkSh_Z.Cells(lZeile_Z, "A")

Kommt davon, wenn man nebenbei noch den Fernseher eingeschaltet hat

Gruß Dieter
Bitte warten ..
Mitglied: matester
03.08.2010 um 22:39 Uhr
Guten Tag Dieter,

die Zeile "WkSh_Q.Range(Cells(rZelle.Row, "A"), Cells(rZelle.Row, "G")).Copy Destination:=WkSh_Z.Cells(lZeile_Z, "A")"
hat bei mir funktioniert!!!

Oder habe ich etwas übersehen???
Bitte warten ..
Mitglied: bastla
03.08.2010 um 22:51 Uhr
Hallo matester!

Dieter hat eine (sehr elegante ) Lösung (bzw eigentlich sogar zwei) für das Kopieren der (nicht zusammenhängenden) Zellen aus den Spalten A, C E und G gezeigt - ich hatte aus Deinem Bild 2 ebenfalls geschlossen, dass Du das erreichen möchtest ...

Grüße
bastla
Bitte warten ..
Mitglied: 76109
04.08.2010 um 17:03 Uhr
Hallo matester, Hallo bastla!

Einen hab ich noch :
01.
With rZelle.Rows 
02.
    Union(.Columns("A"), .Columns("C"), .Columns("E"), .Columns("G")).Copy WkSh_Z.Cells(lZeile_Z, "A")  
03.
End With
Gruß Dieter
Bitte warten ..
Mitglied: matester
04.08.2010 um 17:04 Uhr
Hallo zusammen,

meine Hausaufgabe konnte ich mit eurer Unterstützung zu 100% abschließen!!!

Vielen Dank an Dieter und an Dich für die kompetente Unterstützung!!!
Bitte warten ..
Mitglied: Biber
04.08.2010 um 18:32 Uhr
Moin matester,

Zitat von matester:
meine Hausaufgabe konnte ich mit eurer Unterstützung zu 100% abschließen!!!
Dann würde das Häkchen oben am Beitrag aber nicht tesafilmfarben leuchten, sondern eher wie die Galle,
die immer so schön geprickelt 'at in meine Bauchnabel, weil ich dauernd an so etwas erinnern muss.

Grüße
Biber

P.S. Ich verschiebe diesen Beitrag mal von "Visual Basic & Verwandte" nach "Office"-"Excel".
Weil... eingedampftes Kopieren nicht zusammenhängender Zellbereiche in ein befreundetes Sheet...
Das ist schon ein bisschen speziell.
Bitte warten ..
Ähnliche Inhalte
VB for Applications

Bereich Markieren und Kopieren (Verständnis)

gelöst Frage von Gimli3311VB for Applications4 Kommentare

Guten Tag Zusammen, ich hab ein Verständnisproblem was das Thema angeht einen Bereich zu markieren und dann zu kopieren. ...

VB for Applications

Über VBA kopieren des gefilterten Bereiches

Frage von BlueLinesVB for Applications1 Kommentar

Hallo an Alle Könnte mir vielleicht jemand mit diesem Code weiterhelfen. 1. Problem: Er soll aus einer Mappe die ...

Batch & Shell

Zeilen aus Textdokument kopieren

gelöst Frage von stridingBatch & Shell6 Kommentare

Hallo Administrator-Community! Ich stehe mal wieder vor einer, für mich, komplizierten Aufgabe, und bestimmt kann mir auch diesmal jemand ...

Batch & Shell

Zeile von einer Bat-Datei in eine andere kopieren

gelöst Frage von Nick.BBatch & Shell6 Kommentare

Ich wollte eine Zeile von einer Bat-Datei in eine andere schreiben, dies habe ich auch mit echo geschafft aber ...

Neue Wissensbeiträge
Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 3 StundenHumor (lol)1 Kommentar

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 16 StundenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Sicherheit

Intel gibt neue Spectre V2-Microcode-Updates frei (20.02.2018)

Information von kgborn vor 16 StundenSicherheit

Intel hat zum 20. Februar 2018 weitere Microcode-Updates für OEMs freigegeben, um Systeme mit neueren Prozessoren gegen die Spectre ...

Microsoft
ARD-Doku - Das Microsoft Dilemma
Tipp von Knorkator vor 19 StundenMicrosoft3 Kommentare

Hallo zusammen, vor einigen Tagen lief in der ARD u.a. Reportage. Das Youtube Video dazu dürfte länger verfügbar sein. ...

Heiß diskutierte Inhalte
Windows Server
AD DS findet Domäne nicht, behebbar?
Frage von schapitzWindows Server40 Kommentare

Guten Tag, ich habe bei einem Kunden ein Problem mit den AD DS. Umgebung ist folgende: Windows Server 2016 ...

Router & Routing
LANCOM VPN CLIENT einrichten
Frage von Finchen961988Router & Routing27 Kommentare

Hallo, ich habe ein Problem und hoffe ihr könnt mir helfen, wir haben einen Kunden der hat einen Speedport ...

Router & Routing
ISC DHCP 2 Subnetze
gelöst Frage von janosch12Router & Routing19 Kommentare

Hallo, ich betreibe bei mir im Netzwerk einen ISC DHCP Server auf Debian, der DHCP verwaltet aktuell ein /24 ...

Switche und Hubs
Cisco SG350X-48 AdminIP in anderes VLAN
Frage von lcer00Switche und Hubs14 Kommentare

Hallo zusammen, ich habe ein Problem mir einem Cisco SG350X-48 bei der Erstinstallation wurde eine IP 192.168.0.254 (Default VLAN ...