Thema Datum  Von Nutzer Rating
Antwort
04.01.2012 13:04:59 Thomas
Solved
04.01.2012 14:35:18 Heiko
*****
Solved
04.01.2012 15:22:39 Thomas
Solved
12.01.2012 15:40:59 Thomas
NotSolved
04.01.2012 19:10:05 Gast45294
Solved
04.01.2012 19:46:12 Heiko
NotSolved
04.01.2012 21:07:35 Thomas
Solved
04.01.2012 22:12:54 Thomas
Solved
04.01.2012 23:11:08 Heiko
NotSolved
05.01.2012 13:24:29 Thomas
Solved
04.01.2012 23:31:33 Gast85167
NotSolved
05.01.2012 13:35:06 Heiko
NotSolved
05.01.2012 13:43:26 Thomas
Solved
05.01.2012 13:52:02 Heiko
NotSolved
05.01.2012 19:58:15 Thomas
Solved
05.01.2012 20:51:30 Heiko
NotSolved
06.01.2012 09:05:05 Thomas
NotSolved
06.01.2012 11:53:02 Heiko
NotSolved
06.01.2012 12:21:48 Thomas
NotSolved
06.01.2012 21:53:18 Thomas
NotSolved
08.01.2012 21:07:50 Heiko
NotSolved
09.01.2012 14:24:43 Gast41658
NotSolved
09.01.2012 22:26:08 Heiko
NotSolved
10.01.2012 14:59:46 Gast22831
NotSolved
10.01.2012 21:27:37 Heiko
NotSolved
10.01.2012 21:56:49 Thomas
NotSolved
10.01.2012 22:56:54 Heiko
NotSolved
10.01.2012 23:44:14 Thomas
NotSolved
Rot Makros starten über das Dropdownfeld
15.01.2012 22:00:08 Heiko
NotSolved
03.02.2012 09:06:06 Thomas
Solved
06.02.2012 22:39:10 Heiko
NotSolved

Ansicht des Beitrags:
Von:
Heiko
Datum:
15.01.2012 22:00:08
Views:
2219
Rating: Antwort:
  Ja
Thema:
Makros starten über das Dropdownfeld

Hallo Thomas,

was bedeutet eigentlich Sali?

Hier ein Beispiel, wie du die Zellen in die andere Datei kopieren kannst.

Viel Erfolg wünscht Heiko

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Public Sub Kundenauftrag()
 
  'Hier die Datei eintragen, in die kopiert wird.
  Const c_strSenke As String = "Y:\90_Mitarbeitende\00_MAKRO NICHT LÖSCHEN\Eröffnung SD.xltx"
     
  Dim wksQuelle As Excel.Worksheet
  Dim wkbSenke As Excel.Workbook
  Dim wksSenke As Excel.Worksheet
  Dim lngZeile As Long
   
  'die Zeile ermitteln
  lngZeile = ActiveCell.Row
   
  'Quelle und Senke festlegen
  Set wksQuelle = ActiveSheet
  Set wkbSenke = Workbooks.Open(c_strSenke)
  Set wksSenke = ActiveSheet
   
  'Blattschutz aufheben
  wksSenke.Unprotect
   
  'Zellen kopieren
  wksQuelle.Cells(lngZeile, 1).Copy Destination:=wksSenke.Cells(1, 1)   'Spalte A
  wksQuelle.Cells(lngZeile, 2).Copy Destination:=wksSenke.Cells(1, 2)   'Spalte B
  wksQuelle.Cells(lngZeile, 3).Copy Destination:=wksSenke.Cells(1, 3)   'Spalte C
  wksQuelle.Cells(lngZeile, 4).Copy Destination:=wksSenke.Cells(1, 4)   'Spalte D
  wksQuelle.Cells(lngZeile, 6).Copy Destination:=wksSenke.Cells(1, 6)   'Spalte F
  wksQuelle.Cells(lngZeile, 7).Copy Destination:=wksSenke.Cells(1, 7)   'Spalte G
  wksQuelle.Cells(lngZeile, 11).Copy Destination:=wksSenke.Cells(1, 11) 'Spalte K
  wksQuelle.Cells(lngZeile, 12).Copy Destination:=wksSenke.Cells(1, 12) 'Spalte L
   
  Set wksQuelle = Nothing
  Set wksSenke = Nothing
  Set wkbSenke = Nothing
   
End Sub

 


Ihre Antwort
  • 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: Name: Email:



  • 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
04.01.2012 13:04:59 Thomas
Solved
04.01.2012 14:35:18 Heiko
*****
Solved
04.01.2012 15:22:39 Thomas
Solved
12.01.2012 15:40:59 Thomas
NotSolved
04.01.2012 19:10:05 Gast45294
Solved
04.01.2012 19:46:12 Heiko
NotSolved
04.01.2012 21:07:35 Thomas
Solved
04.01.2012 22:12:54 Thomas
Solved
04.01.2012 23:11:08 Heiko
NotSolved
05.01.2012 13:24:29 Thomas
Solved
04.01.2012 23:31:33 Gast85167
NotSolved
05.01.2012 13:35:06 Heiko
NotSolved
05.01.2012 13:43:26 Thomas
Solved
05.01.2012 13:52:02 Heiko
NotSolved
05.01.2012 19:58:15 Thomas
Solved
05.01.2012 20:51:30 Heiko
NotSolved
06.01.2012 09:05:05 Thomas
NotSolved
06.01.2012 11:53:02 Heiko
NotSolved
06.01.2012 12:21:48 Thomas
NotSolved
06.01.2012 21:53:18 Thomas
NotSolved
08.01.2012 21:07:50 Heiko
NotSolved
09.01.2012 14:24:43 Gast41658
NotSolved
09.01.2012 22:26:08 Heiko
NotSolved
10.01.2012 14:59:46 Gast22831
NotSolved
10.01.2012 21:27:37 Heiko
NotSolved
10.01.2012 21:56:49 Thomas
NotSolved
10.01.2012 22:56:54 Heiko
NotSolved
10.01.2012 23:44:14 Thomas
NotSolved
Rot Makros starten über das Dropdownfeld
15.01.2012 22:00:08 Heiko
NotSolved
03.02.2012 09:06:06 Thomas
Solved
06.02.2012 22:39:10 Heiko
NotSolved