Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle einer geschlossenen Excel datei vergleichen

Forumthread: 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
Anzeige

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.
Anzeige
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
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)
Anzeige
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
;

Forumthreads zu verwandten 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
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:34:08
Thread-ID: 1000867
5 Beiträge
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
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
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
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
Anzeige
Zugriff auf auf Teilinhalte einer Zelle
Der

Hallo da Draußen!
Habe mal wieder ein Problem mit meiner VBA Programmierung. Ich möchte innerhalb einer Exceltabelle auf einzelne Zellen zugreifen, die ein bestimmtes Merkmal haben. Der Inhalt der Zelle beginnt mit einer Zahl (in diesem fall mit einer Postleitzahl). Ich möchte also meine Ab...
20.03.2009 14:52:09
Thread-ID: 1062230
5 Beiträge
Anzeige
Teil einer Formel in Zelle einlesen
Bernd

Hallo Freaks,
ich bastle nun schon geraume Zeit an einem Code, der mir in eine Zelle den Teil einer Formel (Kostenstellennamen) aus einer anderen Zelle schreibt.
Der nachstehene Code (von einem ausgeschiedenen Kollegen) ersetzt einen KST-Namen in einem Link mit einem neuen KST-Namen aus...
13.04.2009 12:55:24
Thread-ID: 1068432
6 Beiträge
Inhalte von Zellen runterkopieren
Zellen

Hallo,
ich habe folgendes Problem.
in C1: =B2;in C2: = B10; in C3: =B18
Ich will also, dass in der Spalte C der Inhalt von B2 steht und zwar in 8er Schritten B2, B10 etc.
Nun will ich die drei Zellen markieren und runterziehen, so dass ich in C4=B24, C5=B32,... ; etc bekomme.<...
30.04.2009 17:11:31
Thread-ID: 1072244
4 Beiträge
Anzeige
Ein Teil einer Formel in andere Zelle ausgelagern
Hans

Ein Teil der Formel – der immer gleich ist - soll in eine andere Zelle ausgelagert werden. Ist die möglich, gibt es hierfür eine spezielle Funktion?
=WENN(E25=5;SVERWEIS(Rechn.!C25;'C:\Ornder\[dateiname.xls]tabelle'!$A$2:$B$17128;2;FALSCH);"")
=WENN(E25=5;SVERWEIS(Rechn.!C25; Verweis au...
14.06.2009 21:29:10
Thread-ID: 1081465
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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