Bestimmte Zellen von Arbeitsbl. automat verknüpfen

Bild

Betrifft: Bestimmte Zellen von Arbeitsbl. automat verknüpfen
von: ömer
Geschrieben am: 22.03.2005 00:17:33

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

Bild

Betrifft: AW: Bestimmte Zellen von Arbeitsbl. automat verknüpfen
von: marcl
Geschrieben am: 22.03.2005 07:55:50
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
Bild

Betrifft: Was bedeutet Zahl 12,Bitte
von: ömer
Geschrieben am: 22.03.2005 10:38:56
Lieber Marcl, vielen Dank,
weil ich von VBA fast nichts verstehe möchte icg dein Makro für weitere Mappen erweitern.
Deswegen kannst du Bitte sagen welche werte ich ändern soll. zB. was bedeutet Zahl 12
Vielen Dank im voraus
Ömer
Bild

Betrifft: AW: Was bedeutet Zahl 12,Bitte
von: marcl
Geschrieben am: 22.03.2005 10:52:43
Hallo,
Du meinst zahl1?
ich habe Dir eine Schleife gebaut:

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


Wenn Du Do While zahl2 < "1000" schreibst, kannst Du bis Blatt Pos1000,Re1000,Gu1000 gehen.
War das verständlich?
Gruß
marcl
Bild

Betrifft: Aber wie, vielen, vielen Dank
von: ömer
Geschrieben am: 22.03.2005 11:15:48
Verstanden, Besser kann man nicht erklären
Vielen Dank
MFG
ömer
Bild

Betrifft: Hilfe ich bekomme die Meldung:Aussserhalb
von: ömer
Geschrieben am: 22.03.2005 12:19:02
Lieber marcl,
ich bekomme folgende Meldung :
Also es sind Blätter POS211,Re211,G211 bis 280
ich habe "70" auf "280" gewechselt.
Auf der Mappe gibt es ausser dieser Blätter noch einen Blatt das, "a" heisst. Macht das vielleicht ein Problem??

Danke
MFG
ömer

Bild

Betrifft: AW: Hilfe ich bekomme die Meldung:Aussserhalb
von: marcl
Geschrieben am: 23.03.2005 11:35:07
Hallo Ömer,
fängt in der Datei das mit POS211,Re211,G211 an?
dann kusst Du folgendes machen:

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

zahl2 = 210 liegt immer eine Zahl vor der ersten Blattnummer, weil in der Schleife begonnen wird mit Nehme Blatt zahl2 +1, also Blatt 211.
Gruß
marcl
Bild

Betrifft: Leider funzt bei mir nicht
von: ömer
Geschrieben am: 23.03.2005 17:35:59
Lieber marcl,
leider funktioniert bei mir nicht , ich bekomme Meldong " 400".
Vielen dank und
herzliche Grüße
Ömer
Bild

Betrifft: Makro ändern
von: marcl
Geschrieben am: 24.03.2005 06:13:54
Keine Ahnung, warum?
Als denn
viel Erfolg
marcl
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Bestimmte Zellen von Arbeitsbl. automat verknüpfen"