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

Hilfe

Hilfe
JensZ
Hallo
Ich habe 2 Tab.blätter im 1. darf keine formel oder eine verknüpfung stehen
im blatt 2 steht
D11"test1", E11"test2", F11"test3", G11"test4", G12"test1", H11"test6",
wie kann mann das bewerkstelligen das die einträge in blatt 1 in
B2, B3 ,B4, B5, B6, B7 angezeigt werden.
(bei jedem Importieren wird Tab.blatt1 überschrieben)
Gruß jens

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Hilfe
25.04.2004 13:55:32
Josef
Hallo Jens!
Vieleicht so!

Private Sub Worksheet_Calculate()
Dim myArr() As Variant
Dim intC As Integer
myArr = Array("D11", "E11", "F11", "G11", "G12", "H11")
For intC = 1 To 6
Range("B" & intC + 1) = Sheets(2).Range(myArr(intC - 1))
Next
End Sub
'oder

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myArr() As Variant
Dim intC As Integer
myArr = Array("D11", "E11", "F11", "G11", "G12", "H11")
For intC = 1 To 6
Range("B" & intC + 1) = Sheets(2).Range(myArr(intC - 1))
Next
End Sub

In welches Ereignis du den Code schreibst, hängt davon ab,
wie die daten in "Tabelle1" importiert werden!
Gruß Sepp
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige