Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
18.04.2024 08:06:05
Power Query Tabelle aus jeder Spalte erweitern?
18.04.2024 07:35:33
Matrix auslesen und in Liste umwandeln
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1744to1748
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
1744to1748
1744to1748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zählen wenn zur Ausgabe evtl VBA

Zählen wenn zur Ausgabe evtl VBA
18.03.2020 15:02:03
Tobin
Hallo liebe Community,
ich versuche seit mehreren Tagen ein bestimmtes Problem zu lösen, welches sich auf das Tabellenblatt Report 1 bezieht.
Hierbei sollen sich die rot markierten Felder automatisch mit den betreffenden Auftragsnummern (SpalteA) aus dem Blatt Werte füllen. Hiiebei können durchaus bis zu 5 Werte zusammen kommen, welche nacheinander im rot markierten Feld (Report 1) mit Simmikolon getrennt aufgeführt werden sollen. Es geht um die Werte, welche in (Report1) Spalte D gezählt werden.
Liebe Grüße Tobi
Datei da zu groß für Herber:
https://we.tl/t-yPFrlEGlSd

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zählen wenn zur Ausgabe evtl VBA
18.03.2020 16:48:29
Barbara
Hilft das? 

Sub Auftragsnummern()
Dim dDatum  As Date
Dim rZelle  As Range
Dim rEcke   As Range
Dim Werte
Dim i       As Long
With Worksheets("Werte")
Set rEcke = .Range("A4")    'Erste Zelle links oben in "Werte"
Werte = .Range(.Cells(.Rows.Count, rEcke.Column).End(xlUp), .Cells(rEcke.Row, .Columns. _
Count).End(xlToLeft))
End With
For Each rZelle In Range("E15:E19")     'Eventuell anpassen
dDatum = rZelle.Offset(, -3)
For i = 1 To UBound(Werte, 1)
If Werte(i, 2) = "Midoffice" And _
IsDate(Werte(i, 9)) And Werte(i, 9)  dDatum Or Werte(i, 11) = "") Then
rZelle = rZelle & " " & Werte(i, 1)
End If
Next i
Next rZelle
End Sub
LGB
Anzeige
AW: Zählen wenn zur Ausgabe evtl VBA
18.03.2020 18:46:17
Robin
Hallo Barbara,
vielen Dank für deine Mühe. Leider funktioniert es bei mir nicht. Problemarisch ist es auch wenn neue Felder dazukommen, feswegen wäre eine Formel eventuell besser. LG
AW: Zählen wenn zur Ausgabe evtl VBA
18.03.2020 19:43:35
Barbara
Leider kenne ich keine Formel dafür. Du kannst aber auch durch Filter setzen zu den Ergebnissen kommen. Das ist ohne Makro und ohne Formel.
Das Makro berücksichtigt alle "Werte", auch wenn neue dazu kommen.
Was aber nichts nützt, wenn es nicht funktioniert.
Du musst das Blatt "Report 1" offen haben, wenn Du das Makro startest. Falls es dann immer noch nicht geht, kann ich ohne genauere Angaben Deinerseits auch nichts machen.
Anzeige

301 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
In Zahlen umwandeln
fuxl

Ich hab ein AutoOpen Makro in dem ich die Funktion TextinSpalten verwende um den Zelleninhalt in eine Zahl umzuwandeln und die kleinen Dreiecke los zu werden. Das ganze geschieht mit folgender Zeile:
'Tabelle1.Range("H15:H$" & letzteZeile).TextToColumns Destination:=Tabelle1.Range("H15"...
19.11.2008 11:13:06
Thread-ID: 1025937
5 Beiträge
Buchstaben als Ergebnis einer Wenn- Funktion
Mario

Grüßt euch,
ich rätsel gerade, wie sich auch Buchstaben als Ergebnis einer Wenn-Funktion übernehmen lassen.
Meine Formel:
=WENN(Maße!B11=1;Maße!K6)+WENN(Maße!B11=2;Maße!K7)+WENN(Maße!B11=3;Maße!K8)+WENN(Maße!B11=4;Maße!K9) +WENN(Maße!B11=5;Maße!K10)
Stehen in K6, K7,...
21.11.2008 22:21:55
Thread-ID: 1026853
3 Beiträge
Anzeige
Text in Zahlen umwandeln
u_hoernchen

Ich habe eine Spalte in Excel, in der vereinzelt Zellen sind, in denen Zahlen als Text formatiert sind. Da ich diese Zahlen für die weitere Verwendung als Werte haben muss und ich das dann relativ oft umfrickeln muss (ist leider ein Download aus einem Vorprogramm), frage ich mich, ob es ggf. ei...
26.11.2008 11:09:00
Thread-ID: 1027963
4 Beiträge
Datum in Zahl umwandeln
P.Mackes

Hallo,
was ich machen möchte ist folgendes:
ich habe eine Zahl, die ein Datum darstellt, z.B. 20080507. Dabei handelt es sich NICHT um ein Datumsformat, sondern um eine richtige Zahl. Jetzt muss ich davon allerdings 90 Tage abziehen. Also wandle ich mit Date(left...mid...right) das gan...
27.11.2008 00:37:57
Thread-ID: 1028186
3 Beiträge
Zahlen suchen in zwei spalten
Timo

Hallo,
ich habe ein kleines, wahrscheinlich sehr einfaches Problem.
Ich habe sowohl eine Spalte A als auch Spalte B, wo immer sechsstellige Zahlen drin stehen. Jetzt würde ich gern in Spalte C überprüfen lassen, ob die jeweilige Zahl, die in Spalte B steht, auch irgendwo in Spalte A v...
17.12.2008 08:51:00
Thread-ID: 1033514
4 Beiträge
Zahl im Text herausfinden vba
Harald

Hallo im Excelforum,
ich möchte aus einer Zelle in der Text und Zahlen stehen, eine sechstellige Zahl finden deren erste 3 Zahlen immer gleich sind zb 208xxx und das mit vba. In Spalte vier steht der Text und in Spalte 9 sollte dann nur noch die Zahl stehen.
mfg
Harald
30.12.2008 16:07:13
Thread-ID: 1036013
22 Beiträge
ein Format in Zahl umwandeln VBA
Michael

Hallo!
Welche Möglichkeit gibt es über VBA eine Tabelle die ich zugesendet bekomme. Die Werte in Zahlen umzuwandeln. Beispiel
number name___ old__ new Change Change %
500041 system 23.26 23.28 -0.71 -2.45% #WERT!
540014 cpu 69.95 69.99 -0.22 -0.31% #WERT! =F...
29.01.2009 10:37:00
Thread-ID: 1044870
7 Beiträge
Anzeige

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
3
3
4
2
3
3
2
3
21
6
4
14
3
1
6
5
15
3
11
2
4
1
5
16
9