Thema Datum  Von Nutzer Rating
Antwort
25.07.2017 17:38:36 Michi
Solved
25.07.2017 18:26:47 Werner
Solved
25.07.2017 21:02:36 Michi
Solved
25.07.2017 21:07:10 Kai
Solved
25.07.2017 21:14:17 Michi
Solved
Blau Makro in Zeilen untereinander ausführen
 26.07.2017 09:46:36 Werner
Solved
26.07.2017 15:00:10 Gast98041
Solved
25.07.2017 21:13:03 Werner
Solved

Ansicht des Beitrags:
Von:
Werner		 Datum:
26.07.2017 09:46:36		 Views:
816		 Rating:
     
Antwort:
 Nein
Thema:
Makro in Zeilen untereinander ausführen

Hallo Michi,

bist du dir eingentlich darüber im Klaren, dass du mit dem Code Formeln in dein Zielblatt schreibst, was dazu führt, dass sich deine Daten im Zielblatt immer wieder ändern, wenn du in deiner Rechnungsvolage neue Daten eingibst?

Wenn ich das richtig sehe, dann möchtest du wohl deine Daten aus der Rechnungsvolage in einem separaten Blatt "sammeln". Die dort bereits vorhandenen Daten sollten sich dann doch nicht anpassen.

Oder sehe ich das falsch?

Wenn nein, dann wäre das über deine Lösung mit den Formeln auch möglich. Es müsste dann "nur" als letzter Schritt die jeweilich Formel im Blatt durch ihre Werte ersetzt werden.

Das wäre allerdings ein Umweg. Dann könntest du dir die Daten auch direkt aus der Rechnungsvorlage holen, ohne den Umweg über die Formeln.

So z.B.:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub Übertragen()
Dim loLetzte As Long
 
With Worksheets("Blatt_in_das_du_übertragen_willst") 'Blattname anpassen
    loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
    .Cells(loLetzte, 1).FormulaLocal = "=Zeile()-1"
    .Cells(loLetzte, 2) = Worksheets("Rechnungsvorlage").Range("H17")
    .Cells(loLetzte, 3) = Worksheets("Rechnungsvorlage").Range("H14")
    .Cells(loLetzte, 4) = Format(.Cells(loLetzte, 3), "MMMM")
    .Cells(loLetzte, 5) = Worksheets("Rechnungsvorlage").Range("H15")
    '## hierzu kann ich nichts sagen, da ich nicht weiß was du da holst
    .Cells(loLetzte, 7).FormulaR1C1 = "=Tabelle1[[#Totals],[Gesamtbetrag]]"
End With
End Sub

 

Gruß Werner

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
25.07.2017 17:38:36 Michi
Solved
25.07.2017 18:26:47 Werner
Solved
25.07.2017 21:02:36 Michi
Solved
25.07.2017 21:07:10 Kai
Solved
25.07.2017 21:14:17 Michi
Solved
Blau Makro in Zeilen untereinander ausführen
 26.07.2017 09:46:36 Werner
Solved
26.07.2017 15:00:10 Gast98041
Solved
25.07.2017 21:13:03 Werner
Solved