Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
09.01.2012 16:14:53 |
Steffi |
|
|
Datei per Klick öffnen und nur bestimmten Bereich übertragen |
11.01.2012 00:19:02 |
Heiko |
|
|
|
11.01.2012 10:01:34 |
Steffi |
|
|
|
15.01.2012 22:44:49 |
Heiko |
|
|
|
16.01.2012 09:26:34 |
Steffi |
|
|
|
22.01.2012 22:29:54 |
Heiko |
|
|
|
23.01.2012 10:34:37 |
Steffi |
|
|
|
23.01.2012 21:39:34 |
Heiko |
|
|
|
24.01.2012 12:32:39 |
Steffi |
|
|
|
24.01.2012 12:33:18 |
Steffi |
|
|
|
29.01.2012 19:06:25 |
Heiko |
|
|
|
29.01.2012 19:06:32 |
Heiko |
|
|
|
01.02.2012 14:14:55 |
Steffi |
|
|
Von:
Heiko |
Datum:
11.01.2012 00:19:02 |
Views:
1922 |
Rating:
|
Antwort:
|
Thema:
Datei per Klick öffnen und nur bestimmten Bereich übertragen |
Hallo Steffi,
Öffnen, kopieren, schließen ist doch OK. Ich habe es dir mal in VBA gegossen.
Wenn du in der Inputbox auf <Abbrechen> klickst, kommt nun nicht mehr die nervige Meldung "Bitte ein Aktenzeichen eingeben."
Viele Grüße
Heiko
Private Sub cmbAktZBearbeiten_Click()
Const c_sPath As String = "H:\My Documents\###Bachelorthesis\TEST_Speicherort\"
Dim BearbZ As String
Dim wkbQuelle As Excel.Workbook
Dim wksQuelle As Excel.Worksheet
Dim wkbSenke As Excel.Workbook
Dim wksSenke As Excel.Worksheet
BearbZ = InputBox("Bitte Aktenzeichen der zu bearbeitenden Datei eingeben.")
If StrPtr(BearbZ) = 0 Then Exit Sub 'raus, wenn Abbrechen geklickt
If BearbZ = "" Then
MsgBox "Bitte ein Aktenzeichen eingeben!"
Else
If Dir(c_sPath & BearbZ & ".xls") = "" Then
MsgBox "Datei mit diesem Aktenzeichen nicht vorhanden."
Else
Set wkbQuelle = ThisWorkbook
Set wkbSenke = Workbooks.Open(c_sPath & BearbZ & ".xls")
'Status
Set wksQuelle = wkbQuelle.Sheets("Status")
Set wksSenke = wkbSenke.Sheets("Status")
wksQuelle.Range("E1:H1").Copy Destination:=wksSenke.Range("E1:H1")
wksQuelle.Range("D5:H9").Copy Destination:=wksSenke.Range("D5:H9")
wksQuelle.Range("D22:H29").Copy Destination:=wksSenke.Range("D22:H29")
'Markt
Set wksQuelle = wkbQuelle.Sheets("Markt")
Set wksSenke = wkbSenke.Sheets("Markt")
wksQuelle.Range("E1:H1").Copy Destination:=wksSenke.Range("E1:H1")
wksQuelle.Range("D4:H10").Copy Destination:=wksSenke.Range("D4:H10")
wksQuelle.Range("D13:H17").Copy Destination:=wksSenke.Range("D13:H17")
'Markt
Set wksQuelle = wkbQuelle.Sheets("Wert")
Set wksSenke = wkbSenke.Sheets("Wert")
wksQuelle.Range("E1:H1").Copy Destination:=wksSenke.Range("E1:H1")
wksQuelle.Range("D4:H8").Copy Destination:=wksSenke.Range("D4:H8")
wksQuelle.Range("D11:H15").Copy Destination:=wksSenke.Range("D11:H15")
wkbSenke.Close SaveChanges:=True
Set wksSenke = Nothing
Set wkbSenke = Nothing
Set wksQuelle = Nothing
Set wkbQuelle = Nothing
End If
End If
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
09.01.2012 16:14:53 |
Steffi |
|
|
Datei per Klick öffnen und nur bestimmten Bereich übertragen |
11.01.2012 00:19:02 |
Heiko |
|
|
|
11.01.2012 10:01:34 |
Steffi |
|
|
|
15.01.2012 22:44:49 |
Heiko |
|
|
|
16.01.2012 09:26:34 |
Steffi |
|
|
|
22.01.2012 22:29:54 |
Heiko |
|
|
|
23.01.2012 10:34:37 |
Steffi |
|
|
|
23.01.2012 21:39:34 |
Heiko |
|
|
|
24.01.2012 12:32:39 |
Steffi |
|
|
|
24.01.2012 12:33:18 |
Steffi |
|
|
|
29.01.2012 19:06:25 |
Heiko |
|
|
|
29.01.2012 19:06:32 |
Heiko |
|
|
|
01.02.2012 14:14:55 |
Steffi |
|
|