Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zwei VBA

Zwei VBA
05.12.2003 13:22:01
sascha
Hallo liebe Freunde!
Habe folgendes code irgend wie gebastelt:( und es funktioniert)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim var As Variant
Dim iRow As Integer
Dim sort As String
If Target.Column <> 7 Then Exit Sub
Application.EnableEvents = False
With Range("ik50000:in50010")
var = Application.Match(Target.Value, .Columns(1), 0)
If Not IsError(var) Then
Target.Offset(0, 1).Value = .Cells(var, 2).Value
Target.Offset(0, 2).Value = .Cells(var, 3).Value
Target.Offset(0, 3).Value = .Cells(var, 4).Value
End If
End With
ERRORHANDLER:
Application.EnableEvents = True
End Sub

Mein Problem:
Das gleiche brauche ich auch für Spalte 11(K) ( also in code sollten Spalten 7 und 11 ( F und K ) integriert.
Ich habe versucht aber Erfolglos
Wer hilft weiter
Danke in voraus
Gruß Sascha

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zwei VBA
05.12.2003 13:41:24
Andi_H
Hi sascha,

ändere mal diese Zeile ab:

If Target.Column <> 7 and <> 11 Then Exit Sub

müßte klappen
Gruß

Andi
AW: Zwei VBA
05.12.2003 14:14:01
sascha
Hallo Andi
Es klapt nicht (bei zweitem <> krige error ERWARTET AUSDRUCK
Sascha
AW: Zwei VBA
05.12.2003 14:27:43
Andi_H
Sorry, des war mein fehler, muß so heißen

If Target.Column <> 7 and target.column<> 11 Then Exit Sub

gruß
If Target.Column <> 7 and Target.column <>11 Then
05.12.2003 14:25:58
IngoG
Hallo Sascha

siehe oben

Gruß Ingo

AW: If Target.Column <> 7 and Target.column <>11 Then
05.12.2003 14:34:17
sascha
Danke Ingo
Es funktioniert
Gruß Sascha

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige