Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1536to1540
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
1536to1540
1536to1540
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Eine Art SVerweis in VBA

Eine Art SVerweis in VBA
20.01.2017 15:42:17
Mike
Hallo,
gibt es eine Lösung in VBA für mein Problem?
Mein Problem ist, der Anwender trägt eine Serialnummer, eine Laufzeit und ein Einbaudatum in eine Userform ein. Diese werte sollen in eine Liste übertragen werden. Wenn diese Serialnummer aber schon in der Liste Spalte "A" vorhanden ist, dann sollen die Laufzeit in Spalte "B" und das Einbaudatum in Spalte "D" überschrieben werden. Ist die Serialnummer noch nicht in der Liste, sollen diese drei Daten ans Ende der Liste angehängt werden.
Eine ganz andere Frage noch:
Ist es möglich in Excel Das Ergebnis eines SVerweises in eine Formel einzubauen, ohne eine Hilfszelle?
Mein Beispiel: In Tabelle "1" in Spalte "A" steht ein Artikel, in Spalte "B" eine maximale Laufzeit. In Tabelle "2" in Zelle"A1" wird der Artikel eingegeben, in Zelle "A2" eine Laufzeit. In Zelle"A3" soll jetzt ein SVerweis suchen wie lange die maximale Laufzeit des Artikels ist und von dieser sofort die Laufzeit von "A2" abziehen. Geht das irgendwie?
Gruß,
Mike

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eine Art SVerweis in VBA
20.01.2017 15:53:56
ChrisL
Hi Mike
Zu 1:
Beachte den Datentyp der Serialnummer (im Beispiel Typ "Long" d.h. Ganzzahl)
Private Sub CommandButton1_Click()
Dim lngSerial As Long, lngZeile As Long
Dim strText1 As String, strText2 As String
lngSerial = TextBox1
strText1 = TextBox2
strText2 = TextBox3
With ActiveSheet
If WorksheetFunction.CountIf(.Columns(1), lngSerial) = 0 Then
lngZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Else
lngZeile = Application.Match(lngSerial, .Columns(1), 0)
End If
.Cells(lngZeile, 1) = lngSerial
.Cells(lngZeile, 2) = strText1
.Cells(lngZeile, 4) = strText2
End With
End Sub

Zu 2:
=SVERWEIS(A1;Tabelle1!A:B;2)-A2
cu
Chris
Anzeige
AW: Eine Art SVerweis in VBA
23.01.2017 21:13:00
Mike
Hallo Chris,
ich habe heute dein Programm ausprobiert und klappt bis jetzt super.
Dankeschön.
Gruß,
Mike

307 Forumthreads zu ähnlichen Themen

Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Anzeige
SVerweis ??? in VBA
kirsche

hallo leute,
mal wieder brauche ich eure hilfe.
ich weiß nicht, ob ich mit dem SVerweis in VBA übehaupt richtig liege. in B1 steht mein 1. suchbegriff (25) und in A3, A5 ... A25 (immer in zweierschritten) steht mein 2. suchbegriff.
nun möchte ich in tabelle "Stammdaten" zuerst die s...
08.07.2009 23:26:22
Thread-ID: 1087239
5 Beiträge
SVerweis in VBA
Stefanglander

Hallo Forum,
ich habe folgenden Code in einer Zelle:
=WENN(C4="";"";SVERWEIS(C4;Stoffplan!$A$2:$F$100;2;FALSCH))
Mag mir jamand sagen wie und wo ich das in VBA hinterlegen kann.
Danke im Vorfelde
Stefan
05.10.2009 21:11:52
Thread-ID: 1107351
11 Beiträge
Anzeige
Formel Sverweis in VBA
Marko Albrecht

Hallo,
ich hoffe mir kann bei meinem, nachfolgend beschriebenen, Problem geholfen werden.Das Problem ist , daß in der nachstehenen Formel(Wenn, Istfehler, Sverweis) VBA ein Hochkomma in die Formel schreibt und die Formel dadurch nicht Ihre Funktion erfüllt.Die Bezugszelle der Formel Sverweis...
11.04.2002 14:27:49
Thread-ID: 112467
10 Beiträge
Formel per VBA in Zelle schreiben
einfachf

Hallo Zusammen,
ich habe folgendes Problem
Vielleicht kann mir ja jemand helfen.
Ich prüfe in welcher Zelle der letzte Wert steht mit
CellCount = Cells(65536, 23).End(xlUp).Row
Nun möchte ich in sagen wir mal Cells(CellCount, 21) die Formel eintragen
Summe aus Cells(Cel...
20.02.2010 14:24:22
Thread-ID: 1139917
7 Beiträge
Sverweis mit VBA funktionier nicht richtig
F.

Hallo zusammen
Ich möchte zu einer Ziffer, welche ab dem zweiten Blatt in A1 steht, die dazugehörige Bezeichnung aus dem ersten Blatt "Konti" (Spalte B) ziehen und diese dann im Feld B1 eintragen. Irgendwas mache ich falsch.
Sub Konten_bezeichnen() Dim i As Long For i = Sheets("Konti")...
10.03.2010 14:58:20
Thread-ID: 1144879
5 Beiträge
SVerweis in VBA umsetzen
Ines

Hallo,
ich habe mir ein Userform erstellt, da ich Daten in Bezug auf das Datum in eine Tabelle eintragen muss.
Mein Problem ist, dass die Daten nicht irgendwo automatisch eingetragen werden sollen.
Ich würde gerne
im Userform 4 Textfelder ausfüllen und das Datum angeben
D...
10.03.2010 21:36:01
Thread-ID: 1145009
9 Beiträge
Formel in VBA umsetzen
Josef


Hallo!
Wie würde bitte die untenstehende Formel in VBA umgesetzt lauten?
=RUNDEN(F11*0,2;2)
F11 wäre in diesem Fall eine TextBox in einer UserForm.
Danke
Josef
15.04.2010 07:06:19
Thread-ID: 1151875
3 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
5
2
4
10
13
9
6
4
8
2
1
5
4
2
2
8
3
4
6
6
5
13
1
4
6