Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
23.10.2019 21:05:40 |
Sandro |
|
|
Excel: Daten von einer Zeile in anderes Tabellenblatt übertragen |
23.10.2019 22:02:34 |
Mase |
|
|
|
24.10.2019 17:42:36 |
Gast21763 |
|
|
Von:
Mase |
Datum:
23.10.2019 22:02:34 |
Views:
728 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
Excel: Daten von einer Zeile in anderes Tabellenblatt übertragen |
23.10.2019 22:02:34 |
Mase |
|
|
|
24.10.2019 17:42:36 |
Gast21763 |
|
|