Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1200to1204
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1200to1204
1200to1204
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

vba summewenn abhängig von Spalten

vba summewenn abhängig von Spalten
Spalten
Hallo Allemiteinander
Stehe auf dem Schlauch. In den Spalten G1: H45 stehen Zahlen oder nichts, diese moechte ich mit VBA summieren wenn in den Spalten M bis Q der Zeile der Wert groesser 0(hier gelb) ist. Bsp. Rot soll nicht mitgezaehlt werden.
Die Eingaben erfolgen ueber UserForm zeilenweise. Ausgabe(hier 16) in MsgBox. Wie stelle ich das am geschicktesten an.
Bin fuer jeden Tip dankbar.
gruss hary
Tabelle1
 GHIJKLMNOPQ
14          23       
2  4              0 
32                  23
42                  12
52              33   
6  6          45     
7                     
8                     
9  waere                 
10  16                 

Tabellendarstellung in Foren Version 5.30


AW: vba summewenn abhängig von Spalten
22.02.2011 13:55:06
Spalten
Hallo harry,
Gibt es in M bis Q nur einen Wert?
Ich würde das über Formel lösen.

AW: vba summewenn abhängig von Spalten
22.02.2011 14:26:59
Spalten
Hallo Hajo
Ja, wenn dann steht entweder in Spalte G oder H eine Zahl und nur in einer der Spalten M bis Q derselben Zeile eine Zahl (Null oder groesser).
Zum besseren verstaendniss:
In Spalten G und H kommt die Achsenzahl von Waggons rein je nach dem ob der Waggon beladen oder leer ist. Diese Achsen(leer und beladen) sollen gezaehlt werden, aber nur wenn in M bis Q ein Wert groesser Null steht.
Also alle leeren und beladenen Achsen zaehlen bei denen ein Wert groesser Null in M bis Q ist.
Von 45 Zeilen sind aber nicht immer alle ausgefuellt.
gruss hary
Anzeige
AW: vba summewenn abhängig von Spalten
22.02.2011 14:35:14
Spalten
Hallo Hary,
per Formel und Hilfsspalte.
Tabelle2
 GHIJKLMNOPQ
14        2323       
2  4      0      0 
32        23        23
42        12        12
52        33    33   
6  6      45  45     
7          0         
8          0         
9  waere      0         
10  1616    0         

verwendete Formeln
Zelle Formel Bereich
L1 =SUMME(M1:Q1) 
L2 =SUMME(M2:Q2) 
L3 =SUMME(M3:Q3) 
L4 =SUMME(M4:Q4) 
L5 =SUMME(M5:Q5) 
L6 =SUMME(M6:Q6) 
L7 =SUMME(M7:Q7) 
L8 =SUMME(M8:Q8) 
L9 =SUMME(M9:Q9) 
I10 =SUMMEWENN(L1:L9;">0";G1:G9)+SUMMEWENN(L1:L9;">0";H1:H9) 
L10 =SUMME(M10:Q10) 

Tabellendarstellung in Foren Version 5.38


Gruß Hajo
Anzeige
AW: vba summewenn abhängig von Spalten
22.02.2011 15:22:33
Spalten
Danke Hajo
versuche es aber trotzdem noch mit Vba. Alleine des lernens Willen.
gruss hary
AW: vba summewenn abhängig von Spalten
22.02.2011 16:03:05
Spalten
so vllt. 
Sub summieren()
Dim i, s As Long
For i = 1 To 45
If Cells(i, 13) > 0 _
Or Cells(i, 14) > 0 _
Or Cells(i, 15) > 0 _
Or Cells(i, 16) > 0 _
Or Cells(i, 17) > 0 Then
s = s + Cells(i, 7) + Cells(i, 8)
End If
Next
End Sub

Gruß
Jochen
@ Jochen
22.02.2011 17:10:06
hary
hallo Jochen
auch Dir Danke. habe mich fuer marc's Code entschieden, nachdem ich meinen fehler behoben habe.
Jetzt wo ich alle Threads gelesen habe, ging der Knoten auf.
gruss hary
Anzeige
AW: @ Jochen
22.02.2011 21:00:33
JoWE
oder so: 
Sub summieren()
Dim i, s As Long
Dim sh As Worksheet
Set sh = ActiveWorkbook.Sheets(1)
For i = 1 To 45
If sh.Range(Cells(i, 13), Cells(i, 17)) _
.Find(0, Lookat:=xlWhole) Is Nothing Then
s = s + WorksheetFunction.Sum(sh.Cells(i, 7), sh.Cells(i, 8))
End If
Next
MsgBox s
End Sub

AW: @ Jochen
23.02.2011 09:06:09
hary
Moin Jochen
nochmal danke. Jetzt wo ich weiss wo der Fehler lag stehen alle Tueren auf. Auch meine eigenen ersten Versuche fruchten.
Fehlerbeschreibung:
Userform mit 20 Textboxen. Ubertragung deren Inhalte(Zahlen oder Buchstaben) mit einer Schleife.
Die 5 Textboxen fuer M bis Q sind auch darin. Da aber nur eine, eine Zahl enthielt und die anderen 4 leer sind kommt der Eintrag der leeren Textboxen als Leerzeichen in die betr. Zellen.
Habe es so geloest:
Zielzelle = Trim(TextBox)
und schon lief es.
gruss hary
Anzeige
Sicher nicht die eleganteste Lösung, aber
22.02.2011 14:13:58
Marc
...die lösung stimmt!
Gruß,Marc
Sub test()
summe = 0
For i = 1 To 45
Set rng = Range("M" & i & ":Q" & i)
For Each nm In rng
If nm.Value > 0 Then
Debug.Print WorksheetFunction.Sum(Cells(i, 7), Cells(i, 8))
summe = summe + WorksheetFunction.Sum(Cells(i, 7), Cells(i, 8))
Exit For
End If
Next nm
Next i
MsgBox summe
End Sub

