Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
340to344
340to344
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn da ein "x", dann Zellinhalt da hinschreiben

Forumthread: Wenn da ein "x", dann Zellinhalt da hinschreiben

Wenn da ein "x", dann Zellinhalt da hinschreiben
26.11.2003 08:00:07
Abdi
Guten Morgen zusammen,
habe folgenden Code zusammengebastelt.
Was habe ich falsch gemacht. Die Erste Zeile wird gemacht, weiter geht´s nicht mehr. Habe mind. 5 "x" geschriebeen in die Spalte 8. Da sollten doch auch min. 5 Zeilen in meinem Tabellenblatt "Reklamationen" rauskommen..hmmm...schwierig schwierig.
Kann mir jemand Helfen?

Gruß Abdi


Sub Sperrlager()
Dim z As Integer, iRow As Integer, iRowL As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = iRowL To 1 Step -1
If Worksheets("Reklamationen").Cells(iRow, 8) = Then
z = z + 1
Cells(z + 3, 2) = Worksheets("Reklamationen").Cells(iRow, 11).Value
End If
Next iRow
End Sub

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn da ein "x", dann Zellinhalt da hinschreiben
26.11.2003 08:23:48
WernerB.
Hallo Abdi,

ich bin mir nicht sicher, ob ich Dein Makro verstanden habe, aber in Deiner If-Abfrage fragst Du nach gar nichts ?!?
Müsste die Zeile nicht vielleicht so lauten:

If Worksheets("Reklamationen").Cells(iRow, 8) = "x" Then

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).
Anzeige
Richtig...aber funzt trotzdem nicht
26.11.2003 08:29:16
Abdi
Richtig.

Habe ich auch...wahrscheinlich beim reinkopieren vergessen!
Aber trotzdem, macht er mir das nur eine Zeile...dann nicht mehr. Woran kann das liegen??
AW: Richtig...aber funzt trotzdem nicht
26.11.2003 08:41:20
Michael
hi,
wenn du hier:
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
auch die spalte 8 abfragen würdest könnte es möglicherweise funktionieren ;-)

cu Michael
Anzeige
AW: Richtig...aber funzt trotzdem nicht
26.11.2003 08:50:47
Abdi
aha...guter Einwand :-))

Habe es jetzt so gemacht:

iRowL = Worksheets("Reklamationen").Cells(Rows.Count, 1).End(xlUp).Row

Und siehe da...es geht... (mache doch immer wieder die gleichen Fehler...)

Danke für Eure Hilfe
AW: Wenn da ein "x", dann Zellinhalt da hinschreiben
26.11.2003 08:58:53
Bernhard Ringhofer
Hallo Abdi,

verwende folgenden Code:


Sub Sperrlager()
Dim z, iRow, iRowL As Integer, wD, wR As Object
Set wD = Sheets("Daten"): Set wR = Sheets("Reklamationen")
iRowL = wD.Cells(Rows.Count, 11).End(xlUp).Row
For iRow = iRowL To 1 Step -1
If wD.Cells(iRow, 8) = "x" Then
z = z + 1
wR.Cells(z + 3, 2) = wD.Cells(iRow, 11).Value
End If
Next iRow
End Sub
Deine Daten schreibst du in das Tabellenblatt: "Daten" in Spalte 11 und die "x" in
Spalte 8 (ebenfalls im Tabellenblatt: "Daten").
Das Ergebnis erhältst du dann im Tabellenblatt: "Reklamationen" in Spalte 2 ab
inklusive Zeile 4
Gruß
Bernhard

Anzeige

Forumthreads zu verwandten Themen

Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Wenn ComboBox Dann ListBox
sockel939

Hallo Excelfreunde,
habe hier ne Legerverwaltung dessen Code ich gerne um einen Punkt erweitern möchte.
Und zwar soll die TextBox " Lagerbestand" aus der UserForm die Gesamtmenge aus der Tabelle "Lagerstand" wiedergeben in abhängigkeit des Wertes der in der ComboBox "Marke"
eingegeb...
16.10.2008 15:36:46
Thread-ID: 1016894
3 Beiträge
Wenn Eintrag in ListBoxspalte dann Eintrag in lbl
Josef

Guten Morgen!
In eine mehrspaltige ListBox werden eine Menge Datensätze eingelesen.
Ich möchte nun folgendes erreichen:
Wenn ich einen Datensatz in der ListBox markiere oder anklicke und wenn jetzt z.B. in der 2.Spalte in der ListBox ein "J" steht, dann soll ein vordefinierter Text...
29.10.2008 07:57:42
Thread-ID: 1020127
3 Beiträge
Wenn Ordner noch nicht existiert dann MsgBox Meld.
Josef

