Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
948to952
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
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Abfrage auf Zelle

VBA Abfrage auf Zelle
06.02.2008 15:39:00
Michael
Hallo Zusammen,
hab schon wieder ein kleines Problem. Habe in einem Excel Sheet zwei Arbeitsmappen. In der einen Arbeitsmappe erstelle ich mir bereits per Makro einen Import von einem Text File. In der zweiten Arbeitsmappe stehen alle Benutzernamen mit E-Mail Adresse. Wie muss ich das Makro gestalten, das es mir automatisch ein vergleich, anhand der LoginID der ersten Arbeitsmappe und der zweiten Arbeitsmappe macht (so ähnlich wie SVerweis)? Anschließend soll in der ersten Tabelle in der Spalte E, die E-Mail Adresse zu der zugehörigen LoginID angezeigt werden.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Abfrage auf Zelle
06.02.2008 22:40:00
fcs
Hallo Michael,
hier ein Beispiel(ungetestet). Die Namen der Dateien und Tabellenblätter, sowie vorgegebene Zeilen- und Spaltennummer muss du an deine Dateien anpassen. Das Makro gehört in die Datei in der die e-mail-Adressen eingetragen werden sollen.
Gruß
Franz

Sub eMailAdressenHolen()
Dim wbthis As Workbook, wksThis As Worksheet
Dim ZeileThis As Long, SpalteIDt As Integer, SpalteMailt As Integer
Dim wbEmail As Workbook, wksEmail As Worksheet
Dim SpalteMail As Integer, SpalteIDe As Integer
Dim varLogID As Variant, ZelleLogID As Range
'Datei mit dem Tabellenblatt in das die emailadressen eingetragen werden sollen
Set wbthis = ThisWorkbook 'oder = Workbooks("DateiXYZ.xls")
'Tabellenblatt in das die emailadressen eingetragen werden sollen
Set wksThis = Worksheets("Tabelle1")
SpalteIDt = 1 'Spalte mit LogID in diesem Tabellenblatt
SpalteMailt = 4 'Spalte in die die E-mail Adresse eingetragen werden soll
'Dateimit den email-Adressen, Datei muss geöffnet sein! Name ggf. anpassen
Set wbEmail = Workbooks("DateiEmails")
'Tabellenblatt aus dem die e-Mail-Adressen ausgelesen werden sollen
Set wksEmail = wbEmail.Worksheets("Tabelle1")
SpalteIDe = 1 'Spalte mit LogID in Tabellenblatt mit e-Mail-Adressen
SpalteMail = 2 'Spalte mit e-Mail-Adressen in Tabellenblatt mit e-Mail-Adressen
'LogID's zeilenweise abarbeiten
For ZeileThis = 2 To wksThis.Cells(wksThis.Rows.Count, SpalteIDt).End(xlUp).Row
varLogID = wksThis.Cells(ZeileThis, SpalteIDt).Text
'LogID im Blatt mit E-mail-Adressen in Spalte suchen
Set ZelleLogID = wksEmail.Columns(SpalteIDe).Find(whst:=varLogID, _
lookat:=xlWhole, LookIn:=xlValues)
If Not ZelleLogID Is Nothing Then
wksThis.Cells(ZeileThis, SpalteMailt).Value = wksEmail.Cells(ZelleLogID.Row, SpalteMail). _
Value
End If
Next
Set wbthis = Nothing: Set wksThis = Nothing
Set wbEmail = Nothing: Set wksEmail = Nothing
Set ZelleLogID = Nothing
End Sub


Anzeige

177 Forumthreads zu ähnlichen Themen

Aus VBA auf eigene DLL aus VB.NET zugreifen
Carsten

Hallo,
solange man innerhalb von VB.NET bleibt ist ja alles ganz einfach und schön, aber wie komme ich aus VBA heraus an die Methoden einer DLL ran die ich in VB.NET 2005 programmiert habe?
Da ich in einer öffentlichen Verwaltung arbeite und wir hier hunderte von Excel- und Word-Vorlage...
17.02.2009 16:00:00
Thread-ID: 1051537
3 Beiträge
Anzeige
Auf einzelne Zeile einer Multi-Zelle zugreifen
Andreas
Hallo Michael,vielleicht hier mal ein Ansatz die Zeilennummer zu ermitteln:
Viel Spaß,
Andreas
15.04.2002 14:35:16
Thread-ID: 113418
3 Beiträge
VBA: Tagesdatum auf 3 Zellen aufteilen
KlausF

Hallo Forum,
ich stehe gerade vor folgendem Problem:
Ich habe einen Button, der zellfüllend in einer beliebigen Zelle steht, z.B. in A2
Ich möchte jetzt auf Klick immer das heutige Tagesdatum wie folgt aufteilen:
die darüber liegende Zelle (hier A1) bekommt den Tag von Heute() i...
15.10.2010 15:37:47
Thread-ID: 1182643
4 Beiträge
Anzeige
VBA - Minimum finden und auf Zelle verweisen
Ines

Hallo,
seit Stunden probiere ich eine Lösung für mein eigentlich simples Problem zu finden, komme aber leider keinen Schritt mehr weiter.
Ich habe eine Tabelle mit Plattenabmessungen (Länge, Breite, Verhältnis von Oberfläche zu Volumen, ...) von Plattenwärmetauschern. Aus der Spalte (Ve...
03.05.2011 16:27:34
Thread-ID: 1212893
3 Beiträge
Tabellen Spalte aufsteigend sortieren mit VBA
Malcolmp

Hallo Forum,
mit folgendem Code Schreibe ich einen Datensatz in die erste freie Zelle einer Spalte in Tabelle2:
Tabelle2.Cells(Tabelle2.Cells(Rows.Count, FzgSP.Column).End(xlUp).Row + 1, FzgSP.Column) = _
CLng(DATE1) & " " & Left(CDate(TIME1), 2) & " " & CLng(DATE2)...
27.07.2011 13:22:31
Thread-ID: 1223854
5 Beiträge
VBA Zelle auf anderes Tabellenblatt kopieren
Timonski

Servus...
ich hätte gern beim aktivieren einer Tabelle einen bestimmten Teil eines Zellenwert auf einer anderen Tabelle stehen.
Quellezelle auf Tabellenblatt ABRECHNUNG H6
Ziel auf Tabellenblatt INDEX AY1
meine nicht funktionierende Formel :-)
Sheets("Index").Cells(1, 51) =...
20.03.2012 08:03:41
Thread-ID: 1255689
3 Beiträge
Zellen bedingt neu Auflisten (ohne VBA/Filter)
SebastianSchelb

Hallo liebe Forumuser,
ich brauche euere Hilfe.
Ich habe diese Tabelle:
https://www.herber.de/bbs/user/83422.xls
Die Matrix B:C soll durchsucht werden und bei von allen Zellen, in welcher ein "X" ist, die zugehörige Bezeichnung in einer neuen Tabelle (ohne Leerzellen) auflisten...
16.01.2013 12:03:34
Thread-ID: 1294571
3 Beiträge
VBA Zelleintrag auf verschiedenen Tabellen und kop
Hans

Hallo.
Mein Problem.
Ich möchte in Tabelle 1 in Spalte B Zahlen mit Zahlen in Tabelle2 in Spalte D vergleichen und bei übereinstimmung das Datum in Tabelle2 in Spalte E kopieren und in Tabelle1 in Spalte A einfügen.
Wäre schön wenn mir da jemand helfen kann und es auch bisle beschre...
18.04.2013 13:36:06
Thread-ID: 1309371
8 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
2
4
2
3
2
2
4
2
2
7
9
4
7
8
5
2
3
4
15
3
17
2
2
4
5