PDA

Vollständige Version anzeigen : Kopieren


JOE_Brettle
29.06.2015, 17:35
Hallo Ihr Experten,

Wie ereiche ich mit vba

das das Datum in Tabelle 2 in B1 mit dem Datum in Tabelle 1 verglichen wird

und dann die Werte von Tabelle 2 in Tabelle 1
unter dem entsprechendem Datum eingefügt werden.

Hajo_Zi
29.06.2015, 17:38
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Test, Mappe, Beispiel usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.

<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

JOE_Brettle
30.06.2015, 06:39
Nein Betriebssystem Windows 7 Office 2010

Mc Santa
30.06.2015, 06:50
Hallo,

Ich habe Schwierigkeiten bei der Aufgabenstellung:
Auf Tabelle2 soll das Datum in B1 gefunden werden und anschließend werden die Zellen im Bereich E48:I48 zugeordnet?
Gibt es immer einen Sprung von 48 Zeilen?

VG
Santa

JOE_Brettle
30.06.2015, 07:40
Ja es soll immer der Wert aus Zeile 48 eingefügt werden, siehe neue anhängende Tabelle.

JOE_Brettle
30.06.2015, 13:12
Habe es mit folgendem Makro versucht:

Sub Kopie()
'
' Kopie Makro
'

'
Sheets("Tabelle 2").Select
Worksheets("Tabelle 2").Range("E48:O48").Select
Selection.Copy
Sheets("Tabelle 1").Select

'Unterdeckung wird kopiert
If Worksheets("Tabelle 1").Range("A6:A37") =
Worksheets("Tabelle 2").Cells(1, 2) Then
Worksheets("Tabelle 1").Range("B6:L36").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

With Selection.Font
.Name = "MS Sans Serif"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End If


End Sub

Doch es kommt ein Laufzeitfehler, was ist falsch?

Hajo_Zi
30.06.2015, 15:36
ich bin dann raus, da meine Beiträge nicht komplett gelesen werden.
Das wird schon seinen Grund haben.


<a href="http://Hajo-Excel.de/index.htm" target="_blank" title="Hajo's Excelseiten">Gruß Hajo</a>

JOE_Brettle
03.07.2015, 15:09
Kann mir keiner weiter helfen ?

JOE_Brettle
08.07.2015, 04:33
Habe es gelöst, das Mako lautet

Sub Kopie()
'
' Kopie Makro
'Unterdeckung wird kopiert

Sheets("Tabelle 2").Select
Worksheets("Tabelle 2").Range("E48:O48").Select
Selection.Copy
Sheets("Tabelle 1").Select
For i = 6 to 100

If Worksheets("Tabelle 1").Cells(i, 1") =
Worksheets("Tabelle 2").Cells(1, "b") Then
Worksheets("Tabelle 1").cells(i, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

With Selection.Font
.Name = "MS Sans Serif"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End If


End Sub