Bestimmte Zellen von Arbeitsbl. automat verknüpfen

Auf meiner Mappe sind Blätter :
Pos1,Re1,Gu1,Pos2,Re2,Gu2,Pos3,Re3,Gu3,usw bis Pos70,Re70,Gu70,
Bestimmte Zellen vom 'Blatt RE1' möchte ich mit Zellen vom 'Blatt Pos1' verknüpfen
( zb: Zelle A1 vom Blatt RE1 mit der Zelle B2 vom Blatt Pos1)
Sinn der Sache ist des:
im Blatt Pos1 stehen Werte wie zB auf B2 steht Verkaufspreis, B3 Verkaufsdatum
Blatt RE1 ist Rechnung. Die Zelle A1 dieses Blattes bzw. Rechnungs übernimmt den Verkaufspreis vom Blatt Pos1 Zelle B2
In jedem RE Blatt habe ich 7 solche Werte zu verknüpfen.
Und dann werde ich das gleiche für GU1 machen weil das ein Gutschein ist , nur bei diesem Blatt sind 7 andere Werte von Pos1 zu verknüpfen
Also ich muss es auf alle 70 "Pos, Re, Gu," Blätter übertragen.
Gibt es einen kürzeren Weg , sonst muss ich alle Blätter einzeln bearbeiten.
oder verlange ich zu viel
Vielen Dank im Voraus
MFG
ömer
Auf jeder Mappe habe ich je 70 solche Blätterserien

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo ömer,
versuch mal das:


Sub test()
zahl2 = 0
Do While zahl2 < "70"
zahl2 = zahl2 + 1
Sheets("Re" & zahl2).Range("B2") = Sheets("Pos" & zahl2).Range("A3")
Sheets("Re" & zahl2).Range("B3") = Sheets("Pos" & zahl2).Range("A4")
Sheets("Re" & zahl2).Range("B4") = Sheets("Pos" & zahl2).Range("A5")
Sheets("Re" & zahl2).Range("B5") = Sheets("Pos" & zahl2).Range("A6")
Sheets("Re" & zahl2).Range("B6") = Sheets("Pos" & zahl2).Range("A7")
Sheets("Re" & zahl2).Range("B7") = Sheets("Pos" & zahl2).Range("A8")
Sheets("Re" & zahl2).Range("B8") = Sheets("Pos" & zahl2).Range("A9")
Sheets("Gu" & zahl2).Range("B2") = Sheets("Pos" & zahl2).Range("A3")
Sheets("Gu" & zahl2).Range("B3") = Sheets("Pos" & zahl2).Range("A4")
Sheets("Gu" & zahl2).Range("B4") = Sheets("Pos" & zahl2).Range("A5")
Sheets("Gu" & zahl2).Range("B5") = Sheets("Pos" & zahl2).Range("A6")
Sheets("Gu" & zahl2).Range("B6") = Sheets("Pos" & zahl2).Range("A7")
Sheets("Gu" & zahl2).Range("B7") = Sheets("Pos" & zahl2).Range("A8")
Sheets("Gu" & zahl2).Range("B8") = Sheets("Pos" & zahl2).Range("A9")
Loop
End Sub

Gruß
marcl

Sub test() zahl2 = 0 ' iest eine Variable für alle Deine Blattnummern Do While zahl2 < "70" ' geht von Blatt zu Blatt bis Zahl 70 erreicht ist (Anfang der Schleife) zahl2 = zahl2 + 1 ' zählt immer ein Blatt weiter Sheets("Re" & zahl2)... Sheets("Gu" & zahl2)... Loop ' fängt wieder oben bei Do While an (Ende der Schleife) End Sub

Sub test() zahl2 = 210 ' iest eine Variable für alle Deine Blattnummern Do While zahl2 < "280" ' geht von Blatt zu Blatt bis Zahl 280 erreicht ist (Anfang der Schleife) zahl2 = zahl2 + 1 ' zählt immer ein Blatt weiter Sheets("Re" & zahl2)... Sheets("Gu" & zahl2)... Loop ' fängt wieder oben bei Do While an (Ende der Schleife) End Sub

Beliebteste Forumthreads (12 Monate)

Bestimmte Zellen von Arbeitsbl. automat verknüpfen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread