Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
712to716
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
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Werte kopieren

Werte kopieren
04.01.2006 13:09:24
Martin
Hallo
Ich habe folgende Tabelle: www.herber.de/bbs/user/29713.xls
Im Blatt Offerten werden Projekte zeilenweise erfasst. Wenn in der
Spalte J der Zustand auf Auftrag geändert wird, sollen die Zellen
A, B und E in die jeweilige Zelle in der nächst freien Zeile im
Blatt Auftrag kopiert werden. Ist das lösbar?
Gruss
Martin

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte kopieren
04.01.2006 13:24:26
Eugen
hi
so geht

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 10 And Target.Value = "Auftrag" Then
For i = 4 To 65535
If Sheets(2).Cells(i, 1).Value = "" Then Exit For
Next i
Sheets(2).Cells(i, 1).Value = Sheets(1).Cells(Target.Row, 1).Value
Sheets(2).Cells(i, 2).Value = Sheets(1).Cells(Target.Row, 2).Value
Sheets(2).Cells(i, 5).Value = Sheets(1).Cells(Target.Row, 5).Value
End If
Application.EnableEvents = True
End Sub

mfg
AW: Werte kopieren
04.01.2006 13:53:26
Martin
Alles klar! Besten Dank!
Gruss
Martin
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige