Makro - Daten nach rechts oder links kopieren
07.02.2005 12:12:13
Thomas
ich brauche eure Hilfe.
Das Makro was ich habe, will nicht so funktionieren wie ich will.
Ich habe eine Tabelle.
In einer Zeile sollen Monate stehen.
In der anderen Zeile stehen Prozentangaben.
Ganz rechts neben der Tabelle sind zwei Zellen mit einer anderen Tabelle
verknüpft. Jeden Monat stehen dort aktuelle Werte. Diese Werte
sollen dann mittels Makro in diese leere Tabelle kopiert werden.
Das ganze ist schlecht zu erklären.
Daher habe ich ein Muster mit hochgeladen.
https://www.herber.de/bbs/user/17573.xls
Ich bedanke mich schon mal für die Hilfe.
Ich habe schon mal versucht das Makro anzu passen, leider erfolglos.
Sub Makro1()
Sheets("Tabelle1").Select
Dim C As Integer
C = Range("Q4:Q5").End(xlToLeft).Column
If Not IsEmpty(Cells(6, C)) Then C = C + 1
If Cells(6, 12) <> "" Then
MsgBox "Reihe ist voll"
Else
Cells(4, C) = Range("Q4").Value
Cells(5, C) = Range("Q5").Value
End If
End Sub