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

VBA Datei Kopieren und Zeilen löschen

Frage Entwicklung VB for Applications

Mitglied: 95590

95590 (Level 1)

10.12.2010, aktualisiert 08:07 Uhr, 4471 Aufrufe, 5 Kommentare

Hi!
Hab folgendes vor: Habe ein Excel-Dokument, dass möchte ich in ein neues Dokument kopieren und dieses dann bearbeiten und abspeichern.
Jetzt hab ich das Problem, dass er mir nie das neuerstellte dokument bearbeitet sondern immer das Orginal. Und er löscht auch nicht alle Zeilen sondern immer nur eine.
Hier ist mein Code. Vielen Dank!

Private Sub CommandButton2_Click()
Dim hilf As Integer
hilf = 0
Arbeitsblatt1 = ActiveWorkbook.Name
Workbooks.Add
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="(*.xls), *.xls")
Arbeitsblatt2 = ActiveWorkbook.Name
Windows(Arbeitsblatt1).Activate
Cells.Select
Selection.Copy
Windows(Arbeitsblatt2).Activate
ActiveSheet.Paste
For y = 1 To 300
If hilf = 0 Then
Adresse = Range("A" & y)
Adresse = Left(Adresse, 9)
If Adresse = "(* Analog" Then
Rows(y).Delete
hilf = 1
Else
End If
Else
Rows(y).Delete
End If
Next y
If fileSaveName <> False Then
ActiveWorkbook.SaveAs fileSaveName
End If
MsgBox "Datei gespeichert unter " & fileSaveName
End Sub
Mitglied: 76109
10.12.2010 um 11:09 Uhr
Hallo FredFesl !

Versuchs mal so:
01.
Option Compare Text 
02.
 
03.
Private Sub CommandButton2_Click() 
04.
    Dim FileSaveName As Variant, EndLine As Long, i As Long 
05.
     
06.
    FileSaveName = Application.GetSaveAsFilename(fileFilter:="(*.xls), *.xls") 
07.
     
08.
    If FileSaveName = False Then Exit Sub 
09.
     
10.
    Cells.Copy 
11.
     
12.
    Workbooks.Add:  ActiveSheet.Paste 
13.
    
14.
    Application.CutCopyMode = False 
15.
     
16.
    EndLine = 300 
17.
     
18.
    For i = 1 To EndLine 
19.
        If i > EndLine Then Exit For 
20.
         
21.
        If Cells(i, "A") Like "(* Analog*" Then 
22.
            Rows(i).Delete:  i = i - 1:  EndLine = EndLine - 1 
23.
        End If 
24.
    Next 
25.
     
26.
    Range("A1").Select 
27.
     
28.
    ActiveWorkbook.SaveAs FileSaveName 
29.
     
30.
    MsgBox "Datei gespeichert unter " & FileSaveName 
31.
End Sub
Gruß Dieter
Bitte warten ..
Mitglied: 95590
10.12.2010 um 11:28 Uhr
O.K. das klappt schon mal. Jetzt hab ioch nur noch das Problem, dass er es nicht im neu erstellten löscht sondern im Orginal. Ich versteh des net. Komisch.
Bitte warten ..
Mitglied: 76109
10.12.2010 um 12:03 Uhr
Hallo FredFesl!

Ich vermute mal, das Du beim FileSaveAS-Dialog keinen neuen Namen angibst?

Gruß Dieter
Bitte warten ..
Mitglied: 95590
10.12.2010 um 12:42 Uhr
Also habs nun selber gelöst.
Hab nun alles in eine Funktion gepackt. Dann funktioniert es. Warum auch immer.

Vielen Dank Dieter!
Bitte warten ..
Mitglied: 76109
11.12.2010 um 00:53 Uhr
Hallo FredFesl!

Freut mich, dass Du es selbst lösen konntest.

Habe wohl etwas geschlafen und das Steuerelement im Sheet der Original-Datei vollkommen ignoriert. Getestet hatte ich den Code leider nur in einem Modul ohne Steuerelement:

Gruß Dieter
Bitte warten ..
Ähnliche Inhalte
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 ...

Perl
Mit Perl aus einer Datei teilidentische Zeilen löschen
gelöst Frage von JedujaPerl5 Kommentare

Ausgangsbasis Dateizeilen: 2016-05-23 00:00 2 Ende 2016-05-23 00:00 2 Start 2016-05-23 06:46 1 Ende 2016-05-23 06:48 1 Start 2016-05-23 ...

Batch & Shell
Doppelte Zeilen in Text-Datei löschen
gelöst Frage von reckheimBatch & Shell15 Kommentare

Hallo ich schreibe lange Übersetzungsprogramme in FoxPro in unten folgender Text-Datei-Form. Die Datei ist allerdings durch Zusammenführung verschiedener Versionen ...

Linux
Script um Zeilen aus einer Datei an eine bestimmte Stelle in einer anderen Datei zu kopieren
Frage von grepper91Linux2 Kommentare

Hallo zusammen, ich habe folgendes Problem, ich habe Paketlisten die ungefähr so aussehen: ;Paket1;x86_64;;;# ;Paket2;x86_64;;;# ;Paket3;x86_64;;;# Nun habe ich ...

Neue Wissensbeiträge
Apple

IOS 11.2.1 stopft HomeKit-Remote-Lücke

Tipp von BassFishFox vor 4 StundenApple

Das Update für iPhone, iPad und Apple TV soll die Fernsteuerung von Smart-Home-Geräten wieder in vollem Umfang ermöglichen. Apple ...

Windows 10

Windows 10 v1709 EN murkst bei den Regionseinstellungen

Tipp von DerWoWusste vor 9 StundenWindows 10

Dieser kurze Tipp richtet sich an den kleinen Personenkreis, der Win10 v1709 EN-US frisch installiert und dabei die englische ...

Webbrowser

Kein Ton bei Firefox Quantum über RDP

Tipp von Moddry vor 10 StundenWebbrowser

Hallo Kollegen! Hatte das Problem, dass der neue Firefox bei mir auf der Kiste keinen Ton hat, wenn ich ...

Internet

EU-DSGVO: WHOIS soll weniger Informationen liefern

Information von sabines vor 22 StundenInternet4 Kommentare

Wegen der europäische Datenschutzgrundverordnung stehen die Prozesse um die Registrierung von Domains auf dem Prüfstand. Sollte die Forderungen umgesetzt ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Von rj11 auf rj45
Frage von jensgebkenLAN, WAN, Wireless19 Kommentare

Hallo Gemeinschaft, könnt ihr mir vielleicht bei der anfertigung eines Kabels helfen - habe ein rj 11 stecker und ...

Netzwerkmanagement
Firefox Profieles im Roaming
gelöst Frage von Hendrik2586Netzwerkmanagement17 Kommentare

Hallo liebe Leute. :) Ich hab da ein kleines Problem, welches anscheinend nicht unbekannt ist. Wir nutzen hier in ...

LAN, WAN, Wireless
Häufig Probleme beim Anmelden in WLAN
Frage von mabue88LAN, WAN, Wireless15 Kommentare

Hallo zusammen, in einem Netzwerk gibt es relativ häufig (1-2 mal pro Woche) Probleme mit der WLAN-Verbindung. Zunächst mal ...

Windows Server
Remotesteuerung der Sitzung (Kennung XX) fehlgeschlagen
gelöst Frage von Stefan91Windows Server14 Kommentare

Hallo Zusammen, seit kurzem bekomme ich oben genannte Fehlermeldung, wenn ich versuche eine Remotesitzung über den Taskmanager fernzusteuern (Rechtsklick ...