code ändern!?

Bild

Betrifft: code ändern!?
von: mayk
Geschrieben am: 26.02.2005 16:03:19
Hallo zusammen,

ich habe diesen code (danke noch einmal)aus diesem Forum
er läuft super.
Kan man diese Code auch so umschreiben das er für mehrere Zeilen steht?
wenn ich zum Beispiel A1:A100 eingebe funktioniert`s nicht.
Original Code:


Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, [a2]) Is Nothing Then Exit Sub
   If Not IsEmpty([a2]) Then [a1] = [a2]
End Sub

Abgeänderter Code der nicht läuft:
[

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, [a2:v2]) Is Nothing Then Exit Sub
   If Not IsEmpty([a2:v2]) Then [a1:v1] = [a2:v2]
End Sub
]
Mayk
Bild

Betrifft: AW: code ändern!?
von: Reinhard
Geschrieben am: 26.02.2005 16:14:13
Hi Mayk,
meisnt du es so (ungetestet):

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, [a2:v2]) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
   If Not IsEmpty(Target) Then Target.Offset(0, -1) = Target
End Sub

Gruß
REinhard
Bild

Betrifft: AW: code ändern!?
von: mayk
Geschrieben am: 26.02.2005 16:21:03
nein, leider nicht, da die spalten für sich bleiben sollten A1=A2;B1=B2..usw.
leider gibt es auch eine fehlermeldung
gruß mayk
Bild

Betrifft: AW: code ändern!?
von: mayk
Geschrieben am: 26.02.2005 16:28:38
etwa so, aber so läuft es nicht

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, [a2]) Is Nothing Then Exit Sub
   If Not IsEmpty([a2]) Then [a1] = [a2]
   End Sub


If Intersect(Target, [b2]) Is Nothing Then Exit Sub
If Not IsEmpty([b2]) Then [b1] = [b2]

End Sub
Bild

Betrifft: AW: code ändern!?
von: Nepumuk
Geschrieben am: 26.02.2005 16:50:02
Hi,
so geht's:


Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [a2:v2]) Is Nothing Then
        If Not IsEmpty([a2:v2]) Then
            Application.EnableEvents = False
            [a1:v1] = [a2:v2].Value
            Application.EnableEvents = True
        End If
    End If
End Sub


Gruß
Nepumuk
Bild

Betrifft: AW: nicht ganz
von: mayk
Geschrieben am: 26.02.2005 16:59:59
leider nicht wenn ich den wert in a2 lösche wird auch a1 gelöscht!?
gruß mayk
Bild

Betrifft: AW: nicht ganz
von: Nepumuk
Geschrieben am: 26.02.2005 17:07:39
Hallo,
es war nicht ganz klar, dass du nur einzelne Zellen übertragen willst. Dann so:


Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [a2:v2]) Is Nothing Then
        If Trim$(Target.Text) <> "" Then
            Application.EnableEvents = False
            Cells(1, Target.Column).Value = Target.Value
            Application.EnableEvents = True
        End If
    End If
End Sub


Gruß
Nepumuk
Bild

Betrifft: AW: so ist es, herzlichsten Dank! oT.
von: mayk
Geschrieben am: 26.02.2005 18:19:11

Bild

Betrifft: AW: Nepumuk ?
von: aley k
Geschrieben am: 26.02.2005 17:04:57
Ne frage an Nepumuk dazu.
Was bedeuten die zeichen in VBA ? []
Bild

Betrifft: AW: Nepumuk ?
von: Nepumuk
Geschrieben am: 26.02.2005 17:09:12
Hi,
[a1:v1] ist eine alte Syntax von Range("A1:V1").
Gruß
Nepumuk
 Bild

Beiträge aus den Excel-Beispielen zum Thema "farbige Zelle"