Thema Datum  Von Nutzer Rating
Antwort
Rot Kopieren von Daten von einem Tabellenblatt in ein anderes
22.07.2020 12:59:49 Marco
NotSolved
22.07.2020 20:02:54 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Marco
Datum:
22.07.2020 12:59:49
Views:
44
Rating: Antwort:
  Ja
Thema:
Kopieren von Daten von einem Tabellenblatt in ein anderes
Hallo, ich würde gerne von einem Tabellenblatt Daten in ein anderes Tabellenblatt übertragen, aber in andere Zellen bzw. eine markierte Zeile. Ich hatte aus der Vergangenheit ein Makro, welches es umgedreht gemacht hat (siehe unten). Beispiel: - Tabelle1 (A1) in Tabelle2 (A & markierte Zeile) - Tabelle1 (A4) in Tabelle2 (B & markierte Zeile) - Tabelle1 (B5) in Tabelle2 (C & markierte Zeile) - Tabelle1 (C7) in Tabelle2 (D & markierte Zeile) - ... Ich bin leider ein VBA Anfänger und meine Versuche sind leider gescheitert. Das damalige Makro (damals aus einer anderen Datei): Dim r As Long, c As Long Dim sPfad As String Dim sDatei As String Dim sName As String Dim w As Integer sPfad = "X:\Test" sDatei = "Testziel.xlsx" On Error Resume Next Workbooks.Open Filename:=sPfad & sDatei, Editable:=False If Err.Number <> 0 Then MsgBox sDatei & " nicht gefunden !", vbCritical GoTo Ende End If sName = ActiveWorkbook.Name ThisWorkbook.Activate With Selection r = .Row c = .Column End With With Workbooks(sName).Worksheets("Tabelle1") .Range("A1") = Range("B5") .Range("Z2") = Range("C" & r) .Range("A2") = Range("D" & r) .Range("E3") = Range("E" & r) .Range("E2") = Range("G" & r) .Range("T6") = Range("H" & r) .Range("A3") = Range("L" & r) .Range("Z3") = Range("O" & r) .Range("Z1") = Range("P" & r) End With Ende: On Error GoTo 0 End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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 markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Kopieren von Daten von einem Tabellenblatt in ein anderes
22.07.2020 12:59:49 Marco
NotSolved
22.07.2020 20:02:54 ralf_b
NotSolved