Thema Datum  Von Nutzer Rating
Antwort
22.02.2021 17:17:48 Christian
*****
NotSolved
Blau Auswählbare Daten aus einer Datei in andere kopieren
 22.02.2021 19:16:38 AlterDresdner
Solved
22.02.2021 19:56:31 volti
Solved
23.02.2021 16:11:29 Gast40939
NotSolved
24.02.2021 11:43:05 AlterDresdner
Solved
23.02.2021 21:44:05 Trägheit
Solved

Ansicht des Beitrags:
Von:
AlterDresdner		 Datum:
22.02.2021 19:16:38		 Views:
400		 Rating:
     
Antwort:
 Nein
Thema:
Auswählbare Daten aus einer Datei in andere kopieren

Hallo Christion,
das Makro dazu würde lauten
 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Kopieren()
Dim zeile As Long, Quelle As Object, Ziel As Object
Const Spalte = 2 'Zielspalte, ggfls. anpassen
  Set Quelle = ThisWorkbook.Sheets("Tabelle1") 'ggfls. anpassen
  Set Ziel = ThisWorkbook.Sheets("Tabelle2") ''anpassen
  'Set Ziel = Workbooks("xyz").Sheets("abc") 'alternativ andere Datei
  zeile = ActiveCell.Row
  With Quelle
    If .Cells(zeile, 1) <> "" Then
      Ziel.Cells(1, Spalte) = .Cells(zeile, 2) 'MglNr
      Ziel.Cells(2, Spalte) = .Cells(zeile, 1) 'Name
      Ziel.Cells(3, Spalte) = .Cells(zeile, 6) 'Name
    End If
  End With
End Sub

Es kopiert immer in Spalte 2. Das Auslösen musst Du selbst organisieren. Ein einfacher Klick wäre sicher ungünstig, ginge nur über SelectionChange-Ereignis und würde dann bei jeder Zellenanwahl stattfinden.

Ein Doppelklick über das BeforeDblClick-Ereignis des Worksheets wäre möglich, dann muss man aber aus dem Bearbeitungsmodus erst wider raus.
Am sinnvollsten wäre m.E. ein Button auf dem Sheet.

Gruß der Martin

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
22.02.2021 17:17:48 Christian
*****
NotSolved
Blau Auswählbare Daten aus einer Datei in andere kopieren
 22.02.2021 19:16:38 AlterDresdner
Solved
22.02.2021 19:56:31 volti
Solved
23.02.2021 16:11:29 Gast40939
NotSolved
24.02.2021 11:43:05 AlterDresdner
Solved
23.02.2021 21:44:05 Trägheit
Solved