Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
15.05.2024 10:16:20 |
Michael |
|
|
![Blau](images/pfeil_blau.gif) Zeile ausschneiden und in neues Arbeitsblatt einfügen, wenn Bedingung erfüllt |
15.05.2024 11:09:57 |
volti |
|
|
|
15.05.2024 13:30:53 |
Gast80828 |
|
|
|
15.05.2024 14:36:20 |
volti |
|
|
Von:
volti |
Datum:
15.05.2024 11:09:57 |
Views:
111 |
Rating:
|
Antwort:
|
Thema:
Zeile ausschneiden und in neues Arbeitsblatt einfügen, wenn Bedingung erfüllt |
Hallo Micha,
hier eine Idee dazu. Irgenwie muss jedoch das Makro angestoßen werden. In meinem Vorschlag kopierst Du die Zeile bei einem Doppelclick auf ein $E-Feld. Wenn dort dann ein x drin ist, wird die Zeile kopiert. Allerdings auch mehrfach, bei Mehrfachdoppelklick.
Es besteht also ggf. noch Erweiterungsbedarf. Ggf. will man ja auch nur Werte übertragen usw.......
Code:
01
02
03
04
05
06
07
08
09
10
11 |
|
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim WSh As Worksheet, iZeile As Long
If UCase$(Target.Value) = "X" And Target.Column = 5 Then
Set WSh = ThisWorkbook.Sheets("bestätigte Zahlungen")
iZeile = WSh.Cells(WSh.Rows.Count, "A").End(xlUp).Row + 1
Target.EntireRow.Copy WSh.Cells(iZeile, "A")
Target.Select
Cancel = True
End If
End Sub
|
_________
viele Grüße
Karl-Heinz
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
15.05.2024 10:16:20 |
Michael |
|
|
![Blau](images/pfeil_blau.gif) Zeile ausschneiden und in neues Arbeitsblatt einfügen, wenn Bedingung erfüllt |
15.05.2024 11:09:57 |
volti |
|
|
|
15.05.2024 13:30:53 |
Gast80828 |
|
|
|
15.05.2024 14:36:20 |
volti |
|
|