AW: Sicher nicht die eleganteste Lösung, aber
22.02.2011 15:26:03
hary
Hallo Marc
Danke, liefert aber das falsche Ergebniss. Liegt wahrscheinlich an mir, brauche wohl mal 'ne Pause.
hier mal eine Bsp. Tabelle. Dein Makro ist eingebaut.
https://www.herber.de/bbs/user/73678.xls
gruss hary
Anzeige
zurueck, Fehler gefunden
22.02.2011 15:50:39
hary
Hallo Marc und evtl. Mitleser
hab den Fehler gefunden. Fehler lag im Uebertragungscode. Hatte dort, statt nix zum uebertragen, ein leerzeichen reingebaut.
mach jetzt doch Pause ;-)
gruss hary

312 Forumthreads zu ähnlichen Themen

Syntax für Summe aus mehreren Blättern
friedolin

Hallo Forum,
ich möchte aus mehreren Blättern, die da heißen " 01.01. , 02.01. 03.01. " usw. die Summe der Spalte D40 (immer gleich) in ein neues Blatt ermitteln. Habe schon einiges probiert, aber die Syntax macht Probleme.
diese Formel funktioniert nicht! =Summe(01.01. : 31.01. !D40...
18.08.2008 14:55:54
Thread-ID: 1002612
7 Beiträge
Anzeige
Änderung Zeilen und Spaltenbezug
lass

Hallo, ich habe folgendes Problem.
Ist
(Zeile2/Spalte A2): Auftrag xyz; (Zeile2/Spalte B2):Mitarbeiter 1; (Zeile2/Spalte C2)= Mitarbeiter 2
(Zeile3/Spalte A3): Auftrag xyz; (Zeile3/Spalte B3):Mitarbeiter 3; (Zeile3/Spalte C3)= Mitarbeiter 4
(Zeile4/Spalte A...
15.09.2008 08:29:55
Thread-ID: 1009654
17 Beiträge
Info aus mehreren Spaltenüberschriften entnehmen
mopitz

Hallo,
Da mein Problem etwas komplex ist, füge ich eine Datei zur Veranschaulichung an.:
https://www.herber.de/bbs/user/56058.xls
Ich möchte in der ersten Tabelle zu den Spalte "Kunde"(kommt nur einmal vor) die Technologie reinschreiben lassen. Diese Info erhalte ich aus der "Tabell...
16.10.2008 13:34:19
Thread-ID: 1016847
7 Beiträge
Anzeige
Zählenwenn über mehrere Spalten
Mario

Zählenwenn über mehrere Spalten
Guten Morgen an alle, ich habe einmal ein Problem mit der Funktion "Zählenwenn".
Ich habe ein Tabellenblatt wo in der Spalte "A" verschiedene Jahreszahlen hinterlegt sind
( z.B. 2008 , 2009, usw. ) und in Spalte "D" einige Werte.
Ich möchte z.B....
26.11.2008 09:20:00
Thread-ID: 1027923
3 Beiträge
Zeilen durchsuchen und alle Spalten auslesen.
LOTHARP

Hallo Zusammen,
ich habe eine Tabelle in der ich mir den Maxwert einer bestimmten Zeile wiedergeben lasse mit folgendem MAkro gelöst:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 9 And Target.Row >= 2 And Target.Row
In de...
10.12.2008 11:36:41
Thread-ID: 1031637
4 Beiträge
unerklärliche Spalten- und Zeilenköpfe
Bernhard

Liebe Excel-Fangemeinde,
bei einem Übungsbeispiel einer Schulungsteilnehmerin trat folgendes Phänomen auf (siehe Screenshot):

Auf dem ersten Tabellenblatt wurden einige einfache Formatierungen (unter anderem doppelt unterstrichen, hochgestellt und durchgestrichen) ganz normal über...
15.12.2008 11:58:00
Thread-ID: 1032990
3 Beiträge
SummeWenn mehrere Dateien
Christian

Hallo liebe Com,
ich habe folgendes Problem und gehört das ich hier gute Antworten und Hilfe bekommen kann.
So folgende Aufgabenstellung in meiner Firma:
Auswertung in Excel über 3 Grunddateien mit Daten und die 4 Datei erstelle ich mit Formeln wo ich eine Auswertung bekomme.
Da...
15.12.2008 16:01:00
Thread-ID: 1033077
6 Beiträge
Zeilen und Spalten ausblenden
Andreas

Hi Leute,
Hab folgendes Problem:
Ich hab mehrere Tabellenblätter mit Tabellen, in denen in Abhängigkeit von Einträgen auf einer Übersichtsseite bestimmte Zeilen und Spalten mit einem Makro ausgeblendet werden sollen.
Hier Mein Beispiel-File:
https://www.herber.de/bbs/user/58482...
16.01.2009 15:21:22
Thread-ID: 1040598
8 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
8
16
6
4
2
3
2
5
7
4
2
5
4
4
3
13
4
4
3
2
18
2
9
1