Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1100to1104
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
1100to1104
1100to1104
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten Situationsbedingt in Statistik übernehmen

Daten Situationsbedingt in Statistik übernehmen
Stephan
Hallo Profis,
habe nun ein größeres Problem, aber für ein Profi bestimmt eine Kleinigkeit.
Siehe Beispieldatei:

Die Datei https://www.herber.de/bbs/user/64462.xls wurde aus Datenschutzgründen gelöscht


In der Spalte B3:B18 werden nacheinander unterschiedliche Zahlen eingegeben. Nach klick auf den Button "neu" soll der Zustand in den Spalten M:S abgespeichert werden. In diesem Beispiel soll der Wert in der Zeile "3" Spalte "O" um 1 erhöht werden. Die Zeile wird in der Zelle "A11" angegeben.
Wir nun in der Zelle "B15" eine weitere Zahl eingegeben, so soll nach klick auf den Button "neu" der Wert in der Zelle "P3" um ein erhöht werden. Steht zu diesem Zeitpunkt in der Zelle A11 eine "5" so soll der Wert in der Zelle "P5" um eins erhöht werden. usw.
Hat jemand eine Idee?
Gruß
Stephan
AW: Daten Situationsbedingt in Statistik übernehmen
16.09.2009 15:09:40
hary
Hallo Stephan
teste mal dies makro(denm Button zuweisen) bezogen auf Deine Beispielmappe. In die zelle eine Zahl eingeben und ohne die Zelle zu verlassen den Button druecken. 

Sub test()
Dim i As Long
For i = 13 To 19 ' Spalte M bis S
If Cells(ActiveCell.Row, 1).Value = Cells(2, i).Value Then
Cells(Cells(11, 1), i) = Cells(Cells(11, 1), i) + 1
End If
Next
End Sub

Gruss hary
AW: Daten Situationsbedingt in Statistik übernehmen
16.09.2009 15:45:51
Stephan
Hallo Hary,
super besten Dank, leider noch ein kleinen Schönheitsfehler:
nachdem eine Zahl über die Zifferntastatur eingegeben wurde, muß "Enter" gedrückt werden. Die leere Zelle darunter wird aktiviert (ist auch so gewünscht). Doch nun muß ich extra nochmals die Zelle darüber aktivieren und danach auf den Button klicken.
Ich denke man muß einfach vor Ausführung des Codes eine Zelle nach oben, weis aber den Code nicht Hast du eine Lösung?
Anzeige
AW: Daten Situationsbedingt in Statistik übernehmen
16.09.2009 16:01:32
hary
hallo
Das war es ich wusste nicht wie du es eingibst. Mal anders ohne Button druecken. Code in den Code der Tabelle. Der Code wird immer bei Aenderung in Zellen ausgefuehrt. Wobei ich nicht weiss ob es so sein soll oder doch mit Button? 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
If Not Intersect(Target, Range("B12:b18")) Is Nothing Then
For i = 13 To 19 ' Spalte M bis S
If Cells(Target.Row, 1).Value = Cells(2, i).Value Then
Cells(Cells(11, 1), i) = Cells(Cells(11, 1), i) + 1
End If
Next
End If
End Sub

Gruss Hary
Anzeige
AW: Daten Situationsbedingt in Statistik übernehmen
16.09.2009 16:25:11
Stephan
Hallo,
auch gut, doch die Statistik soll erst nach "Button drücken" ausgefüllt werden, eine s.g. Momentaufnahme.
Gruß
Stephan
AW: Daten Situationsbedingt in Statistik übernehmen
16.09.2009 18:22:55
Stephan
Hallo Hary,
also Problem behoben....
setze einfach vorher die Zelle darübr auf aktiv und danach die darunter
Danke für die Lösung
Gruß
Stepahn

302 Forumthreads zu ähnlichen Themen

in Ergebnis einer Formel Text mit ausgeben
Walter

