Thema Datum  Von Nutzer Rating
Antwort
Rot Formel in VBA anpassen
08.03.2018 15:10:02 C.Maus
NotSolved

Ansicht des Beitrags:
Von:
C.Maus		 Datum:
08.03.2018 15:10:02		 Views:
1102		 Rating:
     
Antwort:
  Ja
Thema:
Formel in VBA anpassen

Habe eine Excel Tbelle mit 2 Tabellenblätter.

In der zweiten Tabelle ist ein Makro hinterlegt das dieses Tabellenblatt kopiert (Name des neuen Tabellenblattes wird abgefragt).

Jetzt soll sich eine Formel in dem neuen Tabellenblatt auf das alte Tabellenblatt beziehen und das funktioniert nicht. (Rot hinterlegt in der Tabelle)

 

Sinn: Alle 4-5 Wochen wird ein neues Tabellenblatt angelegt. Das neue Tabellenblatt soll den Kontostand des alten Tabellenblattübernehmen. (grün makiert)

 

bei 'paste' soll der bezug auf die neue Tabelle (ich wollte vorher den Namen kopieren und genau dort einfügen

 

?
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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Sub BlattKopieren()
'
' Tabellenblatt kopieren und umbenennen
'
Dim strName As String
    strName = InputBox("Name des neuen Blatts:", "Blatt benennen")
    If strName = "" Then
      MsgBox "Leider wurde kein Blattname eingetragen!"
      Exit Sub
    End If
    Sheets("Rechnung vom 15.04.2018").Copy After:=Sheets("Rechnung vom 15.04.2018")
    ActiveSheet.Name = strName
    ActiveSheet.Range("A2") = strName
    MsgBox "Blatt erfolgreich kopiert!"
End Sub
 
'Auf neues Tabellenblatt springen
 
Sub TabellenblattAktivieren()
Worksheets("strName").Select
 
End Sub
 
'Das neue Tabellenblatt nach hinten verschieben
 
Sub TabellenblattVerschieben()
ActiveSheet.Move After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
 
End Sub
 
 
Sub FormelAendern()
 
'Auf Voriges Tabellenblatt springen
 
    On Error Resume Next
    ActiveSheet.Previous.Activate
    On Error Resume Next
 
'Name des Tabellenblattes kopieren
 
    Sheets("Rechnung vom 06.03.18 ").Select
    <strong>Range("A2").Select
    Selection.Copy</strong>
 
' Wieder auf neues Tabellenblatt springen
 
Sub TabellenblattAktivieren2()
Worksheets("strName").Select
 
' Formel anpassen
 
    Range("I5").Select
    ActiveCell.FormulaR1C1 = _
        "=LOOKUP(2,1/('<strong><em>paste</em></strong>'!R4C2:R49C2&<strong><em>'paste'</em></strong>!R4C3:R49C3='strName'!RC[-7]&'strName'!RC[-6]),<strong><em>'paste'</em></strong>!R5C12:R49C12)"
    Range("I5").Select
    Selection.Copy
    Range("I6:I49").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub

 

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 Formel in VBA anpassen
08.03.2018 15:10:02 C.Maus
NotSolved