Thema Datum  Von Nutzer Rating
Antwort
02.02.2014 16:21:05 minli
NotSolved
Blau Zelle in einem Bereich kopieren und in anderer Tabelle einfügen
 04.02.2014 18:05:07 Gast79560
NotSolved

Ansicht des Beitrags:
Von:
Gast79560		 Datum:
04.02.2014 18:05:07		 Views:
886		 Rating:
     
Antwort:
  Ja
Thema:
Zelle in einem Bereich kopieren und in anderer Tabelle einfügen

Auch Hallo,

Sub MitFormelKopieren()
'hier ggf. ändern
Const Quelladresse As String = "Tabelle2!B7:AH27"
Const Zieltabelle As String = "WR1!"
'
Dim Quellbereich As Range
Dim c As Range  'Variable
Dim Zielbereich As Range
'
Set Quellbereich = Range(Quelladresse)  'Quelle festlegen
'
For Each c In Quellbereich  'Quelle alle abgrasen
  If c.Value > 0 Then       'Bedingung
    c.Copy Destination:=Range(Zieltabelle & c.Address)  'kopiere
  End If
Next c
End Sub
Rem sollten nur die Werte, dann
'c.Copy Destination:=Range(Zieltabelle & c.Address)  'kopiere
Rem austauschen gegen
'Range(Zieltabelle & c.Address).Value = c.Value  'übernehme nur Werte

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
02.02.2014 16:21:05 minli
NotSolved
Blau Zelle in einem Bereich kopieren und in anderer Tabelle einfügen
 04.02.2014 18:05:07 Gast79560
NotSolved