Thema Datum  Von Nutzer Rating
Antwort
16.12.2020 09:56:22 Manfred
NotSolved
16.12.2020 10:54:56 UweD
*****
NotSolved
16.12.2020 11:27:38 Gast93466
NotSolved
17.12.2020 13:17:50 Gast3764
NotSolved
Rot Formulardaten per „Knopfdruck“ fortlaufend in ein weiteres Tabellenblatt übertragen
 16.12.2020 11:06:34 volti
*****
Solved
16.12.2020 11:34:04 Gast78530
NotSolved
16.12.2020 11:17:23 Gast22359
*****
Solved
16.12.2020 11:36:02 Gast77719
NotSolved

Ansicht des Beitrags:
Von:
volti		 Datum:
16.12.2020 11:06:34		 Views:
677		 Rating:
     
Antwort:
 Nein
Thema:
Formulardaten per „Knopfdruck“ fortlaufend in ein weiteres Tabellenblatt übertragen

Hallo Mafred,

Du musst nicht unbedingt mit Select und Activate arbeiten. Es geht schneller und effizienter mit einer direkten Übernahme der Werte.

Hier mal ein Beispiel, bei dem die Werte aus der Vorlage immer in die erste freie Zeile in das Blatt Rechnungen übertragen werden.

Code:

 
01
02
03
04
05
06
07
08
09
10
11
12
13
14		  
Sub transfer_werte()
  Dim WShZ As Worksheet, iZeile As Long

  Set WShZ = ThisWorkbook.Worksheets("Rechnungen")
  iZeile = WShZ.Cells(Rows.Count, "A").End(xlUp).Row + 1  ' nächtes frei Zeile
  
  With ThisWorkbook.Worksheets("Vorlage")
     WShZ.Cells(iZeile, "A").Value = .Range("B17").Value  ' Rechnungsnr
     WShZ.Cells(iZeile, "B").Value = .Range("E17").Value  ' Kundensnr
     WShZ.Cells(iZeile, "C").Value = .Range("G17").Value  ' Rechnungsdatum
     WShZ.Cells(iZeile, "D").Value = .Range("A20").Value  ' Bezeichnung
     WShZ.Cells(iZeile, "E").Value = .Range("G21").Value  ' Rechnungsbetrag
  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
16.12.2020 09:56:22 Manfred
NotSolved
16.12.2020 10:54:56 UweD
*****
NotSolved
16.12.2020 11:27:38 Gast93466
NotSolved
17.12.2020 13:17:50 Gast3764
NotSolved
Rot Formulardaten per „Knopfdruck“ fortlaufend in ein weiteres Tabellenblatt übertragen
 16.12.2020 11:06:34 volti
*****
Solved
16.12.2020 11:34:04 Gast78530
NotSolved
16.12.2020 11:17:23 Gast22359
*****
Solved
16.12.2020 11:36:02 Gast77719
NotSolved