Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
672to676
672to676
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Änderung von Einträgen nach Eingabe

Forumthread: Änderung von Einträgen nach Eingabe

Änderung von Einträgen nach Eingabe
26.09.2005 11:28:16
Einträgen
Hallo,
hatte mich schonmal hier gemeldet, vielleicht hat diesmal jemand eine Idee.
Folgendes, habe in Excel 2002 eine Tabelle, dort befinden sich 8 Spalten. In der 1.Spalte trage ich eine Ziffer von 1-7 ein, in den folgenden 7 spalten werden automatisch Striche gesetzt(Anzahl je nach Ziffer)(BSP: trage ich 3 ein, werden in den ersten 3 spalten je ein Strich gesetzt). Diese Eintragungen müssten auch von Hand abänderbar sein.
Hat dazu jemand ne Lösung?
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Änderung von Einträgen nach Eingabe
26.09.2005 12:25:14
Einträgen
Ich hab ja schonmal so einen kleinen Ansatz:
Als Beispiel:
Public 

Function Druck_setzen(ByVal k As Integer, ByVal j As Integer)
For i = 1 To 14 'Spalten
If k = 7 Then
'die 7 Tagewoche
sp = Chr(65 + i)
Application.Range(sp & j + 3).Value = "x"
ElseIf k = 6 Then
'die 6 Tagewochen
If i = 7 Or i = 14 Then
Else
sp = Chr(65 + i)
Application.Range(sp & j + 3).Value = "x"
End If
ElseIf k = 5 Then
'Die 5 Tagewoche
If i < 6 Or i > 7 And i < 13 Then
sp = Chr(65 + i)
Application.Range(sp & j + 3).Value = "x"
End If
ElseIf k = 3 Then
'Die 3 Tagewoche
If i = 1 Or i = 3 Or i = 5 Or i = 8 Or i = 10 Or i = 12 Then
sp = Chr(65 + i)
Application.Range(sp & j + 3).Value = "x"
End If
ElseIf k = 2 Then
Application.Range("B" & j + 3).Value = "x"
Application.Range("D" & j + 3).Value = "x"
Application.Range("F" & j + 3).Value = "x"
Application.Range("I" & j + 3).Value = "x"
Application.Range("K" & j + 3).Value = "x"
End If
Next i
End Function

Nur wie bekomme ich das hin, das er die Spalte nach Einträgen prüft und dann die Kreuze automatisch setzt?
Anzeige
AW: Änderung von Einträgen nach Eingabe
26.09.2005 14:17:09
Einträgen
Hi,
folgendes ins Modul des Tabellenblattes:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Integer
If Target.Column <> 1 Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
If Target.Value > 7 Then
Application.EnableEvents = False
Target.Value = ""
Application.EnableEvents = True
MsgBox "Bitte max '7' eingeben"
Exit Sub
End If
For a = 2 To Target.Value + 1
Cells(Target.Row, a).Value = "x"
Next a
End Sub

Schönen Gruß,
Andi
Anzeige
AW: Änderung von Einträgen nach Eingabe
26.09.2005 15:25:00
Einträgen
Fantastisch. Klappt sehr gut.
Kann man da eigentlich noch einbauen, das bei 2,3,4 die Kreuze zufällig gesetzt werden?
Vielen vielen Dank schonmal
AW: Änderung von Einträgen nach Eingabe
26.09.2005 16:21:45
Einträgen
Hi,
hab ich das richtig verstanden: bei Eingabe von 2, 3 oder 4 sollen entsprechend 2, 3 oder 4 Kreuzchen zufällig auf die 7 Spalten verteilt werden? Und bei 1, 5, 6 und 7 bleibt alles beim alten?
Eine Art Zufallsverteilung bekommt man mit folgendem Code hin, ob das einer strengen statistischen oder stochastischen Überprüfung standhält kann ich aber leider nicht beurteilen.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Integer
Dim b As Integer
b = 0
If Target.Column <> 1 Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
If Target.Value > 7 Then
Application.EnableEvents = False
Target.Value = ""
Application.EnableEvents = True
MsgBox "Bitte max '7' eingeben"
Exit Sub
End If
Select Case Target.Value
Case 2, 3, 4
For a = 2 To 8
If 8 - a < Target.Value - b Then
Cells(Target.Row, a).Value = "x"
Else
If Rnd() > (1 / 7) * Target.Value Then
Cells(Target.Row, a) = "x"
b = b + 1
End If
End If
If b = Target.Value Then Exit Sub
Next a
Case Else
For a = 2 To Target.Value + 1
Cells(Target.Row, a).Value = "x"
Next a
End Select
End Sub

Schönen Gruß,
Andi
Anzeige
AW: Änderung von Einträgen nach Eingabe
26.09.2005 19:52:24
Einträgen
Du bist mein persönlicher Held *g* Funzt prima.
Thanks
gern geschehen...
26.09.2005 22:55:21
Andi
Danke für die Rückmeldung.
Schönen Gruß,
Andi
AW: gern geschehen...
27.09.2005 15:44:21
frekuz
kleiner Pferdfuss ist allerdings dabei, die Kreuze werden erst gemacht, wenn ich was in die Zelle eintrage. bei ner Kopieraktion dieser Spalte von einem Tabellenblatt ins Andere, zieht die Funktion nicht. Obowhl ja eindeutig ein Change auf diesen Zellen liegt.
Anzeige
;

Forumthreads zu verwandten Themen

Löschen von Zeilen unter 1 Bedingung
Zeilen

Hallo,
ich habe in einer Excel Liste Produkte geführt, die den aktuellen Lagerbestand anzeigen.
Dort werden auch die Produkte aufgeführt, deren Produkte einen Lagerbestand von 0 haben.
Der Lagerbestand wird in Spalte B aufgeführt, die Produkte stehen in Spalte A. Der Datenbereich b...
08.08.2008 20:15:00
Thread-ID: 1000407
5 Beiträge
Öffnen und Schliessen von geschützten ohne Abfrage
geschützten

Hallo Leute,
ich baue ein Berichtswesen in Excel auf. Aufgrund der großen Datenmenge benötige ich zwei Dateien.
- In der Datenbank-Datei (DB.xls) sind die Daten abgespeichert. Diese Datei ist durch Kennwort geschützt, um ein Verändern der Daten durch Unberechtigte zu verhindern.
-...
17.09.2008 14:20:00
Thread-ID: 1010396
6 Beiträge
HTML-Seiten auslesen und in Excel, MySQL usw. absp
annalena

Hallo,
ich habe in der Struktur gleichmäßig, wiederkehrende HTML-Seiten aus einem Bücher-Shop und möchte die Produkt-Daten, statt abzuschreiben, aus den HTML-Seiten auslesen um diese dann in Excel oder einer DB zu speichern. Erlaubnis liegt natürlich vor - ist also kein Datenklau.
Habe...
28.09.2008 18:09:23
Thread-ID: 1012955
2 Beiträge
Herausforderung: Spezialanalyse von Daten (Matrix)
Daten

Hi all,
ich möchte die Anzahl (die Kombination) von Daten in einer Matrix darstellen und irgendwie fehlt mir die zündende Idee dazu (meine Versuche mit Pivottabellen schlugen fehl).
Quelldaten (eine Liste welcher Kunde hat welche Produkte gekauft):
Kunde Produkt
K1 A
K...
17.11.2008 15:13:22
Thread-ID: 1025247
2 Beiträge
Grösse von Änderungsverfolgungstext ändern
Änderungsverfolgungstext

Hallo/helau Excel-Freunde,
Ich (bzw. ein kunde) habe ein kleines Problemchen mit der Änderungsverfolgung in Excel 2003.
Die Änderungsverfolgung wurde per "Extras - Änderungsverfolgung" aktiviert, die Mappe gespeichert.
Gibt man nun in eine Zelle (z.B. in B10) einen Text ein, so wird...
23.02.2009 16:07:26
Thread-ID: 1053135
3 Beiträge
Sortieren in Blöcken von 1 bis 6
1

Hallo!
Habe folgendes Problem welches ich bis jetzt noch nicht gelöst habe:
Tabelle:
A B
1 Wert1
1 Wert2
1 Wert3
1 Wert4
2 Wert5
2 Wert6
2 Wert7
2 Wert8
2 We...
26.02.2009 11:26:24
Thread-ID: 1054286
3 Beiträge
Dynamische Erstellung von Checkboxen in eine Form
Checkboxen

Hallo Excel Gemeinde,
ich möchte gerne je nach Anzahl der Datei in einen Verzeichnis, automatisch
neue Checkboxen in einen Form erzeugen.
Ich habe schon einen kleinen Code der mir die Dateien zählt und dann
eine Checkbox erzeugen soll.
Das Problem im Moment ist , das ich nur...
05.03.2009 15:53:00
Thread-ID: 1056917
4 Beiträge
Fortschrittsbalken in xls x von y
y

Hallo,
ich habe in der Zelle A1 einen MaxWert
In einem anderen Tabellenblatt werden Zeile für Zeile Datensätze aus einer MySQL-DB importiert
Kann ich die Anzahl der importierten Zeilen Zählen und diese prozentual mit meinem MaxWert aus A1 in einem Fortschritsbalken darstellen?
D...
05.03.2009 20:58:11
Thread-ID: 1057025
8 Beiträge
Anzeige
max 1 Zelle von 4 Zellen gültiger Eintrag
4

Hallo zusammen,
wird in einer Zelle von 4 in der Reihe ab Zeile 6 eine 1 eingetragen so sollen die vorhanden Einträge in den Auswahlfeldern A;B;C; und D gelöscht werden!
In den Auswahlfelder darf nur immer ein Eintrag vorliegen!
Es soll damit nur ein "ODER" Eintrag durchgeführt wer...
20.05.2009 19:18:49
Thread-ID: 1076476
7 Beiträge
Anzeige
Autofilter über mehrere Tabellenblätter
Burk

Hallo,
ich habe mehre Blätter in einer Mappe mit jeweils einer großen Liste
Gibt es die Möglichkeit Datensätze mit einem bestimmten Feldeintrag über mehre Blätter hinweg gleichzeitig herauszufiltern, wie es der Autofilter mit einer Tabelle macht?
Vielleicht mit VBA?
Bin für alle...
02.07.2009 11:17:06
Thread-ID: 1085862
5 Beiträge
Anzeige
ComboBox2 abhänging von Auswahl aus ComboBox1
Auswahl

Hallo,
Das Füllen der ComboBox1 krieg ich gerade hin.
Wie gehe ich nun vor wenn ich aus
- ComboBox1 den Eintrag 3 anklicke sich die
- ComboBox2 füllt mit einem definierten Bereich (Range) der aus obigem Eintrag 3 definiert wird?
d.h.
1. Welche Variable oder Output aus...
06.07.2009 13:35:36
Thread-ID: 1086643
3 Beiträge
Systemuhr von Excel umstellen
Excel

Hallo!
Gibt es eine Möglichkeit von Excel aus mit VBA die Systemzeit einzustellen?
Vielen Dank.
LG Stefan
03.08.2009 10:46:02
Thread-ID: 1093148
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige