MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Programmierung und Entwicklung (Allgemein) > Distribution und Installation
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 19.01.2015, 15:43   #1
tylm
Neuer Benutzer
Neuer Benutzer
Standard Frage - Summe von Zellen aus 4 verschiedenen Tabellenblättern

Hallo Leute,
bin so ziemlich neu dabei, mit VBA zu programmieren und habe folgendes Problem: Ich muss aus vier unterschiedlichen Tabellen die Summe für eine bestimmte Zelle herauskriegen.

Kurz gesagt:
aus Tabelle1 Zelle(1,1)
aus Tabelle2 Zelle(1,1)
aus Tabelle3 Zelle(1,1)
aus Tabelle4 Zelle(1,1)

in diesen vier Zellen stehen jeweils Integer-Werte, die dann in einer Tabelle5 in der gleichen Zelle (also Tabelle5.cells(1,1)) zusammengerechnet werden sollen.

Die Funktion funktioniert zwar über eine andere Testfunktion (in VisualBasic). Nur wenn ich diese Funktion in die Zelle übergebe, funktioniert es nicht. Es geht gar nicht in die Funktion rein und springt bei der Eingabe-Taste einfach auf das nächste Feld.
Es ist bestimmt ein klitzekleiner Fehler. Ich finde den Fehler jedoch nicht. Kann mir da mal jmd über den Code schauen? Wäre super nett, da ich sonst nicht weiß, wie ich die Zellen zusammenaddieren soll...
Code:

Public Function Mgl(ByVal wksname1 As String, ByVal wksname2 As String, ByVal wksname3 As String, ByVal wksname4 As String) As Long

Dim wk1 As Worksheet
Dim wk2 As Worksheet
Dim wk3 As Worksheet
Dim wk4 As Worksheet
Dim row As Integer
Dim col As Integer
Dim sum As Long
 
 
Set wk1 = ThisWorkbook.Worksheets(wksname1)
Set wk2 = ThisWorkbook.Worksheets(wksname2)
Set wk3 = ThisWorkbook.Worksheets(wksname3)
Set wk4 = ThisWorkbook.Worksheets(wksname4)
 
row = ActiveCell.row
col = ActiveCell.Column
 
sum = wk1.Cells(row, col) + wk2.Cells(row, col) + wk3.Cells(row, col) + wk4.Cells(row, col)
 
Mgl = sum
 
End Function
tylm ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:39 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.