Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

VBA - Summenfunktion bei variabler Zeilenanzahl

Frage Entwicklung VB for Applications

Mitglied: sejosc

sejosc (Level 1) - Jetzt verbinden

28.08.2006, aktualisiert 29.08.2006, 12588 Aufrufe, 2 Kommentare

Hallo zusammen,

ich habe wieder eine kleine Frage bzgl. VBA. Ich habe hier Tabellen vorliegen, die eine unterschiedliche Anzahl an Zeilen besitzen. Nun möchte ich aber in jeder Spalte unter der letzten Zeile die Werte aller darüberliegenden Zeilen summieren lassen.

Ich habe bereits ein Makro, das die Zeilen zählen kann. Doch leider komme ich damit nicht voran, da ich am Ende nicht nur die Ergebnissumme in der Zelle stehen haben möchte, sondern auch die Funktion.

Es kann nämlich sein, dass nachträglich noch Werte geändert werden müssen.

Mein momentaner Code sieht so aus:


'Zeilen zählen
Dim zeilen As Integer
Range("I1").Select
zeilen = Selection.CurrentRegion.Rows.Count

'Summenfunktion einbauen
Cells(zeilen + 1, 9).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-27]C:R[-1]C)"


Allerdings habe ich hier als zu summierenden Bereich einen festen Wert. Dieser muss aber variabel sein, da ja die Zeilenanzahl nicht immer gleich ist.

Falls noch fragen sind, einfach hier posten!

Vielen Dank im voraus!

Sebastian Schäfer

PS.: Sorry für die "\"...ich habe keine Ahnung, wie ich die weg bekommen kann. Ich hoffe, das stört nicht allzu sehr
Mitglied: 8644
28.08.2006 um 15:28 Uhr
Hi,

versuchs mal so:

01.
Dim zeilen As Integer 
02.
 
03.
    zeilen = Range("I65536").End(xlUp).Row 
04.
    Range("I65536").End(xlUp).Offset(1, 0).Select 
05.
    ActiveCell.Value = "=SUM(I1:I" + CStr(zeilen) + ")"
Psycho
Bitte warten ..
Mitglied: sejosc
29.08.2006 um 11:52 Uhr
Vielen Dank!

Genau das habe ich gesucht, funktioniert wunderbar!

Gruß,

Sebastian Schäfer
Bitte warten ..
Ähnliche Inhalte
Neue Wissensbeiträge
Google Android

Cyanogenmod alternative Downloadquelle

(5)

Tipp von Lochkartenstanzer zum Thema Google Android ...

Batch & Shell

Batch als Dienst bei Systemstart ohne Anmeldung ausführen

(5)

Tipp von tralveller zum Thema Batch & Shell ...

Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Statische Routen mit Shorewall, ISC-DHCP Server konfigurieren für Android Devices (24)

Frage von terminator zum Thema LAN, WAN, Wireless ...

Server
gelöst Wie erkennen, dass nur deutsche IPs Zugang zu einer Website haben? (22)

Frage von Coreknabe zum Thema Server ...

Hardware
16-20 Port POE Switch mit VLAN (19)

Frage von thomasreischer zum Thema Hardware ...

Windows Server
Exchange HyperV Prozessorlast (18)

Frage von theoberlin zum Thema Windows Server ...