Thema Datum  Von Nutzer Rating
Antwort
23.10.2019 21:05:40 Sandro
NotSolved
Blau Excel: Daten von einer Zeile in anderes Tabellenblatt übertragen
 23.10.2019 22:02:34 Mase
Solved
24.10.2019 17:42:36 Gast21763
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
23.10.2019 22:02:34		 Views:
1184		 Rating:
     
Antwort:
 Nein
Thema:
Excel: Daten von einer Zeile in anderes Tabellenblatt übertragen

Ciao Sandro,

erstelle in Deiner Mappe ein Modul und kopiere nachfolgenden Code hinein.

Anschliessend erstellst Du einen Button und verknüpfst das Makro 'CopyAndClear' mit dessen Klick-Ereignis.

 

Sub CopyAndClear()
    Dim rngQuelle As Range, rngZiel As Range
    Dim lngRow As Long
    '
    lngRow = getLastRow(ThisWorkbook.Worksheets("Tabelle200"))
    Set rngQuelle = ThisWorkbook.Worksheets("Tabelle100").Range("B7:AH7")
    Set rngZiel = ThisWorkbook.Worksheets("Tabelle200").Range("B" & lngRow & ":AH" & lngRow)
    '
    'Nun muss noch hinzukommen, dass bei dem nächsten Übertrag auf Tabelle200 die weiteren Daten im Bereich B8:AH8 eingetragen werden, dann B9:AH9 und so weit
    rngZiel.Value2 = rngQuelle.Value2
    '
    'Ebenfalls muss nach dem Übertrag ins Blatt Tabelle200 die Daten im Quell-Blatt Tabelle100 im Bereich B7:AH7 gelöscht werden,
    rngQuelle.ClearContents
End Sub

Function getLastRow(wks As Worksheet) As Long
    With wks
        If .Cells(.Rows.Count, 2).End(xlUp).Row < 7 Then
            getLastRow = 7
        Else
            getLastRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
        End If
    End With
End Function

 

 

gruß

Marco

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.10.2019 21:05:40 Sandro
NotSolved
Blau Excel: Daten von einer Zeile in anderes Tabellenblatt übertragen
 23.10.2019 22:02:34 Mase
Solved
24.10.2019 17:42:36 Gast21763
NotSolved