hallo forum
ich habe ein kleines problem hinsichtlich VBA (weiß gerade mal was das heißt :o))
ich habe eine excel tabelle, in der in den in dem bereich P5:BW2000 einzelne zellen mit einem X gekennzeichnet werden, wenn die bedingung aus spalte A und den überschriften aus den spalten p bis bx zutrifft.
beispiel:
A B C … P Q R S T
Art1 X X
Art2 X X
Art3 X X X
Art4
.
.
nun hätte ich gern ein VBA makro, welches folgendes leisten soll:
wenn der cursor in der spate P bei art4 steht, soll per shortcut die werte aus dem darüberliegenden bereich (spalte P bis BW bei art3) in die spalten P bis BW bei artikel 4 kopiert werden.
ich hoffe, dass mit jemand helfen kann.
vielen dank und gruss
eazy
Hallo Forumsuser,
ich habe ein kleines problem hinsichtlich VBA (weiß gerade mal
was das heißt :o))
Glückwunsch, das ist mehr als viele andere können…
nun hätte ich gern ein VBA makro, welches folgendes leisten
soll:
was zahlst du? 
wenn der cursor in der spate P bei art4 steht,
msgbox activecell.column
msgbox activecell.row
msgbox activecell.address
soll per
shortcut die werte aus dem darüberliegenden bereich (spalte P
bis BW bei art3) in die spalten P bis BW bei artikel 4 kopiert
werden.
zeichne am besten mal ein Makro auf bei dem Du etwas mit copy/paste kopierst und schau es Dir an.
ich hoffe, dass mit jemand helfen kann.
ja, aber ich bin nicht die wohlfahrt und hab genug andere Dinge zu tun, die mir in den meisten Fällen auch Geld einbringen. Dazu kommt, dass mir persönliches Interesse am Thema lieber ist als wenn jemand was fertiges haben will…
Grüße zurück
Forum Munich
hallo
erstmal vielen dank für deine antwort.
ich erwarte natürlich nichts fertiges. allerdings ist es für jemanden, der sich mit VBA nicht auskennt recht schwierig, nur mit fragmenten eine komplette prozedur zu schreiben, die dann vor allem auch noch funktioniert :o)
gruss
eazy
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
nun hätte ich gern ein VBA makro, welches folgendes leisten soll:
wenn der cursor in der spate P bei art4 steht, sollen
die werte aus dem darüberliegenden bereich (spalte P
bis BW bei art3) in die spalten P bis BW bei artikel 4 kopiert
werden.
Hallo eazy
Hab ich Dich richtig verstanden: Wenn der Cursor zum Beispiel in Zeile 55 steht, soll mit einem Makro der Bereich p54:bw54 nach nach p55:bw55 kopiert werden usw.?
Ich habe Dir dafür ein Makro gebastelt. Beim kopieren/einfügen war ich mir nicht sicher. Hier wird ganz „normal“ eingefügt.
Sub kopieren()
ActiveCell.Select
r = Selection.Row
If r = 1 Then Exit Sub
Range(Cells(r - 1, 16), Cells(r - 1, 75)).Copy
Range(Cells(r, 16), Cells(r, 75)).Select
ActiveSheet.Paste
'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
’ :=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Ich hoffe, das klappt bei Dir wie bei mir. Sonst meldest Dich.
Schönen Abend und freundliche Grüsse
Nic
OT Select
Sub kopieren()
ActiveCell.Select
r = Selection.Row
If r = 1 Then Exit Sub
Range(Cells(r - 1, 16), Cells(r - 1, 75)).Copy
Range(Cells(r, 16), Cells(r, 75)).Select
ActiveSheet.Paste
'Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
’ :=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Hi Niclaus,
ich habe das hier jetzt nur überflogen und weiß jetzt noch nicht was da genau gewünscht wird.
Mir fiel nur auf daß du Select benutzt.
Schau dir bitte mal in der Hilfe die Syntax von Copy an.
Range(Cells(r - 1, 16), Cells(r - 1, 75)).Copy Destination:=Range Cells(r, 16), Cells(r, 75))
hat was leichter lesbares als Paste
Gruß
Reinhard
Schau dir bitte mal in der Hilfe die Syntax von Copy an.
Range(Cells(r - 1, 16), Cells(r - 1, 75)).Copy
Destination:=Range Cells(r, 16), Cells(r, 75))
hat was leichter lesbares als Paste
Danke schön, Reinhard
Ist wirklich eleganter. Das ist was mir fehlt. Ich kann’s nur so pi x handgelenk!
Grüsse Niclaus