Thema Datum  Von Nutzer Rating
Antwort
Rot Verknüpfung mit Makro einfügen
 05.01.2014 12:14:44 Ernst
NotSolved
05.01.2014 16:42:48 Holger
NotSolved
06.01.2014 10:33:32 Gast40800
NotSolved
06.01.2014 16:07:35 Holger
NotSolved
13.01.2014 10:21:16 Ernst
NotSolved
13.01.2014 23:58:35 H27
NotSolved
20.01.2014 15:48:13 Gast44585
NotSolved
25.01.2014 12:02:36 Ernst
Solved

Ansicht des Beitrags:
Von:
Ernst		 Datum:
05.01.2014 12:14:44		 Views:
2211		 Rating:
     
Antwort:
  Ja
Thema:
Verknüpfung mit Makro einfügen

Hallo liebe Community,

ich bin noch ein Frischling in der Programmierung mit VBA für Excel und komme trotz Forum und Bücher mit folgendem Problem nicht klar.

Ich habe 2 Tabellen in einer Mappe wobei ich in Tabelle 1 in Zeile "x" Spalte H eine Verknüpfung mit Tabelle 2 Zeile "y" Spalte G herstellen möchte.

Die Zeilen "x" + "y" sind dabei variabel, was noch nicht das Problem darstellt. Meine bisherigen Lösungen brachten mir nur den Wert der entsprechenden Zelle aus Tabelle 2 in Tabelle 1, ich jedoch möchte die Formel [z.B. =aufrunden(Tabelle1!H16;1)] in der Zelle stehen haben.

Hier das Makro was aber nicht ganz zum Ziel führt.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub Verknüpfung()
 
' Positionspreise in Angebot zurückspielen
 
               Dim Zelle1 As Range
 
               Dim Zeile1 As String
 
               Dim Zelle2 As Range
 
               Dim Zeile2 As String
 
' finden der richtigen Zeile in Tabelle2
 
               Sheets("Tabelle2").Select
 
               Zeile2 = "xx"
 
               Set Zelle2 = _
 
               Range("A:A").Find(Zeile2)  
 
               Zelle2.Activate
 
               ActiveCell.Offset(0, 6).Select
 
               Zelle2 = ActiveCell
 
 ' finden der richtigen Zeile in Tabelle1
 
               Sheets("Tabelle1").Select
 
               Zeile1 = "pp"
 
               Set Zelle1 = _
 
               Range("A:A").Find(Zeile1)  
 
               Zelle1.Activate
 
               ActiveCell.Offset(0, 7).Select
 
               ActiveCell.FormulaR1C1 = Zelle2
 
End Sub

Die letzte Zeile (ActiveCell.FormulaR1C1 = Zelle2) birgt das Problem das ich nicht gelöst bekomme (gibt nur den Wert nicht aber die Formel in die Zelle). Wäre nett wenn mir jemand hier eine Lösung übermitteln könnte.

Vielen Dank im Voraus

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Verknüpfung mit Makro einfügen
 05.01.2014 12:14:44 Ernst
NotSolved
05.01.2014 16:42:48 Holger
NotSolved
06.01.2014 10:33:32 Gast40800
NotSolved
06.01.2014 16:07:35 Holger
NotSolved
13.01.2014 10:21:16 Ernst
NotSolved
13.01.2014 23:58:35 H27
NotSolved
20.01.2014 15:48:13 Gast44585
NotSolved
25.01.2014 12:02:36 Ernst
Solved