Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1752to1756
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
1752to1756
1752to1756
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Input

Input
17.04.2020 07:16:58
Tim
Guten Morgen,
ich habe eine Liste auf zwei Spalten:
Spalte A und Spalte B stehen Nummer Bezeichnungen drin.
Also so:
Spalte A...Spalte B
3-18-18...3-15-18
4-68-18...4-67-17
4-65-99...4-69-77
das heißt jede Zeile gehört zusammen und ist ein Päärchen
jetzt möchte ich gerne eine Input über einen Schnellzugriff machen.
Die Datei ist in L:\Troll\Allgemein\Test\Daten.xlsm gespeichert.
Klicke ich jetzt auf dem Button soll per Input kommen :
Welche Nummer?
Dann gebe ich ein: 4-68-18 (Spalte A) und anschließend kommt 4-67-17 (Spalte B)und mit OK schließe ich dann die Datei .
Gebe ich 4-69-77 (Spalte B) kommt 4-65-99 (Spalte A)
Es gibt keine doppelten Werte.
Wäre dies Möglich?
Danke euch.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Input
17.04.2020 07:29:47
Nepumuk
Hallo Tim,
teste mal:
Option Explicit

Public Sub Anzeigen()
    Dim strInput As String, strOutput As String
    Dim lngColumn As Long
    Dim objCell As Range
    strInput = InputBox("Welche Nummer?", "Eingabe")
    If StrPtr(strInput) <> 0 Then
        For lngColumn = 1 To 2
            Set objCell = Columns(lngColumn).Find(What:=strInput, LookIn:=xlValues, LookAt:=xlWhole)
            If Not objCell Is Nothing Then Exit For
        Next
        If objCell Is Nothing Then
            Call MsgBox("Nicht gefunden.", vbExclamation, "Hinweis")
        Else
            If objCell.Column = 1 Then
                strOutput = objCell.Offset(0, 1).Text
            Else
                strOutput = objCell.Offset(0, -1).Text
            End If
            Call MsgBox(strOutput, vbInformation, "Information")
            Set objCell = Nothing
        End If
    End If
End Sub

Gruß
Nepumuk
Anzeige
AW: Input
17.04.2020 07:36:25
Tim
Hallo Nepumuk,
wie schnell konntest du denn diesen Code bauen, der Wahnsinn. Funktioniert sehr gut, jetzt müsste er nur noch die Datei in den Ordner aufmachen und anschließend schliesen.
Denn den Code möchte ich in mein Hauptexcel anlegen.
Danke
AW: Input
17.04.2020 07:42:50
Nepumuk
Hallo Tim,
so ok?
Option Explicit

Public Sub Anzeigen()
    Dim strInput As String, strOutput As String
    Dim lngColumn As Long
    Dim objCell As Range
    Dim objWorkbook As Workbook
    strInput = InputBox("Welche Nummer?", "Eingabe")
    If StrPtr(strInput) <> 0 Then
        Set objWorkbook = GetObject("L:\Troll\Allgemein\Test\Daten.xlsm")
        With objWorkbook.Worksheets("Tabelle1") 'Anpassen !!!
            For lngColumn = 1 To 2
                Set objCell = .Columns(lngColumn).Find(What:=strInput, LookIn:=xlValues, LookAt:=xlWhole)
                If Not objCell Is Nothing Then Exit For
            Next
        End With
        Call objWorkbook.Close(SaveChanges:=False)
        If objCell Is Nothing Then
            Call MsgBox("Nicht gefunden.", vbExclamation, "Hinweis")
        Else
            If objCell.Column = 1 Then
                strOutput = objCell.Offset(0, 1).Text
            Else
                strOutput = objCell.Offset(0, -1).Text
            End If
            Call MsgBox(strOutput, vbInformation, "Information")
            Set objCell = Nothing
        End If
    End If
End Sub

Gruß
Nepumuk
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige