Thema Datum  Von Nutzer Rating
Antwort
Rot Der nächst gelegene Wert suchen und...
 23.01.2019 14:34:58 Harry
Solved
23.01.2019 16:21:52 amicro2000
NotSolved
23.01.2019 17:05:02 Harry
NotSolved

Ansicht des Beitrags:
Von:
Harry		 Datum:
23.01.2019 14:34:58		 Views:
1139		 Rating:
     
Antwort:
 Nein
Thema:
Der nächst gelegene Wert suchen und...

Hallo zusammen

ich bin dabei eine Excel Tabelle zu gestallten welche etwas VBA beinhalten soll.

Folgende:

Tabellenblatt "Seite1" hat in der Spalte B Zahlen (nur Ganzzahlen) und/oder Leere Zellen. Theoretisch könnten auch Wörter vorhanden sein, aber eher unwarscheinlich.

 

Via UserForm wird nun eine Zahl eingegeben (Wert in der Varible "NeueNummer"

Ich möchte nun die Zeile herausfinden in welcher die eingegeben Zahl am nächsten ist.

Danach möchte ich, sofern die gefundene Zahl kleiner ist, eine Zeile danach einfügen.

Code bis jetzt:


' Zeile einfügen
     'in welcher wird wird der Wert eingefügt?
    Sheets("Seite1").Select  'Seite1 auswählen
     LetzteZeile = Range("A100000").End(xlUp).Row
        Suchwert = NeueNummer  ' Nach diesem Wert wird in Spalte A gesucht

    Set Rng = ActiveSheet.Range("B:B").Find("Suchwert")
        If Rng Is Nothing Then
        MsgBox "Nichts gefunden"
        Exit Sub
        End If

Dieser Sucht ja aber nur nach Zahlen die es schon gibt....

Wer kann mir helfen?

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Der nächst gelegene Wert suchen und...
 23.01.2019 14:34:58 Harry
Solved
23.01.2019 16:21:52 amicro2000
NotSolved
23.01.2019 17:05:02 Harry
NotSolved