✔ Excel 2003 oder 2010 Zellen kopieren von Tab1 in Tab 2 mit vorgegeb.Koordin

[tombe]

Wie Zvoni schon geschrieben hat, kann man so nicht nur den Inhalt sondern auch den Kommentar einer Zelle kopieren:

zeile = 1

Do While Tabelle2.Cells(zeile, 1).Value <> ""

Tabelle2.Cells(zeile, 1).copy
Tabelle1.Range(Tabelle2.Cells(zeile, 2) & Tabelle2.Cells(zeile, 3)).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    zeile = zeile + 1
Loop

 

[wolfi9]

Hallo tombe,

leider bringe ich dieses Makro nicht zum laufen.
es kopiert nicht.

Dein erstes Makro funktioniert gut, fehlt aber die Formatierung.

Wenn ich von Hand/Makrorecorder kopiere, und der Link geht sieht das so aus:

Sub Makro4()
'
' Range("C2").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Selection.copy
Sheets("Tabelle2").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
End Sub

Hier kommt noch ein Hyperlink ins Spiel.
Danke auf jeden Fall für deine Hilfe

Wolfi9

 

[tombe]

Hallo Wolfi9,

habe deine PN gelesen würde dir aber empfehlen dein Problem nicht "privat" zu lösen sondern weiterhin hier im Forum. Es lesen ja doch so einige die Beiträge und vielleicht fällt doch noch jemandem etwas dazu ein.

Das Makro welches du oben eingestellt hast macht ja im Grunde genau das gleiche. Was funktioniert mit meinem letzten Beispiel nicht? Das es nicht kopiert kann eigentlich nicht sein, habe es ja bei mir probiert.

Gruß Thomas

 

[wolfi9]

Hallo tombe

hier noch einmal die Ausgangslage Tabelle mit drei Spalten:

a 1 E:\MZ\001excekmak\MKM_PF7010005.jpg
b 2 E:\MZ\001excekmak\MKM_PF7010005a.jpg
a 3 E:\MZ\001excekmak\MKM_PF7010006.jpg
b 4 E:\MZ\001excekmak\MKM_PF7010006a.jpg
a 6 E:\MZ\001excekmak\MKM_PF7010007.jpg
b 7 E:\MZ\001excekmak\MKM_PF7010008.jpg
a 7 E:\MZ\001excekmak\MKM_PF7010009.jpg

hier ist mein makro

' Sub copy()
'
' copy Makro
' Makro am 05/09/2012 von Wolfi aufgezeichnet
'

Sub copy()
zeile = 1

Do While Tabelle2.Cells(zeile, 1).Value <> ""

Tabelle2.Cells(zeile, 1).copy
Tabelle1.Range(Tabelle2.Cells(zeile, 2) & Tabelle2.Cells(zeile, 3)).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
zeile = zeile + 1
Loop


End Sub


Tabelle 2 bleibt leer, keine Meldung.

Wolfi9

 

[Zvoni]

Ich verstehe diese zwei Zeilen nicht:

Do While Tabelle2.Cells(zeile, 1).Value <> ""
Tabelle2.Cells(zeile, 1).copy

Ich denke, du willst durch Tabelle1 durchschleifen?


in

Tabelle1.Range(Tabelle2.Cells(zeile, 2) & Tabelle2.Cells(zeile, 3)).Select

Willst du Koordianten aus einer leeren Tabelle2 holen. Wie soll das gehen?

btw: Kannst du bitte VB-Tags benutzen?

EDIT: Auf Basis deines ursprünglichen Problems aus Post #1

Zeile 1: Feld A1: „D“, Feld B1: „5“, Feld C1 „Inhalt“
Ziel: Tabelle 2 mit den Koordinaten „D5“ und dem Inhalt c1

zeile = 1

Do
Tabelle1.Cells(zeile, 3).Copy
Tabelle2.Activate
Tabelle2.Range(Tabelle1.Cells(zeile, 1) & Tabelle1.Cells(zeile, 2)).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Tabelle1.Activate
zeile = zeile + 1

Loop Until Tabelle1.Cells(zeile, 1) = ""

 

[tombe]

So ich hänge hier mal ein funktionierendes Beispiel dran.

In Tabelle 1 stehen ein paar Koordinaten (Spalte A und B). In Spalte C steht sinnloser Text wobei bei einigen Zellen auch ein Kommentar hinterlegt ist.

Klickt man auf den Button, wird das Makro gestartet und der Text und (sofern vorhanden) der Kommentar wird nach Tabelle 2 kopiert.

Das sollte dann helfen.

 

[wolfi9]

Hallo Ttombe,,

mit deiner Datei ist das Problem perfekt gelöst.
Auch will ich mich bei den anderen Mitstreitern bedanken, muss aber bekennen , dass ich nur mit dem Makrorecorder umgehen kann und sonst nichts von der vbe Programmierung verstehe.

Das Beispiel hilft mir weiter mein Projekt fertigzustellen.

Vielen Dank tolle community

Thema erledigt

Wolfi