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

mit VBA Teile einer unbekannten Excel Datei in eine neue kopieren

Frage Microsoft Microsoft Office

Mitglied: Shaggy84

Shaggy84 (Level 1) - Jetzt verbinden

07.03.2008, aktualisiert 11.03.2008, 12703 Aufrufe, 3 Kommentare

Hallo Forum User, bastla, biber und alle die anderen,

ich bin mal wieder kurzzeitig von meinen Servern weg und stehe erneut vor einem kleinen VBA Problem.

Ich möchte per Makro aus einer unbestimmten Datei Teile in meine Datei kopieren.

Dieser erste Code soll den gesammten Inhalt von der Quelldatei in meine Zieldatei kopieren. Das Makro starte ich von der Zieldatei heraus.
Bis jetzt kopiert er den Inhalt der Quelldatei in die Zwischenablage. Wie wechsel ich zur Zieldatei zurück, ohne ihren Namen dafür angeben zu müssen? (falls nicht möglich natürlich auch mit Namen)

01.
Application.Dialogs(xlDialogOpen).Show 
02.
 
03.
Sheets("Tabelle1").Range("1:65535").Copy 
04.
 
05.
'wie wechsel ich hier zur Zieldatei zurück? 
06.
Sheets("TT").Range("1:65535").PasteSpecial _ 
07.
Paste:=xlPasteValues 
08.
 
09.
Sheets("TT").Activate 
10.
Sheets("TT").Cells(1, 1).Select
Anschließend möchste ich in der Zieldatei "ausmisten", d.h. Zeilen Löschen wenn in Spalte xy nicht "Y" drin steht und ähnliches. Welchen Befehl kann man nehmen, um nur z.B. die ersten beiden Buchstaben einer Zelle ab zu fragen? (mit den WENN Funktionen kenne ich dies, aber mit VBA?)

Grüße, Gregor
Mitglied: wakko
07.03.2008 um 16:25 Uhr
Moin,

das geht folgendermaßen:
01.
Dim wb As Workbook 'Arbeitsmappe def. 
02.
Set wb = ActiveWorkbook 'Arbeitsmappe auf das aktive Workbook setzen 
03.
Application.Dialogs(xlDialogOpen).Show 'Nun ist das aktive Workbook das neu geöffnete 
04.
Sheets("Tabelle1").Range("1:65535").Copy 
05.
 
06.
'wie wechsel ich hier zur Zieldatei zurück? -> wb ansprechen 
07.
wb.Sheets(1).Range("1:65535").PasteSpecial _ 
08.
Paste:=xlPasteValues 
Abfrage der ersten beiden Zeichen einer Zelle:
01.
erstebeidezeichen = Left(ActiveSheet.Cells(1,1).value, 2)
MfG,
Henrik
Bitte warten ..
Mitglied: bastla
07.03.2008 um 16:54 Uhr
Hallo Shaggy84!

Einfach die aktuelle Mappe als Objekt zwischenspeichern:
01.
... 
02.
Dim Ziel As Workbook 
03.
Set Ziel = ThisWorkbook 
04.
 
05.
Application.Dialogs(xlDialogOpen).Show 
06.
 
07.
Worksheets("Tabelle1").Range("1:65535").Copy 
08.
Ziel.Worksheets("TT").Range("1:65535").PasteSpecial _ 
09.
Paste:=xlPasteValues 
10.
Application.CutCopyMode = False 
11.
 
12.
Ziel.Worksheets("TT").Activate 
13.
Worksheets("TT").Cells(1, 1).Select 
14.
...
"Sheets()" habe ich durch "Worksheets()" ersetzt, da es hier ja um Tabellenblätter geht (besonders dann ein Thema, wenn Du nicht über den Namen, sondern über Index darauf zugreifen willst).
Für die ersten 2 Zeichen einer Zeichenkette kannst Du "Left()" verwenden, also etwa
01.
If Left(Worksheets("TT").Cells(3, 5).Value, 2) = "AB" Then ...
Weitere in diesem Zusammenhang nützliche Funktionen wären "Right()" und "Mid()" sowie "InStr()" ...

Grüße
bastla

[Edit] Wer hat an der Uhr gedreht? Sorry, wakko, als ich mit dem Kommentar begonnen habe, war Dein Posting noch nicht da ... [/Edit]
Bitte warten ..
Mitglied: Shaggy84
11.03.2008 um 08:09 Uhr
Funktioniert wunderbar, danke ihr beiden
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Excel VBA UserForm1 - Daten in neue Datei kopieren
gelöst Frage von abuelitoMicrosoft Office10 Kommentare

Hallo an Alle, ich habe wieder mal ein Problem mit meiner UserForm1. Ich habe eine UserForm1 und möchte über ...

Batch & Shell
Eine Datei in einen unbekanntes Unterverzeichnis kopieren
gelöst Frage von mschaedler1982Batch & Shell8 Kommentare

Hallo zusammen. Ich sitze hier vor einem Problem und das bekomme ich nicht gelöst. Ich möchte aus einem bestimmten ...

Microsoft
Excel-Datei mit VBA speichern
gelöst Frage von 116408Microsoft6 Kommentare

Guten Tag Ich habe eine Excel-Datei, in der in D4 der Kundenname und in D11 das Projekt benennt wird. ...

VB for Applications
VBA EXCEL: Automatisches Kopieren von Rohdaten
Frage von Sofo56VB for Applications1 Kommentar

Hallo liebe Community, Ich bin auf der Suche nach einem Beispielcode, der folgendes möglich macht: Ich habe ein Sheet ...

Neue Wissensbeiträge
Sicherheits-Tools

Achtung: Sicherheitslücke im FortiClient VPN-Client

Tipp von kgborn vor 12 MinutenSicherheits-Tools

Ich weiß nicht, wie häufig die NextGeneration Endpoint Protection-Lösung von Fortinet in deutschen Unternehmen eingesetzt wird. An dieser Stelle ...

Internet

USA: Die FCC schaff die Netzneutralität ab

Information von Frank vor 14 StundenInternet2 Kommentare

Jetzt beschädigt US-Präsident Donald Trump auch noch das Internet. Der neu eingesetzte FCC-Chef Ajit Pai ist bekannter Gegner einer ...

DSL, VDSL

ALL-BM200VDSL2V - Neues VDSL-Modem mit Vectoring von Allnet

Information von Lochkartenstanzer vor 18 StundenDSL, VDSL1 Kommentar

Moin, Falls jemand eine Alternative zu dem draytek sucht: Gruß lks

Windows 10

Microsoft bestätigt DMA-Policy-Problem in Win10 v1709

Information von DerWoWusste vor 18 StundenWindows 10

Wer sein Gerät mit der DMA-Policy absichert, bekommt evtl. Hardwareprobleme in v1709 von Win10. Warum? Weil v1709 endlich "richtig" ...

Heiß diskutierte Inhalte
Netzwerkmanagement
Mehrere Netzwerkadapter in einem PC zu einem Switch zusammenfügen
Frage von prodriveNetzwerkmanagement21 Kommentare

Hallo zusammen Vorweg, ich konnte schon einige IT-Probleme mit Hilfe dieses Forums lösen. Wirklich klasse hier! Doch für das ...

Hardware
Links klick bei Maus funktioniert nicht
gelöst Frage von Pablu23Hardware16 Kommentare

Hallo erstmal. Ich habe ein Problem mit meiner relativ alten maus jedoch denke ich nicht das es an der ...

Windows Server
Anmeldung direkt am DC nicht möglich
Frage von ThomasGrWindows Server16 Kommentare

Hallo, ich habe bei unserem Server 2016 Standard ein Problem. Keine Ahnung wie das auf einmal passiert ist. Ich ...

TK-Netze & Geräte
VPN-fähige IP-Telefone
Frage von the-buccaneerTK-Netze & Geräte14 Kommentare

Hi! Weiss noch jemand ein VPN-fähiges IP-Telefon mit dem man z.B. einen Heimarbeitsplatz gesichert anbinden könnte? Habe nur einen ...