Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Einbau einer Abfrage in Exel





Frage

Hallo Exelfreaks Ich habe eine Exelmappe (Abrechnung) mit folgenden Blättern: 1. Arztrechnungen 2. 2006 3. 2007 4. 2008 5. 2009 6. 2010 7. Arztbesuche Ab Spalte A8 -Arztrechnungen- werden Daten eingetragen. In die Spalte F und G werden Daten zu einem späteren Zeitpunkt zugetragen, die ich extern bekomme. Letzter Eintrag ist in Spalte G zu tätigen. Wenn dieser Eintrag durchgeführt wird, wird die gesammte Spalte anschließend auf das Blatt 2007 verschoben. Hier müßte eine Abfrage eingebaut werden, die im letzten bzw ersten Quartal des laufenden Jahres abfragt, auf welches Blatt die Zeile verschoben werden soll ( 2007 oder 2006 im ersten Quartal / 2007 oder 2008 im letzten Quartal. folgender Code ist bereits vorhanden: Private Sub Worksheet_Change(ByVal Target As Range) Dim loZeile As Long, LoLetzte As Long Application.ScreenUpdating = False Application.EnableEvents = False With Worksheets("2007") .Unprotect LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) End With With Worksheets("Arztrechnungen") .Unprotect Set Target = Intersect(Target, Range("G8:G58")) If Target Is Nothing Then GoTo Ende loZeile = Target.Row Rows(loZeile).Copy Worksheets("2007").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteFormulas, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=False Rem hier wird die kopierte zeile gelöscht .Rows(loZeile).EntireRow.Delete Application.CutCopyMode = False Ende: .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End With Application.EnableEvents = True Worksheets("2007").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Application.ScreenUpdating = True End Sub Ich wäre dankbar, wenn einer mir in dieser Sache helfen könnte, da ich absoluter Anfänger in VBA bin. Gruß ACR

Antwort 1 von ACR

Hallo Freaks

Als Nachtrag: Ich arbeite mit EXEL 2003

Gruß
ACR

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: