Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1520to1524
1520to1524
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zwei Intersect in Private Sub Worksheet_Change zus

Forumthread: zwei Intersect in Private Sub Worksheet_Change zus

zwei Intersect in Private Sub Worksheet_Change zus
18.10.2016 19:44:02
Ralf
Hallo zusammen
Bin neu hier :-)
Bitte um hilfe, wie ist es möglich zwei gleiche zwei Intersect in 

Private Sub Worksheet_Change zusammen zu fügen?
Bin ein Anfänger und habe schon sehr viel gelesen und probiert, leider ohne erfolg :-(
Code:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zeile As Long
Set Target = Intersect(Target, Range("H2:H9000"))
If Target Is Nothing Then Exit Sub
If Target = "Landlord" Then
Zeile = Target.Row
Range(Cells(Zeile, 1), Cells(Zeile, 20)).Copy _
Destination:=Sheets("aktive_LL").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
End If
Set Target = Intersect(Target, Range("B2:B9000"))
If Target Is Nothing Then Exit Sub
If Target = "1" Then
Zeile = Target.Row
Range(Cells(Zeile, 1), Cells(Zeile, 20)).Copy _
Destination:=Sheets("abgeschlossene_SC").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
End If
End Sub




Besten Dank für Eure unterstützung.
Anzeige

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zwei Intersect in Private Sub Worksheet_Change zus
18.10.2016 19:48:30
Hajo_Zi
ganz einfach lösche die erste da sie kein VBA Code enthält. Dann ist es nur noch eine.

zwei Intersect in Private Sub Worksheet_Change zus
18.10.2016 20:17:47
Michael
Hi,
versuch's mal damit: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Or Target.Count > 1 Then Exit Sub
If Target.Column = 8 And Target = "Landlord" Then
Range("A" & Target.Row).Resize(, 20).Copy _
Destination:=Sheets("aktive_LL").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
End If
If Target.Column = 2 And Target = "1" Then
Range("A" & Target.Row).Resize(, 20).Copy _
Destination:=Sheets("abgeschlossene_SC").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
End If
End Sub
Schöne Grüße,
Michael
Anzeige
Naja, Hajos AW ist wohl auf deinen ungeschickten .
18.10.2016 20:25:36
Luc:-?
…Umgang mit SchlüsselBegriffen, die die ForumsSoftwareAutomatik auslösen, zurückzuführen, Ralf;
besser ist es allemal, die HTML-Code-Tags zu benutzen und die Automatik nicht mit Pgm-Kopfzeilen in normalem Text zu provozieren… ;-]
Die PgmZusammenführung könnte so aussehen: 
    Dim Ziel As Range
Set Ziel = Intersect(Target, Range("H2:H9000"))
If Not Ziel Is Nothing Then
If Target = "Landlord" Then
Zeile = Target.Row
Me.Range(Cells(Zeile, 1), Cells(Zeile, 20)).Copy _
Destination:=Sheets("aktive_LL").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
End If
Else: Set Target = Intersect(Target, Range("B2:B9000"))
If Target Is Nothing Then Exit Sub
If Target = "1" Then   'Anm: Soll das wirkl 1e TextZahl sein? Sonst =1!
Zeile = Target.Row
Range(Cells(Zeile, 1), Cells(Zeile, 20)).Copy Destination:= _
Sheets("abgeschlossene_SC").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
End If
End If
Man könnte natürlich auch alles in einem Hpt-If-Konstrukt per Or zusammenfassen und dann erst lt Inhalt von Target auf ggf unterschiedliche Verfahren verzweigen, aber das kannst du ja mal selbst entwickeln… ;-)
Gruß, Luc :-?
Besser informiert mit …
Anzeige
AW: Naja, Hajos AW ist wohl auf deinen ungeschickten .
18.10.2016 21:36:06
Ralf
Hallo Luc
Besten Dank, soweit war ich auch schon, funktioniert leider nicht.
nur beim "1" (ist nur als test)
Wie meinst Du das mit hpt-if konstrukt per Or zusammenstellen?
Enschuldige bitte, habe erst gerade mit VBA angefangen.
Gruss Ralf
Na, so etwas in der Art, Ralf:
19.10.2016 03:57:21
Luc:-? 

If Not (Intersect(Target, Range("H2:H9000")) Is Nothing And _
Intersect(Target, Range("B2:B9000")) Is Nothing) Then
Select Case Target
Case "Landlord"
'…
Case 1
'…
End Select
Else: Exit Sub
Endif
Das geht aber nur so einfach, wenn nicht für B relevante SpaltenInhalte auch in H vorkommen können und umgekehrt. Ansonsten ist mir unklar, warum und was da bisher nicht fktioniert. Könnte das viell nicht doch an deinen Testdaten liegen…? ;-]
Morrn, Luc :-?
Anzeige
AW: Na, so etwas in der Art, Ralf:
19.10.2016 07:03:11
Ralf
Guten Morgen Luc
Glaube die Funktion ist nicht ganz klar definiert von mir.
die Spalte B und H haben keine abhänigkeit von einander.
Ich möchte:
1.Wenn in Spalte B der Eintrag "fertiggestellt" (Testdaten "1") ist, diese Zeile in das Tabellenblatt 2 kopieren und die Zeile löschen und die Zeile im Tabellenbaltt 1 löschen.
2.Wenn in der Spalte H der Eintrag "Landlord" ist, diese Zeile in das Tabellenblatt 3 kopieren und diese Zeile im Tabellenblatt 1 löschen.
Diese zwei Funktionen sollten in der Tabelle 1 realisiert werden.
Hoffe es ist jetzt verständlicher :-)
Gruss Ralf
Anzeige
AW: Na, so etwas in der Art, Ralf:
19.10.2016 12:17:06
Michael
Hi,
@Ralf: hast Du meinen Vorschlag getestet?
Gruß,
Michael
AW: Na, so etwas in der Art, Ralf:
19.10.2016 12:49:59
Ralf
Hoi Michael
:-)
Entschuldige bitte, ja!
Aber bei der erten Funktion "Landlord" kommt nach dem kopieren/löschen folgende Meldung: Laufzeitfehler '424' Objekt erforderlich.
Ansonsten funktioniert der Code :-)
Kann mann diesen Felder noch beheben?
Gruss Ralf
Anzeige
AW: Na, so etwas in der Art, Ralf:
19.10.2016 12:52:52
Ralf
nochmals ich
Habe den Fehler selbst behoben mit:
On Error Resume Next
Ich danke dir recht herzlich Michael!
Das ist keine Fehler-Behebung, sondern nur ...
19.10.2016 15:08:15
Luc:-?
…eine -Unterdrückung, Ralf;
du solltest den Fehler-Verursacher feststellen, nämlich wo welches Objekt fehlt!
Luc :-?
AW: Das ist keine Fehler-Behebung, sondern nur ...
19.10.2016 15:55:56
Michael
Hi,
mein Fehler: wenn man die Target-Zeile löscht, hängt das Target natürlich in der Luft.
Also dann analog Luc:-?s Lösung mit Elseif: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Or Target.Count > 1 Then Exit Sub
If Target.Column = 8 And Target = "Landlord" Then
Range("A" & Target.Row).Resize(, 20).Copy _
Destination:=Sheets("aktive_LL").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
ElseIf Target.Column = 2 And Target.Text = "1" Then ' egal, ob 1 oder "1"
Range("A" & Target.Row).Resize(, 20).Copy _
Destination:=Sheets("abgeschlossene_SC").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
End If
End Sub
Schöne Grüße,
Michael
Anzeige
AW: Das ist keine Fehler-Behebung, sondern nur ...
19.10.2016 17:45:07
Ralf
Hallo Michael
besten Dank für deine Tolle unterstützung.
Ist es auch möglich die Formatierung z.B datum beizubehalten, bei der verschiebund der Zeile?
Gruss Ralf
AW: Das ist keine Fehler-Behebung, sondern nur ...
20.10.2016 14:23:14
Michael
Hi Ralf,
die Formatierung wird bei .copy doch mitkopiert?
Ich kann nicht ganz nachvollziehen, welche Formatierung Du meinst.
Schöne Grüße,
Michael
Anzeige
;

Forumthreads zu verwandten Themen

Private Sub Worksheet_Change
Gordon

Moin,
ich habe folgenden Code:
Sub Anzahl_Klassen() Dim anzKl As Integer anzKl = Worksheets("Tabelle1").Cells(1, 2).Value With Worksheets("Tabelle1") If anzKl = 0 Then .Rows("5:102").RowHeight = 0 Else: .Rows("5:" & anzKl * 11 + 3).RowHeight = 12.75 .Rows(anzKl * 11 + 5 & ":10...
19.11.2008 10:35:41
Thread-ID: 1025907
5 Beiträge
Worksheet_Change(ByVal Target As Range)
Axel

Ein schönes Wochenende zuvor wünschend!
Aufgabenstellung:
Ich möchte in einer Zelle einen Wert schreiben, was ein Makro auslösen soll. In einer Zweiten soll dadurch automatisch eine Umrechenformel einfügt werden. Auf diese Weise kann man (trivial, nur als Beispiel) bei der Bedienung ein...
06.03.2009 15:21:33
Thread-ID: 1057353
7 Beiträge
Worksheet_Change(ByVal Target As Range)
Axel


Hallo Könner,
mal wieder an einem Punkt angekommen, wo ich echt nicht weiß, ob die PCs was Magisches können.
Das Makro unten ist prima gelaufen. Und dann mal wieder nicht. Jetzt gerade mal wieder nicht, daher mein Hilferuf. Als mir das das erste Mal passiert ist, habe ich den ganze...
13.03.2009 12:08:19
Thread-ID: 1059821
5 Beiträge
Probleme Worksheet_Change(ByVal Target As Range)
Ron

Hallo Leute,
habe mir vor einigen Wochen hier im Forum von Daniel helfen lassen und wollte nun den von ihm geposteten Script ein wenig auf meine Bedürfnisse umschreiben. Leider bin ich wohl zu blöd...
Es wäre Klasse, wenn mir jemand helfen könnte!
Ausgangslage:
Ich möchte in ein...
28.04.2009 04:06:20
Thread-ID: 1071514
4 Beiträge
Private Sub Worksheet_Change
Larissa

Hallo VBA-Künstler,
Ich habe in meiner Excelmappe schon ein längeres
Private Sub Worksheet_Change(ByVal Target As Range)
auf dem ersten Tabellenblatt eingebaut.
Bisher habe ich es nur so hinbekommen, dass die direkte Spalte angesprochen wird, in der man gerade etwas einträgt.
05.10.2009 19:39:36
Thread-ID: 1107325
18 Beiträge
Anzeige
Private Sub Worksheet_Change(ByVal Target As Range
ing.grohn

Hallo Forum,
Worksheet_Change ist eine wunderbare Sache! (wenn sie funktioniert)
Also:
ich arbeite in einem Blatt mit: Private Sub Worksheet_Change(ByVal Target As Range)
funktioniert alles super. Nur manchmal tut das nicht!!!!
Excel beenden, neu starten, alles klar und funk...
17.06.2010 09:43:52
Thread-ID: 1162378
11 Beiträge
Private Sub Worksheet_Change in Modul auslagern
Claudia

Hallo zusammen,
möchte folgenden Code aus Private Sub Worksheet_Change(ByVal Target As Range) in ein Modul auslagern. Soll heissen: unabhä _ _ ngig von einer Eingabe wie dargestellt soll ein Makro hingehen und prüfen, ob aufgrund der _ Werte im genannten I-Bereich noch Änderungen / Ergän...
12.09.2010 21:11:38
Thread-ID: 1177131
3 Beiträge
Anzeige
Private Sub Worksheet_Change
Claudia

Hallo zusammen,
brauche noch einmal Eure Hilfe! Ich nutze folgenden Code.
Wie müsste ich den Code ändern, wenn die Änderungen nicht in dem aktiven Blatt sondern im Reiter mit dem Namen "Test" der gleichen Datei erfolgen müsste. Geht das übergreifend?
Vielen DAnk!
LG
Claudia<...
19.12.2010 18:39:40
Thread-ID: 1192114
9 Beiträge
Anzeige
Problem mit Private Sub Worksheet_Change(ByVal Tar
Hans

Hallo, ich habe folgendes Problem,
Ich habe im Datenblatt ein PrivateSub Worksheet_Change .. wodurch 4 Formeln in die Zellen C5, D5 .. eingetragen.
Man gibt in Zelle B5 eine Ersatzteilnummer ein, dann werden in den folgenden 4 Zellen Bezeichnung, Preis und so weiter aus der Tabelle Pre...
06.01.2011 06:38:20
Thread-ID: 1194082
2 Beiträge
Worksheet_Change(ByVal Target As Excel.Range)
René

Hallo Excelgemeinde
Ich habe folgenden Code auf dem Tabellenblatt.
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$T$6" Then Range("D7:J37").ClearContents Range("A1").Select End If If Target.Address = "$J$7:$J$37" = "Ü" Then Cells(ActiveCell.Row, ActiveCe...
16.02.2012 18:21:26
Thread-ID: 1251046
3 Beiträge
Private Sub Worksheet_Change(ByVal Target As Excel
Naklov

Hallo,
Kann man "Private Sub Worksheet_Change(ByVal Target As Excel.Range)" bei mehreren Subs verwenden?
Danke schon mal fürs Antworten!
VG Naklov
25.04.2012 12:29:06
Thread-ID: 1260921
3 Beiträge
Anzeige
2 x Private Sub Worksheet_Change(ByVal Target As R
Thomas

Hallo zusammen,
es geht ja nur einmal " Private Sub Worksheet_Change(ByVal Target As Range)" wie kann man den die beiden verbinden? Private Sub Worksheet_Change(ByVal Target As Range) Dim lz% lz = Cells(Rows.Count, 1).End(xlUp).Row If Cells(lz, 1) "" Then Cells(lz, 3) = Cells(lz - 1, 3)...
24.05.2012 12:57:47
Thread-ID: 1264713
4 Beiträge

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige