Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
764to768
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
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn in Spalte rechts von meiner Position ....

Wenn in Spalte rechts von meiner Position ....
24.05.2006 13:01:37
meiner
Hallo Zusammen,
ich habe einen laufenden VBA Code, bei dem ich letztendlich irgendeine Zelle markiert habe, nachdem der Code gelaufen ist (z. B. C1 oder F5)
Ich möchte diesen nun erweitern und anschließend noch folgendes einbauen:
Wenn rechts von mir leer ist, mache nichts (auch leer), wenn in der Zelle rechts von mir eine der Zahlen von 40 bis 99 stehen, schreibe in die Zelle, in der ich bin eine 19, wenn rechts von mir eine der Zahlen 00 bis 39 stehen, dann in die Zelle, in der ich mich befinde bitte eine 20 (=Jahrhundert).
Der Code sollte so lange laufen, bis rechts von mir keine Zahlen mehr stehen.
Wer kann mir helfen?
Danke im vorause - Erwin

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn in Spalte rechts von meiner Position ....
24.05.2006 16:48:08
meiner
Hallo Erwin,
die rechte Nachbarzelle der aktiven Zelle kannst du folgendermaßen prüfen:

Sub Test()
If Not IsEmpty(ActiveCell.Offset(0, 1)) Then
Select Case ActiveCell.Offset(0, 1).Value
'    Select Case Val(ActiveCell.Offset(0, 1).Value) ' Falls 00 bis 99 als Text in Nachbarzelle stehen
Case 0 To 39
ActiveCell.Value = 20
Case 40 To 99
ActiveCell.Value = 19
Case Else
' Do nothing
End Select
End If
End Sub

Nicht ganz verstandne habe ich diesen Satz:
"Der Code sollte so lange laufen, bis rechts von mir keine Zahlen mehr stehen."
Heißt das, dass mehrere Zellen rechts von der aktiven Zelle überprüft werden sollen, bis nichts mehr kommt?
Das könnte man in etwa so machen:

Sub Test()
I = 1
Do Until ActiveCell.Column + I = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count
If Not IsEmpty(ActiveCell.Offset(0, I)) Then
Select Case ActiveCell.Offset(0, I).Value
'      Select Case Val(ActiveCell.Offset(0, I).Value) ' Falls 00 bis 99 als Text in Nachbarzelle stehen
Case 0 To 39
ActiveCell.Value = 20
Case 40 To 99
ActiveCell.Value = 19
Case Else
' Do nothing
End Select
End If
I = I + 1
Loop
End Sub

Gruß
Franz
Anzeige
AW: Wenn in Spalte rechts von meiner Position ....
24.05.2006 17:02:14
meiner
Hallo Franz,
der 1. Code ist genau der, den ich brauche - super.
Jetzt müsste der nur noch so angepasst werden, dass er nicht nur die erste Zelle abarbeitet sondern weiterläuft.
So war das auch gemeint, als ich schrieb, ... bis nichts mehr kommt...
(wenn ich in A1 stehe prüft er jetzt nur B1; er soll aber auch B2, B3, ... prüfen, ob dort ein Wert drin steht - und dann auch abarbeiten bis in Spalte B nichts mehr kommt).
Vielleicht kann man das noch einbauen?
Danke - Erwin
AW: Wenn in Spalte rechts von meiner Position ....
24.05.2006 18:08:44
meiner
Hallo Erwin,
ohne jetzt deinen restlichen Code zu kennen könnte ich folgendes vorschlagen. Auch wenn er die von mir nicht sehr geliebten Select-Anweisungen enthält. 

Sub Test()
Do
If Not IsEmpty(ActiveCell.Offset(0, 1)) Then
Select Case ActiveCell.Offset(0, 1).Value
'      Select Case Val(ActiveCell.Offset(0, 1).Value) ' Falls 00 bis 99 als Text in Nachbarzelle stehen
Case 0 To 39
ActiveCell.Value = 20
Case 40 To 99
ActiveCell.Value = 19
Case Else
' Do nothing
End Select
End If
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.Row = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
End Sub

Gruß
Franz
Anzeige
AW: Wenn in Spalte rechts von meiner Position ....
24.05.2006 21:44:24
meiner
Hallo Franz,
super - herzlichen Dank - so klappts wunderbar
Grüße - Erwin

300 Forumthreads zu ähnlichen Themen

Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzeige
Letzen wert in Zeile(nicht Spalte)
hary

Nabend alle miteinander
In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.
Case Is = Cells...
28.08.2008 21:25:00
Thread-ID: 1005592
5 Beiträge
wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Anzeige
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Wenn Wert weniger, in anderer Zelle um d.Wert erh.
Josef

Guten Morgen!
Ich habe z.B. in der Zelle A1 den Wert 5 stehen. Wird dieser Wert z.B. um die Zahl 3 verringert, dann soll der vorhandene Wert in der Zelle B1 um die Zahl 3 erhöht werden. Wie würde hier bitte eine Formellösung dafür lauten?
Danke
Josef
09.09.2008 05:49:00
Thread-ID: 1008272
2 Beiträge
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 12:52:00
Thread-ID: 1014231
5 Beiträge
Werte löschen beim Eintrag in andere Spalte ?
Selma

Hallo Leute,
wie kann ich folgendes ab Zeile 5 für aktive Zeile über VBA erreichen:
1. Wird der Wert in aktive Zeile in Spalte H eingetragen, dann sollen die Werte in Zellen der Spalte D und E gelöscht werden.
2. Wird der Wert in aktive Zeile in Splate D oder E eingetragen, dann sol...
12.10.2008 17:05:00
Thread-ID: 1015877
5 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 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
1
8
4
7
7
2
1
4
4
2
2
3
4
2
2
1
2
5
5
2
33
3
5
1
3