Nochmals Hallo,
leider die Lösung vergessen, wie man in einer Berechnungsformel, nen fest fixierten Text ausgeben kann.
Beispielergebnis: 12 Bananen (12 ist errechnet, Bananen ist der feste Text.
War, glaube ich, ganz einfach :-(((
Danke + Gruß
Walter
23.10.2008 23:15:29
Thread-ID: 1018831
7 Beiträge
Anzeige
Formel komplett aus anderem Blatt übernehmen
martin

Hallo.
In verschiedenen Arbeitsbättern befinden sich exakt die selben Rechnungen, jeweils mit unterschiedlichen Werten.
In einem Master-Blatt möchte ich gerne die Zeilen und Spaltenbeschriftungen, sowie die zu verwenden formeln definieren.
Könnt Ihr mir Tipps geben, wo ich dazu was...
18.06.2009 14:56:18
Thread-ID: 1082618
2 Beiträge
Abfrage Schliessen Userform über Kreuz
Roland

Hallo fleissige VBA-Helfer
Ich habe ein Problem, bei dem ich im Moment nicht durchblicke.
Ausgangslage:
Ein Code "Test0815" in einem normalen Modul
Eine Userform "Userform1"
Frage:
Wie kann ich im Test0815 abfragen ob die Userform1 übers Kreuz oben rechts verlassen wurde...
19.06.2009 11:50:51
Thread-ID: 1082841
5 Beiträge
Anzeige
Makroauführung über Menü verhindern
Heiko

hallo alle,
ich lasse über subs bereiche meines tabellenbattes sperren/ bzw. entsperren. das funktioniert auch ganz gut, nur besteht für den anwender über extras - makro ausführen noch die möglichkeit das entsperr-sub ausführen zu lassen.
wie kann ich das verhindern?
heiko
29.06.2009 10:01:13
Thread-ID: 1085027
3 Beiträge
VBA-Makro zum Datenübertrag zwischen Excel-Sheets
mctapt

Liebe VBA-Freunde,
ich muss auf der Arbeit ein Marko programmieren, mit dem sich Inhalte eines Sheets automatische beim öffnen der Datei in ein anderes übertragen lassen.
Die Idee íst dahinter:
Mein Chef will als Kontrolle der Berater sehen, mit wem sie so innerhalb der Woche te...
29.06.2009 21:19:08
Thread-ID: 1085193
7 Beiträge
Unterscheidung Drucken über Menü und Sofortdruck
Rolli_69

Hallo Forum,
ich hoffe einer von Euch kann mir helfen.
Ich habe in VBA den Druckenbefehl abgefangen, um farblich hinterlegte Eingabefelder vor dem Druck
wieder farblos zu machen und anschliessend wieder farblich zu hinterlegen.
Das funzt auch, nur möchte ich jetzt noch dem User...
01.07.2009 17:53:42
Thread-ID: 1085798
4 Beiträge
CheckBox in liste übertragen
Werner

Hallo zusammen,
ich möchte Daten von einer UserForm in ein Tabellenblatt untereinander schreiben, das klapt auch.
Bei der CheckBox1 habe ich ein problem. Einer bestimmten Zelle kann ich es zuordnen, es soll aber mit in die liste geschrieben werden, wie muss der Code aussehen?
Dim ZE...
06.07.2009 11:46:47
Thread-ID: 1086568
3 Beiträge
Verknüpfungen über DropDown ändern
Tanja

Hallöchen zusammen,
ich bin's nochmal :)
Ich habe nun ein erneutes Problem:
Ich habe Excel-Dateien, die ich in mein Excel-Sheet verknüpft habe (über Index und Vergleich).
Nun möchte ich diesen Dateien gerne ein bestimmtes Datum zuordnen und (habe mir über AutoFilter ein DropDown...
07.07.2009 16:24:18
Thread-ID: 1086979
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
6
4
1
4
7
2
6
3
2
6
1
1
6
1
1
3
2
6
10
2
9
6
2
10
2