Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon ACR vom 30.03.2022, 15:51 Options

Zeile kopieren wenn Bedingung erfüllt ist

Hallo Exelgemeinde

Habe mal wieder ein Problem mit meiner Exeldatei. Ich möchte vom Blatt "Arztrechnungen" mittels VBA die entsprechende Zeile in ein anderes Blatt ("Abgabe") kopieren, wenn in Zelle M8 ein Datum eingegeben wird. Die Zeile soll in die nächste freie Zeile des Blattes "Abgabe" eingefügt werden. Ich arbeite mit Exel2003

Antwort schreiben

Antwort 1 von Hajo_Zi vom 30.03.2022, 16:22 Options

Hallo Unbekannte(r),

Dir ist schon klar das es dann durcheinander ist. Vielleicht beim ersten mal in A3 das nächste mal in IV4 usw.
In Welcher Tabelle ist die Zelle M8?

Gruß Hajo

Antwort 2 von ACR vom 30.03.2022, 17:46 Options

Hallo Hajo

Die Zelle M8 befindet sich auf dem Blatt Arztrechnungen. Bezüglich Deiner Antwort ist mir nicht klar wieso dann etwas durcheinander kommt. Alle kopierten Zeilen werden nacheinander auf Blatt Abgabe kopiert. Trotzdem: Vielleicht kannst Du mir bei meinen Problem ja helfen.
Danke schonaml

Horst

Antwort 3 von Hajo_Zi vom 30.03.2022, 18:48 Options

Hallo Horst,

ich hatte mich verlesen, ich dachte Zelle.
Unter die Tabelle Arztrechnung


Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$M$8" And IsNumeric(Target) Then
        Rows(8).Copy Worksheets("Abrechnung").Rows(Worksheets("Abrechnung").UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
    End If
End Sub

Gruß Hajo

Antwort 4 von ACR vom 31.03.2022, 10:52 Options

Hallo Exelfreaks und Hallo Hajo

In meiner Anfrage habe ich mich wohl ein wenig unklar ausgedrückt. Ich habe im Tabellenblatt "Arztrechnungen" mehrere Einträge (ca. A8 bis N25) einige der Zellen sind noch leer und werden erst später ausgefüllt. Entscheidend ist hierbei die DATUMS-Eingabe in den Zellen M8 bis M25. Die entsprechende ZEILE soll bei Eingabe des Datums ins Tabellenblatt "Abrechnung" (M8bisM25) kopiert werden.

Hajo, Dein Code funktioniert so nicht. Vielleicht könntes Du mir ja nochmals behilflich sein??

Gruß Horst

Antwort 5 von Hajo_Zi vom 31.03.2022, 11:02 OptionsLösung

Hallo Horst,

meine Code geht für Deine Beschreibung aus dem ersten. Bei Eingabe in M8 wird die Zeile kopiert.
Ich mache den Code immer für die Beschreibung die im Beitrag steht.


Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        If Target.Column = 13 And Target.Row >= 8 And Target.Row <= 25 And IsNumeric(Target) Then
            Rows(Target.Row).Copy Worksheets("Abrechnung").Rows(Worksheets("Abrechnung").UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
        End If
    End If
End Sub

Gruß Hajo

Antwort 6 von ACR vom 31.03.2022, 13:19 Options

Hallo Hajo

Fuktioniert einwandfrei. Danke

Gruß Horst

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken