Makro - Daten nach rechts oder links kopieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Makro - Daten nach rechts oder links kopieren von: Thomas G
Geschrieben am: 07.02.2005 12:12:13

Hallo zusammen,

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

Bild


Betrifft: AW: Makro - Daten nach rechts oder links kopieren von: HerbertH
Geschrieben am: 07.02.2005 13:53:09

hallo Thomas,
das müßte funktionieren:

Sub nach_rechts()
Dim c As Integer
If [b4] = "" Then
    c = 2
Else
c = [p4].End(xlToLeft).Column + 1
End If
If Cells(5, 15) <> "" Then
    MsgBox "Reihe ist voll !"
  Else
    Cells(4, c).Value = Range("Q4").Value
    Cells(5, c).Value = Range("Q5").Value
End If
    
End Sub




Sub nach_links()
Dim c As Integer
If [r21] = "" Then
    c = 18
Else
c = [a21].End(xlToRight).Column - 1
End If
  
If Cells(21, 3) <> "" Then
    MsgBox "Reihe ist voll !"
  Else
    Cells(21, c).Value = Range("a21").Value
    Cells(22, c).Value = Range("a22").Value
End If
    
End Sub



gruß Herbert


Bild


Betrifft: Danke es funktioniert super von: Thomas G
Geschrieben am: 07.02.2005 14:52:25

Hallo Herbert,

vielen Dank für die Hilfe.

Das Makro funktioniert einwandfrei.

MfG

Thomas


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Makro - Daten nach rechts oder links kopieren"