Thema Datum  Von Nutzer Rating
Antwort
23.02.2021 18:15:09 Christian
Solved
Blau Quelldatei aus anderer Excel Datei verwenden
 24.02.2021 11:26:27 volti
NotSolved

Ansicht des Beitrags:
Von:
volti		 Datum:
24.02.2021 11:26:27		 Views:
211		 Rating:
     
Antwort:
  Ja
Thema:
Quelldatei aus anderer Excel Datei verwenden

Hallo Christian,

Dein Wunsch ist mir nicht ganz klar.

Soll die Zeilennummer abgefragt werden oder irgendwo aus einer Zelle entnommen werden?

Code:
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24		  
Sub Kopieren()
  Dim Zeile As Long, Quelle As Object, Ziel As Object, T As String

  Const Spalte = 2  ' Zielspalte, ggfls. anpassen

  Set Quelle = Workbooks("xyz").Sheets("Tabelle1")  ' ggfls. anpassen
  Set Ziel = ThisWorkbook.Sheets("Tabelle2")  ' 'anpassen

  Zeile = ActiveCell.Row

  T = InputBox("Bitte Zeilennummer eingeben!", "Zeilennummereingabe", CStr(Zeile))
  If StrPtr(T) = 0 Then Exit Sub
  Zeile = Val(T)
  If Zeile < 1 Then Exit Sub

  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
_________
viele Grüße
Karl-Heinz

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
23.02.2021 18:15:09 Christian
Solved
Blau Quelldatei aus anderer Excel Datei verwenden
 24.02.2021 11:26:27 volti
NotSolved