PDA

Vollständige Version anzeigen : Zeile kopieren wenn


caipi4me
22.08.2017, 13:25
Hallo an Alle...
Ich habe eine Tabelle mit 10 Spalten. In der zehnten Spalte kann man ja oder nein auswählen. Ist ein "ja" ausgefüllt,soll diese Zeile kopiert und in einem neuen Reiter (Tabelle 2) kopiert werden und in der alten Tabelle gelöscht werden. Für eure Hilfe möchte ich mich im Voraus bedanken...

Beverly
22.08.2017, 13:42
Hi,

kopiere folgenden Code ins Codemodul der Tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngLetzte As Long
If Target.Column = 10 Then
If Target.Count = 1 Then
If UCase(Target) = "JA" Then
With Worksheets("Tabelle2")
lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
Rows(Target.Row).Cut .Cells(lngLetzte + 1, 1)
End With
End If
End If
End If
End Sub


<hr width="20%" align="left"><img src="http://excel-inn.de/images/grusz.gif" height=35" align="left" alt="Grußformel"><a href="http://excel-inn.de/"><img border="0" src="http://excel-inn.de/images/logo1.gif" height=35" align="middle" alt="Beverly's Excel - Inn"></a>

Jonas0806
22.08.2017, 13:42
Hallo,

was hast Du denn bis jetzt probiert/gemacht? Wie sind deine VBA Kenntnisse? Wo ist eine Beispieldatei, wo dein Code?

Bitte lade die Datei und den Code separat hoch (Datei als *.xlsx, Code in Code-tags)

caipi4me
22.08.2017, 13:58
Hallo Karin...Vielen Dank für den Code,werde es gleich mal ausprobieren...

@Jonas...Also,meine Kenntnisse sind nicht so toll. Ich habe es mit dem Makrorecorder versucht,aber bin nicht weiter gekommen. Darum habe ich hier Hilfe gesucht...ich habe leider nicht damit gerechnet,dass ich für meine Frage eine Beispieldatei hochladen muß. Dachte,dass ginge auch so,da ich die Frage für nicht so schwer finde für die Profis...Sorry...!!!