Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
letzte Zeile finden, Berechnung durchführen, Zeile kopieren
zurück: Hintergrund wie Tabelle zoomen weiter: Bereich fortlaufend in anderes Tabellenblatt kopieren Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Chris_30
Gast


Verfasst am:
28. Jan 2010, 14:09
Rufname:

letzte Zeile finden, Berechnung durchführen, Zeile kopieren - letzte Zeile finden, Berechnung durchführen, Zeile kopieren

Nach oben
       Version: Office 2007

Hallo,

da ich leider so gut wie keine VBA Kenntnisse habe stehe ich hier wie der Ochs vorm Berg ;)
Folgende Lösung würde ich gerne verwirklichen:
Beim Klick auf einen Button (den hab ich schon Smile wird die letzte Zeile gesucht. In der Zelle H der letzten Zeile wird 1/12 der Zelle G berechnet. Die komplette letzte Zeile wird dann in die nächsten 11 Datenblätter jeweils als letzte Zeile angefügt. Die Datenblätter sind schon vorhanden und heißen 01_10, 02_10, 03_10, etc....

Über jede Idee oder Lösungsvorschlag bin ich dankbar!

Grüße
Christoph
Gutebaeren
Excel/VBA - für den Hausgebrauch langt es


Verfasst am:
28. Jan 2010, 14:41
Rufname: Ralf
Wohnort: Bärlin


AW: letzte Zeile finden, Berechnung durchführen, Zeile kopie - AW: letzte Zeile finden, Berechnung durchführen, Zeile kopie

Nach oben
       Version: Office 2007

Hallo Christoph,

nimm mal dies als Ansatz, Du musst Deine Blätter und ggf. Spalten anpassen

Code:

Sub Kopeiren()

    x = Tabelle1.UsedRange.Rows.Count
    Range("A" & x, "H" & x).Select
    Selection.Copy
    Sheets(Array("Tabelle2", "Tabelle3", "Tabelle4")).Select
    Tabelle2.Activate
    y = Tabelle2.UsedRange.Rows.Count + 1
    Range("A" & y).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Tabelle1.Activate
       
End Sub



Gruß Ralf
Chris_30
Gast


Verfasst am:
28. Jan 2010, 14:59
Rufname:

AW: letzte Zeile finden, Berechnung durchführen, Zeile kopie - AW: letzte Zeile finden, Berechnung durchführen, Zeile kopie

Nach oben
       Version: Office 2007

Hi Ralf,

danke für Deinen Ansatz,

habe es jetzt so umgesetzt:
Zitat:
Sub CalculateAnnual()
'
' CalculateAnnual Macro
'
Dim x As String, y As String

x = Jan_10.UsedRange.Rows.Count
Range("A" & x, "M" & x).Select
Selection.Copy
Sheets(Array("Jan_10", "Feb_10", "Mär_10")).Select
Feb_10.Activate
y = Feb_10.UsedRange.Rows.Count + 1
Range("A" & y).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Jan_10.Activate



End Sub


Leider bekomme ich dann einen Runtime 424.
Hast Du eine Idee?
Wie kann ich dann die Berechnung noch einfügen?

Gruß
Christoph
Gutebaeren
Excel/VBA - für den Hausgebrauch langt es


Verfasst am:
28. Jan 2010, 15:13
Rufname: Ralf
Wohnort: Bärlin

AW: letzte Zeile finden, Berechnung durchführen, Zeile kopie - AW: letzte Zeile finden, Berechnung durchführen, Zeile kopie

Nach oben
       Version: Office 2007

Hallo Christoph,

die Tabelle wird mit Namen so angesprochen:

Sheets("Jan_10")

Die Berechnung zum Beispiel
z = Range("N" & x)/12
Range("M" & x) = z

Gruß Ralf
Chris_30
Gast


Verfasst am:
28. Jan 2010, 15:26
Rufname:


AW: letzte Zeile finden, Berechnung durchführen, Zeile kopie - AW: letzte Zeile finden, Berechnung durchführen, Zeile kopie

Nach oben
       Version: Office 2007

Danke Ralph

nun sieht es so aus:

Code:
Dim x As Integer, y As Integer, z As Integer

    x = Jan_10.UsedRange.Rows.Count
    Range("A" & x, "M" & x).Select
    z = Range("G" & x) / 12
    Range("H" & x) = z
   
    Selection.Copy
    Sheets(Array("Jan_10", "Feb_10", "Mär_10")).Select
   
    Feb_10.Activate
    y = Feb_10.UsedRange.Rows.Count + 1
    Range("A" & y).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
   
    Jan_10.Activate
       
End Sub


Leider immer noch ein Runtime (Object Required) in der ersten Zeile ( x = ...). Hab ich die Variablen am Anfang falsch definiert?

Gruß
Christoph
Gutebaeren
Excel/VBA - für den Hausgebrauch langt es


Verfasst am:
28. Jan 2010, 15:35
Rufname: Ralf
Wohnort: Bärlin

AW: letzte Zeile finden, Berechnung durchführen, Zeile kopie - AW: letzte Zeile finden, Berechnung durchführen, Zeile kopie

Nach oben
       Version: Office 2007

Hi,

das sieht aber aus wie zuvor, das wird nicht gehen, weil das Sheet nicht angesprochen wird, lies bitte noch einmal meinen letzten Beitrag.

Gruß Ralf
Chris_30
Gast


Verfasst am:
28. Jan 2010, 15:59
Rufname:

AW: letzte Zeile finden, Berechnung durchführen, Zeile kopie - AW: letzte Zeile finden, Berechnung durchführen, Zeile kopie

Nach oben
       Version: Office 2007

Jetzt hab ichs...

Weisst Du vielleicht auch, wie ich in das vorherige Arbeitsblatt wechseln kann?
Hab ihn jetzt so weit, dass er berechnet und die Zeile in das nächste Sheet kopiert nun soll er in das nächste, übernächste etc. wechseln und kopieren und dann wieder in das Sheet zurück springen, in dem ich die Daten erfasst habe und den Button gedrückt habe.

Danke
Chris
Gutebaeren
Excel/VBA - für den Hausgebrauch langt es


Verfasst am:
28. Jan 2010, 16:23
Rufname: Ralf
Wohnort: Bärlin

AW: letzte Zeile finden, Berechnung durchführen, Zeile kopie - AW: letzte Zeile finden, Berechnung durchführen, Zeile kopie

Nach oben
       Version: Office 2007

Hallo,

das verstehe ich nicht. Du wolltest doch in einem Sheet etwas kopieren und dann in alle anderen einfügen? Die Lösung hast Du nun. Was Du nun willst, verstehe ich noch nicht.

Gruß Ralf
Chris_30
Gast


Verfasst am:
28. Jan 2010, 16:42
Rufname:

AW: letzte Zeile finden, Berechnung durchführen, Zeile kopie - AW: letzte Zeile finden, Berechnung durchführen, Zeile kopie

Nach oben
       Version: Office 2007

Upps.. Sorry hat mal wieder weitergedacht und nix gesagt ;)

