Collapse column

Beiträge anzeigen

Diese Sektion erlaubt es dir alle Beiträge dieses Mitglieds zu sehen. Beachte, dass du nur solche Beiträge sehen kannst, zu denen du auch Zugriffsrechte hast.


Nachrichten - Zahlendreher

Seiten: [1]
1
Excel / Antw: Office 2013: Bitte um VBA umzuschreiben
« am: Dezember 25, 2015, 14:53:19 Nachmittag »
Hi

Kann es sein das das Macro Probleme hat innerhalb eines Netzwerks? Bei der Zeile wo das Verzeichnis reinkommt wo sich die Exel dateien befinden. Meine Adresse die ich angeben müsste fängt nich klasisch mit C: an sondern mit einer Domäne "bwdohm". Nun findet das Macro die Dateien nicht und infolgedessen auch keine summierung.

Gibts da eine Möglichkeit?.  ???


2
Excel / Antw: Office 2013: Bitte um VBA umzuschreiben
« am: Dezember 18, 2015, 17:15:15 Nachmittag »
Danke aber so läufts nich. :(

3
Excel / Office 2013: Bitte um VBA umzuschreiben
« am: Dezember 18, 2015, 15:21:57 Nachmittag »
Hallo Das ist ein Code den ich benutzen will um aus mehreren Exeldateien einen Wert auszulesen und in der aktiven geöffneten Arbeitsmappe addiert anzeigen zu lassen.

Nun bitte ich euch Exelfreaks  :P darum diesen Code so umzuschreiben das er den Zahlenwert anstatt in einer Messsagebox in einer von mir definierten zelle ausgibt.

Machbar?

mfg

Code: MySQL
  1. Sub WerteausDateien_addieren()
  2.  
  3.   ' Werte einer Zelle aus allen Dateien
  4.  ' eines Verzeichnisses addieren und ausgeben
  5.   ' Quelle: Herbert Taferner
  6.  
  7.  Dim Dateiname As String
  8.  Dim Verz As String
  9.  Dim dat As String
  10.  Dim Blatt As String
  11.  Dim Zelle As String
  12.  Dim Gesamt As Variant
  13.  Dim Wert As Variant
  14.   Application.ScreenUpdating = False
  15.  
  16.  Zelle = "A16"                 'Hier Zelle angeben
  17.   Blatt = "Tabelle1"            'Hier Tabelle angeben
  18.  Verz = "C:\Privat\Excel\"     'Hier Verzeichnis angeben
  19.   dat = "*.xls"                 'Hier Datei angeben
  20.  
  21.  If Right(Verz, 1) <> "\" Then Verz = Verz & "\"
  22.  
  23.  Dateiname = Dir$(Verz & dat)
  24.  Do While Dateiname <> ""
  25.   Wert = ExecuteExcel4Macro("'" & Verz & "[" & _
  26.               Dateiname & "]" & Blatt & "'!" & _
  27.               Range(Zelle).Range("A1").Address(, , xlR1C1))
  28.    Gesamt = Gesamt + Wert
  29.  Dateiname = Dir$()
  30.  Loop
  31.   Application.ScreenUpdating = True
  32.  MsgBox "Summe " & Gesamt
  33.  
  34. End Sub

4
Excel / Antw:Office 2013: Zu wenig Stapelspeicher
« am: Dezember 17, 2015, 09:51:56 Vormittag »
Den Bereich mein ich . Habs aber rausbekommen. Läuft so super ;D

5
Excel / Antw:Office 2013: Zu wenig Stapelspeicher
« am: Dezember 15, 2015, 11:54:31 Vormittag »
 :D Danke läuft jetzt aufm Läpi auch ohne Sanduhr. Ich werds heut auf der Arbeit umschreiben und dann morgen berichten.

Kann sein das ich noch die Eingabemaske erweitern muss. Kannste mir dann noch die Stellen markieren die ich umändern muss?

mfg

6
Excel / Office 2013: Zu wenig Stapelspeicher
« am: Dezember 15, 2015, 10:12:37 Vormittag »
Habe folgenden VBACode:

Zitat
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$C$9" Then
      Application.EnableEvents = False
      Range("D9") = Range("D9") + Target
      Target.ClearContents
      Application.EnableEvents = True
   End If
   If Target.Address = "$C$10" Then
      Application.EnableEvents = False
      Range("D10") = Range("D10") + Target
      Target.ClearContents
      Application.EnableEvents = True
   End If
   If Target.Address = "$C$11" Then
      Application.EnableEvents = True
      Range("D11") = Range("D11") + Target
      Target.ClearContents
      Application.EnableEvents = True
   End If
   If Target.Address = "$C$12" Then
      Application.EnableEvents = True
      Range("D12") = Range("D12") + Target
      Target.ClearContents
      Application.EnableEvents = True
   End If
   If Target.Address = "$C$13" Then
      Application.EnableEvents = True
      Range("D13") = Range("D13") + Target
      Target.ClearContents
      Application.EnableEvents = True
   End If
   If Target.Address = "$C$14" Then
      Application.EnableEvents = True
      Range("D14") = Range("D14") + Target
      Target.ClearContents
      Application.EnableEvents = True
   End If
End Sub


Das Problem ist das , sobald ich die Eingaben mache , nach der dritten Eingabe die Fehlermeldung mit zu wenig Stapelspeicher kommt.

Bei meinem Läppi laufts durch zwar mit Sanduhr zwischendurch aber geht. Bloß auf der Arbeit nicht  :o

Die zusammengezählten Zahlen werden auch noch in ein Diagramm übergeben .

7
Excel / Antw:Office 2013: Zellen aufadieren
« am: Dezember 12, 2015, 11:44:24 Vormittag »
siehe Anhang . Hoffe das ist verständlicher . Kann die beiden Zellen nicht miteinander verrechnen ohne den Zirkelbezug zu bekommen . Und wenn ich in den Optionen die Itirative Berechnung aktiviere verechnet er alle Zellen bei Eingabe in nur einer rechten Zelle  >:(

8
Excel / Office 2013: Zellen aufadieren
« am: Dezember 11, 2015, 17:57:33 Nachmittag »
Hallo Community.

Bin noch recht neu hier und nun mein erster Beitrag mit einer Frage an der ich schon ne weile rumtüftele.

Folgendes Fallbeispiel:

Habe in A1 ein Zahlenwert in A2 und auch in A3 . Von diesen Werten beziehe ich die Wertw um ein Diagramm darzustellen.

Nun habe ich in B1,B2 und B3 zellen stehen in dennen ich immer wieder Zahlen eingeben möchte .

Jetzt die Aufgabe:

Die eingebene zahl in B1 , B2 und B3 sollen auf die jeweilige Nachbarzelle A1 , A2 und A3 aufaddiert werden sodass sich auch das Diagramm aktualiesiert. Und die eingaben sollen individuell als Zahlenwert möglich sein und nur auf die jeweilige Nachbarzelle addiert werden. Die Zahlenwerte in A1,A2 und A3 sollen auch bestehen bleiben und nich zurückgesetzt werden.

Die Zellen in A1, A2 und A3 sollen für mein fertiges Projekt auch Namen bekommen aber mir gehts jetzt erstmal nur um die Rechenlösung

danke schonmal




Seiten: [1]

Cookies erleichtern die Bereitstellung unserer Dienste. Mit der Bestätigung erklären Sie sich mit der Verwendung von Cookies einverstanden. Learn more