Hallo!
Ich möchte mit folgendem Code gleich den richtigen Ordner zum aussuchen der Dateien öffnen lassen:
Dim dokname
Dim dokname2
dokname = Range("Tabelle1!D1").Value
dokname2 = Range("Tabelle1!D2").Value
With Application.FileDialog(4)
.InitialFileName = "K:\Allg_da...
04.12.2008 06:21:22
Thread-ID: 1030007
3 Beiträge
Formelproblem "wenn(text - beinhaltet, dann....)
Andi

Hallo Experten,
Ich steh bei folgender Excelformel an.
=WENN(D13=....folgender text beinhaltet ist (AA).....;"True";"false")
Ich würde gerne überprüfen ob im Feld D13 der Text "AA" vorkommt (z.B. Artikel "AA01"), falls dies zutrifft bitte "True" schreiben, ansonsten "false".
Da...
04.12.2008 11:42:00
Thread-ID: 1030117
3 Beiträge
Wenn keine CheckBox aktiviert dann MasgBox
Heinz

Guten abend, Leute im Forum
Ich würde gerne in UF, wenn die CheckBoxen 8,16,32, nicht aktiviert sind, das dann eine
MsgBox "Keine Linie ausgewählt" erscheint.
Könnte mir dazu bitte jemand weiterhelfen.
Danke & Gruß
Heinz
18.01.2009 20:59:21
Thread-ID: 1041266
3 Beiträge
Wenn feste Zeichenfolge in Textbox, dann...
Lenni

Moin Excellianer!
Im Archiv finde ich leider nichts Vergleichbares und mit der InStr-Funktion setze ich mich auch schon bezüglich meiner Fragestellung auseinander. Komme aber leider zu keinen Ergebnissen.
In einem UserForm1 steht in der Textbox1 ein beliebiger Text von beliebiger Länge....
27.04.2009 22:31:44
Thread-ID: 1071497
3 Beiträge
summewenn über Index / Matrix ?
Pascal

Hallo zusamme,
ich stehe zurzeit vor einem kleinen Excelproblemchen.
Ich habe eine Tabelle die in Spalten Monate angeordnet hat (Monate kommen mehrfach vor).
In der Zeilenüberschrift stehen mehrere Prozentuale Werte (Kommen jeweil nur einmal vor)
Nun möchte ich jeweils quasi die...
26.06.2009 13:35:46
Thread-ID: 1084587
2 Beiträge
Anzeige
summe wenn nur text kriterien
ivonne

hallo,
ich sitze schon seit stunden und kapier´s einfach nicht :(
ihr genies könnt mir sicher einen tipp geben - für euch bin ich echt anfänger ;(
ich habe eine riesen exce liste
spalte a steht text spalte b steht text und in spalte g stehen euro werte
ich brauche eine summe...
17.07.2009 14:19:23
Thread-ID: 1089433
17 Beiträge
summenprodukt und zählenwenn?
oli.p

Hallo zusammen.
Seit ca. 2,5h versuche ich mich an einer Formel.
Ich möchte Umfrageergebnisse miteinander verküpfen.
Mit einer Fomel möchte ich folgendes ausgeben:
"Wöchentliche Besucher" denen ein Sport- und Kursangebot wichtig ist "1" und "2".
Meiner Kombination von Summen...
12.08.2009 15:20:00
Thread-ID: 1095340
11 Beiträge
Wenn nicht Spalte X dann Spalte Y
greenhorn

Ich möchte die prozentuale Veränderung von Zahlenwerten gegenüber einem Vergleichszeitraum darstellen.
Die Herausforderung:
Die Werte kommen entweder in [kWh] oder [m³] vor und sind in entsprechen Spalten eingetragen. Die %-uale Veränderung soll aber nur in einer Spalte abgebildet werde...
18.08.2009 16:08:52
Thread-ID: 1096837
7 Beiträge
Zählenwenn externe Daten
Markus

Hallo Leute.
Habe eine Tabelle(A) in der ich die Daten aus verschiedenen anderen ExcelDatein(B) einlese bzw. gleich ein errechne.
Nun habe ich zum beispiel Mittelwerte und Summen aus Zahlenkolonen andere Dateien(B) in A erzeugt, das klappt alles wie es soll. Jetzt brauche ich allerdings...
08.10.2009 12:26:24
Thread-ID: 1108152
5 Beiträge

Beliebteste Forumthreads (12 Monate)

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