Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1732to1736
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
Inhaltsverzeichnis

nach Eingabe in Zelle - automatisch Spalten kopieren

nach Eingabe in Zelle - automatisch Spalten kopieren
21.01.2020 12:44:26
Reiner
Hallo Forum,
ich habe folgendes Problem :
ich möchte - wenn ich in Zelle "F50" einen Wert eingebe, daß sich sofort danach die Spalten A-F kopieren und
diese in "H1" wieder eingefügt werden.
Ich möchte eine 2 Seite mit einer leeren Liste generieren.
Hat hier jemand eine Idee / Tipp - wie ich dies bewerkstelligen kann ?
( hier werden auch einige Zellen gesperrt - da ich die Dateneingabe mit einem Scanner mache )
Zum besseren Verständnis anbei die Test-Datei
https://www.herber.de/bbs/user/134583.xlsm
Vielen Dank vorab und Gruß
Reiner

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nach Eingabe in Zelle - automatisch Spalten kopieren
21.01.2020 13:43:13
Werner
Hallo Reiner,
meinst du so?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Cells(2, Columns.Count).End(xlToLeft).Offset(48, 5).Address Then
Application.EnableEvents = False
Columns("A:F").Copy Columns(Target.Column + 2)
Range(Cells(10, Target.Column + 2), Cells(50, Target.Column + 7)).ClearContents
If Target.Column > 6 Then
Cells(4, Target.Column + 6) = Cells(4, Target.Column - 1) + 1
Else
Cells(4, Target.Column + 6) = Cells(4, Target.Column + 6) + 1
End If
Application.EnableEvents = True
End If
End Sub
Der Code gehört ins Codemodul vom Tabellenblatt "Papier"
Der Code startet beim ersten mal bei Eingabe in F50, beim zweiten mal bei Eingabe in M50, beim dritten mal bei Eingabe in T50 usw.
Der Zähler in L4 / S4 / Z4... wird jeweils auch um 1 erhöht.
Gruß Werner
Anzeige
AW: nach Eingabe in Zelle - automatisch Spalten kopieren
21.01.2020 14:17:05
Reiner
Hallo Werner,
das ist KLASSE - genau so !!!!
Besten Dank .... und ich brüte hier schon 3 Tage rum !!!!
Vielen Dank und beste Grüße vom Niederrhein
Reiner
Gerne u. Danke für die Rückmeldung. o.w.T.
21.01.2020 14:20:51
Werner

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige