Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
596to600
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
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle einer geschlossenen Excel datei vergleichen

Zelle einer geschlossenen Excel datei vergleichen
14.04.2005 12:06:09
delta
Hallo Leute,
Ich möchte in eine geschlossene Excel-Tabelle zugreifen und dort eine bestimmte Zeile vergleichen.
ALLES MIT VBA
z.B. die geöffnete Datei: neu.xls
die zu lesende datei ist unter D:\ordner\lesen.xls
es soll jetzt z.B. die Cells(1,1) verglichen werden, ob dort das Datum 02.03.2005 drin steht, wenn ja dann schreibe dies in die datei neu.xls - Tabelle1 - Cells(1,1)
Ich wird sehr freuen wenn einer eine Lösung hat.
DANKE

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle einer geschlossenen Excel datei vergleichen
14.04.2005 12:08:35
Hajo_Zi
Hallo delta

Option Explicit
'   von Alf Herber Forum
' <a href="https://www.herber.de/forum/archiv/52to56/t52834.htm#52840">https://www.herber.de/forum/archiv/52to56/t52834.htm#52840</a>
Sub TestGetValue()
Dim p As String
Dim f As String
Dim s As String
Dim r As String
p = "E:\Eigene Dateien\Hajo\"
f = "Adresse.xls"
s = "Adresse"
r = "B4"
'   bennanter Bereich ergänzung von Nikhil Milo
'    r = "Heinze"
MsgBox GetValue(p, f, s, r)
Worksheets("Tabelle1").Range("A1") = GetValue(p, f, s, r)
End Sub
Private Function GetValue(path, file, sheet, ref)
'   Retrieves a value from a closed workbook
Dim arg As String
'   Make sure the file exists
If Right(path, 1) <> "\" Then path = path & "\"
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If
'   Create the argument
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
'   bennanter Bereich ergänzung von Nikhil Milo
'     arg = "'" & path & "[" & file & "]" & sheet & "'!" & ref
'   Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
End Function

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige
AW: Zelle einer geschlossenen Excel datei vergleichen
14.04.2005 12:25:22
delta
Danke erstmal
In der Zeile
Function GetValue(path, file, sheet, ref)
sagt der compiler Variable nicht definiert
was heist das für mich das sind doch nur parameter oder?
AW: Zelle einer geschlossenen Excel datei vergleichen
14.04.2005 12:28:55
Hajo_Zi
Hallo delta,
bei mir läuft der Code fehlerfrei. Bei VBA gut solltest es für Dich eigentlich kein Problem sein. Ich bin noch weit von Gut entfernt, wenn man den Beiträgen hier im Forum glauben darf.
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
AW: Zelle einer geschlossenen Excel datei vergleichen
14.04.2005 12:34:55
delta
vba gut hab ich geschrieben weil ich dachte das andere wäre nur excel ohne vba,
naja egal.
kannst du mir vielleicht die funktionierende datei per email zukommen lassen,
das wär ganz nett.
delta46@freenet.de
danke
Anzeige
AW: Zelle einer geschlossenen Excel datei vergleichen
14.04.2005 12:48:39
delta
Das mit den argumenten hab ich hinbekommen der mekert jetzt bei der
GetValue = ExceuteExcel4Macro(arg)
AW: Zelle einer geschlossenen Excel datei vergleichen
14.04.2005 20:52:30
Dani
Hallo Hajo,
Hab dir was gebastelt:


      
Sub Zellenabgleich()
Dim Pfad, File, Tabellenname, Inhalt As String
Pfad = "E:\Eigene Dateien\Daniel\VBA\Test VBA\"
File = "Alt.xls"
Tabellenname = "Tabelle1"
Inhalt = CDate(Application.ExecuteExcel4Macro("'" & Pfad & "[" & File & "]" & Tabellenname & "'!R1C1 "))
If Inhalt = "02.03.2005" Then Cells(1, 1).Value = Inhalt
End Sub 


Auf gutes gelingen hofft
Dani
Anzeige

299 Forumthreads zu ähnlichen Themen

Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Anzeige
Textteile in Zellen mit Liste vergleichen
susidimarca

Hallo,
ich habe derzeit ein kniffeliges Excelproblem.
ich möchte gerne den Text in Zellen
hjgshgjdf Kriterium2 kjhfkjhfksdjhf
dskj Kriterium1 ajdhasjdhakjdhakdhajkdhajkdakj
daudzauizdaiudzaidzaisdz Kriterium3 kajhdasks
mit den Kriterium eine anderen Tabelle vergleichen...
21.08.2008 10:05:00
Thread-ID: 1003378
6 Beiträge
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Anzeige
Zelleninhalt auf Textteil überprüfen...
Jessi

Hallo zusammen,
ich bin gerade dabei meine Liste mit SVerweisen zu füllen und hänge an einem Problem:
Eine Ausgabe (über SVerweis) liefert einen Wert "String" XY_Text, ALTERN_Text oder MUSTER_Text in einer Zelle
jetzt möchte ich in einer anderen Zelle sagen:
Wenn Zelleninhalt mi...
07.11.2008 12:55:13
Thread-ID: 1022638
2 Beiträge
zählenwenn nur auf Teil einer Zelle basierend?
Sascha

Hallöchen,
folgendes Problem,
ich habe eine Artikelerfolgsauflistung (Alpha-Numerisch gefüllte Zellen) über den Bereich Tabelle3!A2-G99.
Über eine Lagerbestandsliste in Tabelle1!B2-B99, die ich per copy/paste täglich aktualisieren kann zählt mir das Programm automatisch die Menge, i...
13.11.2008 12:08:25
Thread-ID: 1024134
10 Beiträge
Textbox Werte in Zellen schreiben
pritt

Hallo zusammen, ich komme nicht so richtig klar: Ich habe eine Userform mit 4 Textboxen, die zu Laufzeit vom User mit Werten gefüllt werden. Wenn alle 4 Textboxen gefüllt sind, sollen diese Werte in 4 verschiedene Zellen eines Tabellenblatts geschrieben werden. Folgenden Code habe ich bisher er...
13.11.2008 12:59:19
Thread-ID: 1024171
7 Beiträge
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
Teile einer Zelle tiefstellen
Larass

Moins!
ich würde gerne Teile einer Zelle tiefgestellt haben, finde aber keine Einstellung dazu.
Bisher bekomme ich das nur hin, indem ich den Text so wie er sein soll von Word aus in die Zelle kopiere.
Geht das nicht auch einfacher?
Gruß, Lars
15.12.2008 09:54:08
Thread-ID: 1032941
6 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
5
3
1
1
9
6
1
5
4
5
3
1
3
4
7
2
3
4
4
1
2
2
5