Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1792to1796
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
1792to1796
1792to1796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Wenn zahl in Bereich dann

VBA Wenn zahl in Bereich dann
15.11.2020 15:28:05
Sabbel
Hallo
ich habe einen Bereich Namens "Ausgang" (D20:D90)
Nun möchte ich das per VBA geschaut wird ob der Wert aus Zelle A2 dort vorkommt.
Wenn ja soll das eine wenn nicht was anderes ausgeführt werden.
Kann mir jemand dabei helfen?
LG
Sabbel

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Wenn zahl in Bereich dann
15.11.2020 15:32:54
Hajo_Zi
Hallo Sabel 

If WorksheetFunction.CountIf(Range("D20:D90"), Range("A2")) > 1 Then


AW: VBA Wenn zahl in Bereich dann
15.11.2020 15:53:59
Sabbel
HAllo
Das funktioniert.
Wenn ich im Bereich einer anderen Datei suche funktioniert es nicht.
Ich habe folgendes geschrieben. Aber auch wenn die Nummer im Bereich vorkommt springt Excel immer auf Else 

Set wksDatei = Workbooks("Datei.xlsm").Worksheets("Seite1")
Set wksEingabe = Workbooks("Eingabe.xlsm").Worksheets("Seite1")
If WorksheetFunction.CountIf(wksDatei.Range("D20:D70"), wksEingabe.Range("A2")) > 1 Then
'mach dies
Else
'mach jenes
End if
LG
Sabbel
Anzeige
AW: VBA Wenn zahl in Bereich dann
15.11.2020 15:58:55
Hajo_Zi
Hallo Sabbel ich sehe keinen Fehler.
Ich vermute der Wert aus A2 kommt nicht vor. Ich vermute es ist Text und Du suchst in einen Zahlenspalte.
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
ändern.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
2 Dateien sollte man als ZIP hochladen, damit der Dateiname nicht geändert wird.
Gruß Hajo
Anzeige
AW: Anbei die dateien
15.11.2020 16:52:11
Hajo_Zi
Hallo Sabbel,
ich konnte keinen Grund finden.
Anderer Ansatz. 
Option Explicit
Sub Test()
Dim wksDatei As Worksheet, wksEingabe As Worksheet, RaFound As Range
Set wksDatei = Workbooks("Datei.xlsm").Worksheets("Seite1")
Set wksEingabe = Workbooks("Eingabe.xlsm").Worksheets("Seite1")
With wksDatei
Set RaFound = .Columns(4).Find(wksEingabe.Range("A2"), .Range("D1"), , xlWhole, ,  _
xlNext)
' xlPart enthalten
' xlWhole kompletter Vergleich
If Not RaFound Is Nothing Then
MsgBox RaFound.Address
'mach dies
Else
MsgBox 2
'mach jenes
End If
End With
'    If WorksheetFunction.CountIf(.Range("D20:D70"), wksEingabe.Range("A2")) > 1 Then
'    MsgBox 1
'        'mach dies
'    Else
'    MsgBox 2
'        'mach jenes
'    End If
End Sub
Gruß Hajo
Anzeige
AW: VBA Wenn zahl in Bereich dann
15.11.2020 17:01:21
onur
GRÖSSER NULL STATT 1 !!!
AW: VBA Wenn zahl in Bereich dann
15.11.2020 17:03:09
Hajo_Zi
man sieht den Baum vor lauter Bäumen nicht.
Gruß Hajo

337 Forumthreads zu ähnlichen 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
Anzeige
Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Anzeige
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
8 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
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
Wenn Zelle enthält, dann
Rudolph

Hallo,
ich möchte mit .xls meine Kontodaten auswerten. Die Kontoauszugsdaten stehen in Spalte "D" auf dem Sheet "Kontodaten" Im selben Sheet Spalte "E" steht der Betrag. Das Sheet "Bezüge" enthält Namensfelder (z.B. "Auto" mit einer Auflistung der Tankstellen, KFZ-Versicherung o.ä.; "Lebens...
23.05.2009 14:30:40
Thread-ID: 1076853
5 Beiträge
Wenn Null nach Buchstaben, dann weglassen
mehmet

Guten Tag Forum,
in Spalte Q stehen folgende Werte:
ABX009
THG08
HJG0509
KLU00080
Nun möchte ich gern die Nullen weglassen, die hinter den Buchstaben stehen (incl. Buchstaben).
Das ganze sollte dann so aussehen:
9
8
509
80
Leider finde ich keine g...
13.10.2009 09:26:14
Thread-ID: 1109241
5 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
3
15
5
2
2
7
2
3
4
4
2
6
9
5
10
2
3
3
5
2
3
3
2
3
2