Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
440to444
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
440to444
440to444
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

A2<>"",dann I2=1 usw per VBA???

A2<>"",dann I2=1 usw per VBA?
21.06.2004 12:15:51
Peter
Hallo liebe Exceller und -innen,
ich habe folgendes vor und bräuchte dafür nen Code:
Wenn A2 "" dann I2= 1
Wenn A3 "" dann I3= 1
...
Wenn A10 "" dann I10= 2
Wenn A11 "" dann I11= 2
...
Wenn A18 "" dann I18= 3
Wenn A19 "" dann I19= 3
also zu deutsch wenn das entsprechende Feld in Spalte A gefüllt ist dann soll Spalte I die ersten 8 Zeilen mit 1, die nächten 8 Zeilen mit 2....usw gefüllt werden.
Ich krieg den Code net gebacken und bitte um Hilfe
Danke
Peter S.

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: A2<>"",dann I2=1 usw per VBA?
Ulf_MS
Hi Peter,
folgenden Code in die Tabelle in VBA

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If [a2] <> "" Then [i2] = 1
If [a3] <> "" Then [i3] = 1
If [a4] <> "" Then [i4] = 1
If [a5] <> "" Then [i5] = 1
If [a6] <> "" Then [i6] = 1
If [a7] <> "" Then [i7] = 1
If [a8] <> "" Then [i8] = 1
If [a9] <> "" Then [i9] = 1
If [a10] <> "" Then [i10] = 2
If [a11] <> "" Then [i11] = 2
If [a12] <> "" Then [i12] = 2
If [a13] <> "" Then [i13] = 2
If [a14] <> "" Then [i14] = 2
If [a15] <> "" Then [i15] = 2
If [a16] <> "" Then [i16] = 2
If [a17] <> "" Then [i17] = 2
If [a18] <> "" Then [i18] = 3
If [a19] <> "" Then [i19] = 3
If [a20] <> "" Then [i20] = 3
If [a21] <> "" Then [i21] = 3
If [a22] <> "" Then [i22] = 3
If [a23] <> "" Then [i23] = 3
If [a24] <> "" Then [i24] = 3
If [a25] <> "" Then [i25] = 3
If [a2] = "" Then [i2] = ""
If [a3] = "" Then [i3] = ""
If [a4] = "" Then [i4] = ""
If [a5] = "" Then [i5] = ""
If [a6] = "" Then [i6] = ""
If [a7] = "" Then [i7] = ""
If [a8] = "" Then [i8] = ""
If [a9] = "" Then [i9] = ""
If [a10] = "" Then [i10] = ""
If [a11] = "" Then [i11] = ""
If [a12] = "" Then [i12] = ""
If [a13] = "" Then [i13] = ""
If [a14] = "" Then [i14] = ""
If [a15] = "" Then [i15] = ""
If [a16] = "" Then [i16] = ""
If [a17] = "" Then [i17] = ""
If [a18] = "" Then [i18] = ""
If [a19] = "" Then [i19] = ""
If [a20] = "" Then [i20] = ""
If [a21] = "" Then [i21] = ""
If [a22] = "" Then [i22] = ""
If [a23] = "" Then [i23] = ""
If [a24] = "" Then [i24] = ""
If [a25] = "" Then [i25] = ""
End Sub

mfg Ulf_MS
Anzeige
AW: A2<>"",dann I2=1 usw per VBA?
21.06.2004 12:47:12
Peter
Hallo Ulf_MS,
zunächst mal danke....so ist das ganze ausgeschrieben ja....ich dachte aber daran, ob man dies mit dem Einsatz von Variablen nicht wesentlich verkürzen könnte?
Gruß
Peter S.
AW: A2<>"",dann I2=1 usw per VBA?
UDF
Hallo, Peter,
du kannst unter dem Code des Tabellenblatts folgendes Makro zur Vereinfachung schreiben.

Gruss
Markus
AW: A2<>"",dann I2=1 usw per VBA?
Nike
Moin,
oh, da bin ich schon Stunden spaeter drann
und dann hab ich's nicht mal bunt ;-)
Aber wenigstens hatten wir beide ne aehnliche Idee ;-)
Bye
Nike
P.S. Habt ihr eigentlich euer Tool weiterentwickelt, Otto und du?
Anzeige
AW: A2<>"",dann I2=1 usw per VBA?
UDF
Hi Nike,
tja, die beiden sehen sich ja wirklich ziemlich ähnlich. (Bis auf das blaue versteht sich ;-)
Gross weiter entwickelt haben wir nicht mehr.
Kennst das ja mit der Zeit, die man nie hat.
Hoffe euch gehts soweit ganz gut und ansonsten kannst du ja mal wieder was von dir hören lassen.
Gruss
Markus
AW: A2<>"",dann I2=1 usw per VBA?
Nike
Hi Markus,
kommst du zum Treffen beim Hans?
Bye
Nike
AW: A2<>"",dann I2=1 usw per VBA?
UDF
Habe ich heute erst gelesen und wollte das noch mit Karin besprechen.
Mal schaun, lust hätten wir sicher schon.
Gruss
Markus
AW: A2<>"",dann I2=1 usw per VBA?
Nike
Hi,
so?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Target.Value <> "" Then
Target.Offset(0, 8) = Int(Target.Row / 10) + 1
Else
Target.Offset(0, 8) = ""
End If
End If
End Sub

Bye
Nike
Anzeige
Danke Euch....fertiger Code anbei:)
21.06.2004 14:36:25
Peter
Hallo Ihr,
ich danke Euch für Eure Vorschläge.....so wie nachstehend is es wie ich mir das ganze vorstelle:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
For Each rng In Target
If rng.Column = 1 And rng.Row > 1 Then
If IsEmpty(rng) Then
rng.Offset(0, 8).ClearContents
Else
rng.Offset(0, 8) = Int((rng.Row - 2) / 8) + 1
End If
End If
Next rng
End Sub

Nochmals Danke
Peter S.
AW: Danke Euch....fertiger Code anbei:)
UDF
Hallo Peter,
schön, dass du meine kleine Falle mit dem -1 in -2 korrigiert hast. War mir auch noch aufgefallen, da hatte ich allerdings schon auf "Amen" geklickt.
Gruss
Markus
Anzeige
Markus...:))
21.06.2004 14:45:45
Peter
Hallo Markus,
na dann wars ja keine Falle....und durch das Forum un ddie Helfer bin ich wenigstens schon soweit einfach VBA selber erstellen zu können bzw andere auf meine Bedürfnisse abzuändern...
Danke nochmals
Peter S.

300 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Anzeige
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
"Bild von Excel-Kamara" variabel...
Excel-Kamara"

Hi Experten,
einen Bereich (Zellen, Bild, Grafik...) mit der Excel-Kamara "fotografieren" und in eine andere Excelmappe einfügen ist kein Problem.
Bei mir werden Ecxel_Vorlagen ausgefüllt und unter fortlaufender Dateinummer abgespeichert, zB. QR000123, QR000124, QR000125 usw. Alle Datei...
12.08.2008 10:33:28
Thread-ID: 1001116
4 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
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
2
7
2
3
1
7
8
2
3
6
11
5
5
8
15
3
7
4
4
3
2
7
4
3
4