Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

Forumthread: 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.
Anzeige

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
Anzeige
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?
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
Anzeige
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.
Anzeige
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
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.
Anzeige
;

Forumthreads zu verwandten Themen

1 Klick in Excel = Serienbrief (Word)
Marcus

Hallo zusammen,
ich habe da mal wieder ein kleines Problem!
Ich habe eine Exceltabelle mit Kundendaten. Diese muss ich in Einzelfällen anschreiben! Ich habe einen Worddokument, in dass ein paar Daten von einem Kunden eingetragen werden sollen.
Nun meine frage:
Gibt es eine Mögl...
03.09.2008 13:09:49
Thread-ID: 1007086
3 Beiträge
Anzeige
"Wenn Zeit > 17.30 Uhr dann"
Susanne99

Hallo,
wie formuliere und formatiere ich den o.g. Ausdruck als Formel?
Gruß
Susanne
14.09.2008 23:24:58
Thread-ID: 1009640
6 Beiträge
Kann =mid(A1,1,1) nicht mit SVERWEIS verbinden
maxx_1985

Hallo liebe Excelexperten,
mein Problem:
14000 ich mache daraus eine 1. Mit der Formel =(A1,1,1)
Diese 1 steht nun in B1. Jetzt moechte ich mich darauf beziehen und eine IF/THEN Formel einbauen. Excel macht das aber nicht. Nur wenn ich in B1 die 1 MANEULL reinschreibe, greift meine...
07.11.2008 18:46:00
Thread-ID: 1022785
5 Beiträge
VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
Anzeige
select range if cellvalue =1
patrick

Hallo ich hab wieder eine frage an die excel und VBA profis:
ich möchte gerne ein makro dass mir einen bereich markiert wenn in einer bestimmten spalte ein bestimmter wert drin steht.
dh: zb:
wenn in einer zelle der spalte C85 eine "1" steht dann markiere den bereich B85:J85 oder w...
04.03.2009 11:16:37
Thread-ID: 1056258
5 Beiträge
Anzeige
ActiveSheet.CircleInvalid = null dann makro
Benjamin

hallo zusammen,
ich habe folgendes problem.
ich habe ein excel sheet mit mehren datenüberprüfungen versehen. Also z.B. in einer Spalte darf nur Datum grösser heute eingegeben werden, in einer anderen darf die maximale Textlänge 5 Zeichen nicht übertragen usw.
Das funktioniert auch g...
07.03.2009 17:23:28
Thread-ID: 1057716
6 Beiträge
Anzeige
select range if cellvalue =1
patrick

Hallo ich hab wieder eine frage an die excel und VBA profis:
ich möchte gerne ein makro dass mir einen bereich markiert wenn in einer bestimmten spalte ein bestimmter wert drin steht.
dh: zb:
wenn in einer zelle der spalte C85 eine "1" steht dann markiere den bereich B85:J85 oder we...
09.03.2009 15:47:00
Thread-ID: 1058202
13 Beiträge
Sortierung mit Kopfzeie trotz "Header:=x1Guess"
ROlf

Hallo Leutz,
Folgender Codeauschnitt:
Columns("A:AP").EntireColumn.AutoFit
'************************
'TABELLE SORTIEREN
'************************
If Hauptmenu.OptionButton4.Value = True Then
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("D2") _
09.04.2009 12:57:22
Thread-ID: 1067975
8 Beiträge
wenn Änderung Zellinhalt dann Macro
Joachim

Hallo,
ich hab 2 Tabellen (Eintrag und Statistik) und 2 Diagramme (Fehler und TelFax). Bei der Tabelle Statistik habe ich folgenden Code eingetragen:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D2:G30")) Is Nothing Then Call DiaFehlerFormat Call...
07.05.2009 14:02:59
Thread-ID: 1073604
12 Beiträge
Wert aus Zelle x in Zelle y, wenn Zelle Y =1
Wolfgang

Liebe Profis
In folgender Prozedur
Private Sub CommandButton1_Click() Range("A23:A37").Select Selection.TextToColumns Destination:=Range("A23"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=Fal...
08.05.2009 11:11:52
Thread-ID: 1073830
3 Beiträge
Werte von Zelle x übernehmen, wenn Zellwert=1
Zelle

Liebe Profis
In folgender Prozedur
Private Sub CommandButton1_Click() Range("A23:A37").Select Selection.TextToColumns Destination:=Range("A23"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=Fal...
11.05.2009 15:53:03
Thread-ID: 1074391
4 Beiträge
Wenn "Test" in I19:I23 dann Wert kopieren
Heinz

Guten morgen Leute
Habe ein Problem,deren Lösung ich nicht weiterkomme.
ZB. In Sheet "Zuschauer"A2 =WENN('R1'!$I19:$I23="Test";R1'!$j$19
In Sheet "Zuschauer" geht es bis 'R36' A2 - A3 - A4 usw. es geht um ein Diagramm für Zuschauer bei
HEIMSPIELEN.
Wenn zB. 'R3 "Test" i...
11.07.2009 10:40:54
Thread-ID: 1087834
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige