Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1280to1284
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
1280to1284
1280to1284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen mit Wert aus Textbox

Suchen mit Wert aus Textbox
30.09.2012 11:09:01
fritz
Schönen Sonntag zusammen,
also ich habe in einer UserForm1 die Textbox1 in diese gebe ich einen Wert ein
Es ist immer eine Zahlenkombination welche mit den Buchstaben OS verknüft wird und über eine 'Schaltfäche in eine bestimmte Zelle übertragen wird. Das funktioniert auch alles einwandfrei.
Ich würde aber jetzt vorm Übertragen noch überprüfen ob sich dieser Wert im Bereich AJ8:FW68 schon befindet. Wenn ja soll eine MSGBox mit "Wert schon enthalten" angezeigt werden
Danke

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen mit Wert aus Textbox
30.09.2012 11:11:00
Hajo_Zi
Hallo Fritz,
benutze Find()
Dim RaFound As Range
' Spalte A
Set RaFound = Range("A1:A" & Rows.Count).Find("", , , xlPart, , xlNext)
If Not RaFound Is Nothing Then
MsgBox RaFound.Address
End If
Set RaFound = Nothing

AW: Suchen mit Wert aus Textbox
30.09.2012 11:14:21
Josef

Hallo Fritz,
freihändig.

If Application.CountIf(Sheets("Tabellenname").Range("AJ8:FW68"), TextBox1 & "OS") > 0 Then
MsgBox "Gibts schon!"
End If


« Gruß Sepp »

Anzeige
AW: Suchen mit Wert aus Textbox
30.09.2012 11:29:10
fritz
Danke für die Antworten,
Josef ich habe den Code eingefügt aber er führt keine Suche durch bzw findet nichts?

AW: Suchen mit Wert aus Textbox
30.09.2012 11:31:24
Josef

Hallo Fritz,
und woher soll ich wissen was nicht passt?
Poste den gesamten Code zum eintragen der Daten oder lade die Datei hoch.

« Gruß Sepp »

Anzeige
AW: Suchen mit Wert aus Textbox
30.09.2012 11:39:19
fritz
Hallo Sepp,
das ist mein Code welcher mit einer Schaltfläche in der Userform ausgelöst wird
Private Sub CommandButton1_Click()
Dim strActiveCell As String
If TextBox1.Value = "" Then
MsgBox "Warennummer eingeben"
Exit Sub
End If
If TextBox2.Value = "" Then
MsgBox "Anzahl der Kunden eingeben"
Exit Sub
End If
If Application.CountIf(Sheets("15Minuten").Range("AJ8:FW68"), TextBox1 & "OS") > 0 Then
MsgBox "Gibts schon!"
End If
ActiveCell = "OS" & " " & TextBox1
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox2
strActiveCell = ActiveCell.Address
Range("AJ4").Select
Selection.Copy
Range(strActiveCell).Activate
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlMultiply, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
TextBox1.Value = ""
TextBox2.Value = ""
ActiveCell.Offset(1, -1).Select
End Sub

Anzeige
AW: Suchen mit Wert aus Textbox
30.09.2012 11:53:48
Josef

Hallo Fritz,
wenn du dich mehr mit VBA beschäftigen willst, würde ich schauen, das du von den ganzen .Select und .Activate wegkommst.
Und das "OS" vor dem Text aus TextBox1 steht, hätte dir auch auffallen und du hättest den Code entsprechend anpassen können.
Private Sub CommandButton1_Click()
  Dim strActiveCell As String
  
  If TextBox1.Value = "" Then
    MsgBox "Warennummer eingeben"
    Exit Sub
  End If
  
  If TextBox2.Value = "" Then
    MsgBox "Anzahl der Kunden eingeben"
    Exit Sub
  End If
  
  If Application.CountIf(Sheets("15Minuten").Range("AJ8:FW68"), "OS " & TextBox1) > 0 Then
    MsgBox "Gibts schon!"
  Else
    ActiveCell = "OS " & TextBox1
    ActiveCell.Offset(0, 1).Select
    ActiveCell = TextBox2
    strActiveCell = ActiveCell.Address
  End If
  
  
  
  Range("AJ4").Select
  Selection.Copy
  Range(strActiveCell).Activate
  
  Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
    xlMultiply, SkipBlanks:=False, Transpose:=False
  Application.CutCopyMode = False
  
  TextBox1.Value = ""
  TextBox2.Value = ""
  
  ActiveCell.Offset(1, -1).Select
  
End Sub


« Gruß Sepp »

Anzeige
AW: Suchen mit Wert aus Textbox
30.09.2012 12:16:34
fritz
Danke Josef du bist ein Genie!!!!

AW: Suchen mit Wert aus Textbox
10.10.2012 09:26:46
Hans
sorry, test

308 Forumthreads zu ähnlichen Themen

Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Anzeige
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Datensätze aus Blatt auslesen
bully

Hallo Leute,
ich möchte mit VBA aus dem Blatt2 ganze Datenzeilen auslesen, wenn diese in der Spalte3 den Wert enthalten, den ich in Blatt3 in Zelle F6 vorgebe. Die Datenzeilen sollen dann in Blatt3 ab Zeile14 eingefügt werden.
Nach etlichen Selbstversuchen gebe ich jetzt auf.
Gruss...
02.09.2008 15:55:27
Thread-ID: 1006842
6 Beiträge
Anzeige
Werte aus Matrix auslesen j. mit richtiger Bsp.
trebor-robert

Hallo,
wie kann ich aus einer Matrix, die in einer separaten Arbeitsmappe (im Beispiel der Bereich Arbeitsmappe "B") liegt, den entsprechenden EUR Betrag auslesen, wenn in der Spalte "C" untereinander in den einzelnen Zeilen die Bemessungsgrösse 1 steht (in diesem Fall qm) und in den Spalt...
05.09.2008 13:33:00
Thread-ID: 1007667
5 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Werte aus anderem Blatt für ComboBox auslesen
mtremer

Hallo Excel-Freunde,
ich glaub ich werde verrückt.
Meine ComboBox füllt sich nicht mehr. Ich versuche den Code so zu ändern, dass die Quelle für die ComboBox wo anders stehen kann. Im folgenden Code müssen die Werte in der Spalte A der Tabelle1 stehen.
Private Sub Worksheet_Change...
17.09.2008 13:17:34
Thread-ID: 1010349
11 Beiträge
Wert innerhalb Array suchen
David

Hallo VBAler,
wenn ich ein Array in der Form
treffer_n(n)
habe, gibt es da eine schnelle und einfache Möglichkeit zu prüfen, ob ein bestimmter Wert in diesem Array vorhanden ist, oder muss ich alle Werte per Schleife einzeln prüfen lassen?
Gruß
David
19.09.2008 08:48:14
Thread-ID: 1010894
3 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

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
2
5
3
4
7
10
2
4
2
4
4
3
6
1
3
3
6
6
1
4
2
2
4