Office: Excelsheet

Hallo allerseits!
Ich bin neu hier im Forum und bin auf der Suche nach etwas Hilfe.
Mein Problem ist folgendes:
Ich habe eine Excel Arbeitsmappe mit diversen Tabellenblättern (Januar-Dezember)
und einen Reiter "Rechnung".
Nun habe ich einen Code der mir wenn ich zBsp. im Dezember in der Spalte j4 ein x setze, mir dann die entsprechenden Zellen in das Tabellenblatt "Rechnung" schreibt.
Dies macht es auch soweit.
Wie muss ich den Code ergänzen damit es bei den anderen Tabellenblättern auch funktioniert? Kann mir da jemand helfen?

Code:
Private Sub Worksheet_Activate()

Dim wsZiel As Worksheet, wsQuelle As Worksheet
Dim a As Long
Dim Zeile As Long, lztZeileQuelle As Long

Application.ScreenUpdating = False

Set wsQuelle = Worksheets("Dezember")
Set wsZiel = Worksheets("Rechnung")

With wsQuelle.UsedRange
'Letzte Zeilen-Nr. des benutzten Bereiches im Quellarbeitsblatt
lztZeileQuelle = .Row + .Rows.Count - 1
End With

a = 27
For Zeile = 1 To lztZeileQuelle
With wsQuelle
If .Cells(Zeile, "J").Value = "x" Then
wsZiel.Cells(Zeile + a, "A").Value = .Cells(Zeile, "A").Value
wsZiel.Cells(Zeile + a, "B").Value = .Cells(Zeile, "B").Value
wsZiel.Cells(Zeile + a, "C").Value = .Cells(Zeile, "C").Value
wsZiel.Cells(Zeile + a, "D").Value = .Cells(Zeile, "D").Value
wsZiel.Cells(Zeile + a, "E").Value = .Cells(Zeile, "G").Value
wsZiel.Cells(Zeile + a, "F").Value = .Cells(Zeile, "L").Value

End If
End With
Next Zeile

Application.ScreenUpdating = True
End Sub

:)

 

Set wsQuelle = Worksheets("Dezember")
ersetzenb durch
Set wsQuelle = Worksheets("Januar")

Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue. Ich baue keine Datei nach.

Sollte die Datei verlinkt werden?

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Bilder statt Datei | Excel ist sexy!

Es sollte ein aussagekräftiger Name sein.

Das ist nur meine Meinung zu dem Thema.

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/...d.php?t=322895
ändern.

Das ist nur meine Meinung zu dem Thema.
Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.





Meine Homepage Homeseite - Hajo's Excelseiten

 

Hallo,

du machst den großen Anfängerfehler ... gleiche Daten, gehören ins gleiche Tabellenblatt.
Du hättest die Problem gar nicht, wenn du alles von Januar bis Dezember untereinander in der gleichen Tabelle geschrieben hättest ... korrekt ?

Alles in der gleichen Tabelle heißt auch ... Pivot-auswertung für das ganze Jahr ist möglich ... und du kannst mit dem Autofilter beliebig filtern ...

Aber vermutlich wirst du den Vorteil daran nicht erkennen, und an deinen 12 Tabellen festhalten. Sehr schade.

Sabina

 

Voran Danke für deine schnelle Antwort.
Dein Vorschlag habe ich auch ausgeführt. Dann ist jedoch nur das Tabellenblatt Januar aktiv.
Es müsste aber so sein, dass wenn ich im Tabellenblatt Januar bin, ich die entsprechenden Daten in die Rechnung schreiben kann. Wenn ich im Tabellenblatt Februar bin, sollte ich die gleiche Möglichkeit haben. Dito März, April, etc.
Wenn ich es so mache wie du mir geschrieben hast, müsste ich doch jedes Mal den Code ändern, oder nicht?
Kann man das nicht irgendwie lösen, dass alle Tabellenblätter im Code aufgeführt werden?
Ich muss auch noch dazu sagen, dass ich von VBA keine grosse Ahnung habe!

 

Hallo,

Dann stammt der Code vermutlich nicht von Dir!

Abgesehen davon kann ich mit Deiner Beschreibung nur wenig anfangen:

Was meinst Du konkret damit?

Ohne eine Beispieldatei zB für Dezember mit ein paar Daten-Zeilen, der Darstellung des gewünschten Ergebnisses sowie der konkreten Beschreibung des Auslösers für das Kopieren wirst Du vermutlich keine konkrete Hilfe erwarten dürfen.

 

... na das ist doch schön ... Hajo kriegt eine Antwort und ich nicht ... super. I++

 

\@Sabina,

Kommt vielleicht noch, daher nicht traurig sein - Hajo's Vorschlag war ja schließlich schneller umzusetzen als Deiner!*mrcool

 

steht der Code im Blatt 'Rechnung' ?

 

Hallo Ralf,

ich weiß schon, woran du gerade denkst.
Bei "X" in der Zelle feuert Workbook_SheetChange ... den Blattnamen hat man in Sh ... schon klar.

Würde den Anfängerfehler mit den 12 Tabellenblättern aber nicht beheben ...

Sabina

 

Ja, ich war etwas voreilig *Smilie

 

Hallo flotter Feger
Danke auch dir für die Antwort. Bin leider gestern nicht mehr dazu gekommen.

Die Tabellenblätter möchte ich so lassen wie sie sind

 

Ja, der Code steht im Blatt Rechnung

 

Den Code habe ich im Internet gefunden.

Werde gleich meine Datei hochladen

 

Anbei meine Datei. Hoffe das hilft.


Danke vielmals für Eure Hilfe

 

//OT:

Man muss viele Frösche küssen, ehe man seine Prinzessin findet. In bestimmte gedankliche Regionen muss man erst einmal vordringen (können). Da kommt manches erst später oder sehr viel später oder gar nicht mehr dran.

Aber der Kopf ist rund, damit das Denken die Richtung wechseln kann: Wenn man seine Daten und deren Speicherung verarbeitungsgerecht strukturiert (Listen, gleiche Informationen in eine Tabelle oder gar eine Spalte der Tabelle, in einer Datenbank Normalisierung umsetzen), ist eine nachfolgende Verarbeitung oft sehr einfach.
Ist die Datenablage aber nach Design und schönem Angucken angelegt, wird es regelmäßig etwas aufwändiger und schneller unlösbarer.

Ihr arbeitet nur ein Jahr?
Ich kenne das so, dass jedes Jahr wieder mit Januar beginnt und mit Dezember endet. Eine ordentliche und wichtige Anwendung hat ganz sicher eine Laufzeit von mehreren Jahren, am Ende will man dann auch mal Statistik machen über einen angemessenen Zeitraum, selbstredend über alles.