Wollte das Macro so gestalten, dass es die Zeile in die nächsten 11 Blätter ans Ende kopiert und dann wieder in das aktuelle springt.

Das wieder zum ursprünglichen Blatt springen hab ich so gelöst:
Code:

blatt1 = ActiveSheet.Name
Sheets(blatt1).Select


Nun müsste ich nur Deinen Code, so umbauen, dass er eben in die nächsten 11 Blätter kopiert.

Code:

Dim x, y, z, i As Integer, blatt1 As String

    blatt1 = ActiveSheet.Name

   i = 0

Do
    i = i +1
    x = ActiveSheet.UsedRange.Rows.Count
    z = Range("G" & x) / 12
    Range("H" & x) = z
    Range("A" & x, "M" & x).Select
    Selection.Copy
   
   
     If ActiveSheet.Index = Worksheets.Count Then
       Worksheets(1).Select
   Else
      ActiveSheet.Next.Select
  End If
 
     y = ActiveSheet.UsedRange.Rows.Count + 1
    Range("A" & y).Select
    ActiveSheet.Next.Paste
    Application.CutCopyMode = False


Loop Unil i = 11
   
  Sheets(blatt1).Select
       
End Sub



Kannst Du mir hier auch noch helfen? Blick nicht mehr so ganz durch ;)

Gruß
Christoph
Gutebaeren
Excel/VBA - für den Hausgebrauch langt es


Verfasst am:
28. Jan 2010, 19:23
Rufname: Ralf
Wohnort: Bärlin

AW: letzte Zeile finden, Berechnung durchführen, Zeile kopie - AW: letzte Zeile finden, Berechnung durchführen, Zeile kopie

Nach oben
       Version: Office 2007

Hi,

wenn Du die Variante mit

Sheets(Array("Jan_10", "Feb_10", "Mär_10")).Select und Du die Namen anpasst. kommst Du schneller hin als die Schleife. Bei meiner Lösung bildest Du eine Gruppe (von Feb-Dez) und fügst nur einmal in das erste Blatt der Gruppe ein, den rest besorgt Excel automatisch, das ist schneller als eine zig mal durchlaufene Schleife, selbst wenn du das Screenupdating abschaltest.

Gruß Ralf
Chris_30
Gast


Verfasst am:
29. Jan 2010, 10:17
Rufname:


AW: letzte Zeile finden, Berechnung durchführen, Zeile kopie - AW: letzte Zeile finden, Berechnung durchführen, Zeile kopie

Nach oben
       Version: Office 2007

Guten Morgen,

hab ich aber das Problem, das ich das Makro für das nächste Blatt Feb_10 (dort müssen dann auch neue Datenerfasst werden) anpassen muss, ich also jeden Monat das Macro verändern muss?!

Gruß
Christoph
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Text von Tabelle1 auch in Tabelle 2 kopieren 7 Pinguin1977 2848 30. Jan 2005, 16:56
Pinguin1977 Text von Tabelle1 auch in Tabelle 2 kopieren
Keine neuen Beiträge Excel Formeln: Kann Fehler nicht finden 2 sreuber 492 22. Jan 2005, 11:22
Gast Kann Fehler nicht finden
Keine neuen Beiträge Excel Formeln: Erst Spalte dann wert suchen zeile ausgeben 2 Kai2k 3055 07. Jan 2005, 12:10
Kai2k Erst Spalte dann wert suchen zeile ausgeben
Keine neuen Beiträge Excel Formeln: Datensätze automatisch kopieren 2 Gast 2731 04. Jan 2005, 20:57
Gast Datensätze automatisch kopieren
Keine neuen Beiträge Excel Formeln: Zellinhalte KOPIEREN 5 hilfloses Wesen 1732 23. Dez 2004, 13:42
Gast Zellinhalte KOPIEREN
Keine neuen Beiträge Excel Formeln: Formel mit "festem" Wert kopieren 2 sebbi 1937 08. Dez 2004, 20:36
sebbi Formel mit "festem" Wert kopieren
Keine neuen Beiträge Excel Formeln: Suchen eines Wertes in einer Zeile 1 AxelChris 1731 25. Nov 2004, 17:25
Patrick0705 Suchen eines Wertes in einer Zeile
Keine neuen Beiträge Excel Formeln: Auswahlmenue / Selektion - Berechnung 2 tom2ba 696 10. Nov 2004, 11:13
tom2ba Auswahlmenue / Selektion - Berechnung
Keine neuen Beiträge Excel Formeln: Formel als Text in Nachbarzelle kopieren 6 blauvogel 1129 19. Okt 2004, 16:54
blauvogel Formel als Text in Nachbarzelle kopieren
Keine neuen Beiträge Excel Formeln: In Exel gleiche Zeilen finden und andere Werte importieren 0 Timo 3157 13. Okt 2004, 14:46
Timo In Exel gleiche Zeilen finden und andere Werte importieren
Keine neuen Beiträge Excel Formeln: Berechnung von Feldern abhängig von der Farbe 2 Joachim Schaurer 798 04. Okt 2004, 18:42
Gast Berechnung von Feldern abhängig von der Farbe
Keine neuen Beiträge Excel Formeln: Formel kopieren 4 Manfred50 893 24. Sep 2004, 21:31
Manfred50 Formel kopieren
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe