Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1008to1012
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
1008to1012
1008to1012
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausgabe in gleicher Zelle

Ausgabe in gleicher Zelle
19.09.2008 09:19:00
Lars
Hallo zusammen,
ich habe ein kleines Problem. Und zwar möchte ich, dass nach Eingabe in Zelle A1 ein bestimmter Wert auch in Zelle A1 ausgegeben wird. Die passenden Werte sollen aus einer weiteren Tabelle quasi über eine SVerweis bezogen werden.
Beispiel:
Eingabe in Zelle A1: C5
Ausgabe in Zelle A1: Werbeschild Nr.3
Eingabe in Zelle A1: D7
Ausgabe in Zelle A1: Werberschild Nr. 23
Bin für jeden Vorschlag dankbar
Gruß
Lars

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausgabe in gleicher Zelle
19.09.2008 09:26:55
Rudi
Hallo,
das geht nur mit VBA.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
On Error GoTo ERRHANDLER
Application.EnableEvents = False
Target = Application.VLookup(Target, Sheets(2).Range("A:B"), 2, 0)
End If
ERRHANDLER:
Application.EnableEvents = True
End Sub


Gruß
Rudi

AW: Ausgabe in gleicher Zelle
19.09.2008 10:28:32
Lars
Super, das hat funktioniert. Das es so schnell geht hätte ich nicht gedacht.
Gruß
Lars
AW: Ausgabe in gleicher Zelle
19.09.2008 12:38:00
Lars
Hallo Rudi,
irgendwie fungtioniert es noch nicht richtig. Jedesmal wenn ich auf das Feld mit dem Cursor gehe springt die Anzeige auf #NV.
Zudem wäre es super, wenn Zellen A1 bis A6 mit dieser Funktion ausgestattet wären.
Vielen Dank im Vorraus.
Lars
Anzeige
AW: Ausgabe in gleicher Zelle
19.09.2008 13:14:30
Rudi
Hallo,
1. stimmt das denn? Sheets(2).Range("A:B")
2.
If Target.Address = "$A$1" Then
ersetzen durch
If Not Intersect(Target, Range("A1:A6")) Is Nothing Then
Gruß
Rudi
AW: Ausgabe in gleicher Zelle
19.09.2008 13:50:00
Lars
Hallo Rudi
Momentan sieht es so aus. Ich gebe A1 ein und bestätige mit Return. Dann passiert garnichts. Dann gehe ich mit dem Cursor zurück auf die Zelle und es erscheint der Wert den ich benötige. Verlasse ich die Zelle mit dem Cursor und belege die Zelle dann erneut, erscheint NV#. Das heißt die Zelle springt ohne Eingabe hin und her.
Vielleicht zur Info: Habe im Datensheet 35 Zeilen aber nur 2 Spalten. Somit sollte das eigentlich ok sein. Nachfolgend mal ne Kopie von dem Sub wie ich es eingefügt habe.
Gruß
LArs

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A48:A55")) Is Nothing Then
On Error GoTo ERRHANDLER
Application.EnableEvents = False
Target = Application.VLookup(Target, Sheets(11).Range("A:B"), 2, 0)
End If
ERRHANDLER:
Application.EnableEvents = True
End Sub


Anzeige
AW: Ausgabe in gleicher Zelle
19.09.2008 14:57:46
Rudi
Hallo,
warum Worksheet_SelectionChange?
Davon habe ich nichts geschrieben.
Gruß
Rudi
AW: Ausgabe in gleicher Zelle
20.09.2008 08:27:00
Lars
Super, jetzt erscheint der richtige Wert. Das eintige was mir noch Kummer macht, ist das wenn ich die Wert aus der Zelle lösche jedesmal #NV erscheint. Wäre super, wenn du auch dafür eine Lösung hättest.
Vielen Dank schonmal und sorry das ich dich so nerven muss.
AW: Ausgabe in gleicher Zelle
20.09.2008 08:36:00
Hajo_Zi
Hallo Lars,
=Wenn(Istfehler(Deine_Formel);"";Deine_Formel)
oder
=WENN(ISTNV(Deine_Formel);"";Deine_Formel)
oder ab Version 2007
=WENNFEHLER(Deine_Formel;"nicht vorhanden")

Anzeige
AW: Ausgabe in gleicher Zelle
20.09.2008 22:19:13
Lars
Danke erstmal für die Antwort, jedoch muss ich das Problem im Rahmen meines Makros lösen. Sicherlich kann man die Formel da integrieren, jedoch fehlen mir dazu die Fähigkeiten.
Stelle nochmal das Makro rein. Vielleicht kann ja jemand mein Problem beheben. Also, jedesmal wenn ich den Wert aus der Zelle lösche erscheint #NV
Danke für eure Hilfe

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A48:A55")) Is Nothing Then
On Error GoTo ERRHANDLER
Application.EnableEvents = False
Target = Application.VLookup(Target, Sheets(11).Range("A:B"), 2, 0)
End If
ERRHANDLER:
Application.EnableEvents = True
End Sub


Anzeige

300 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Anzeige
automatisch Berechnen funktioniert nicht
t4z

Hi Leute,
kann mir jmd folgendes Phänomen erklären?
Excel-Datei enthält Formeln, die auf andere Zellen innerhalb der Mappe referenzieren. Die Quelldaten ändern sich, jedoch die Formeln nicht. Unter Extras-Optionen-Berechnung ist "automatisch" aktiv. Ein Drücken auf F9 bringt keinen Erfo...
07.08.2008 17:13:07
Thread-ID: 1000040
3 Beiträge
Menü in Excel von VB6.0 aus erzeugen??
VB6.0

Hallo zusammen,
ich hoffe ihr könnt mir bei meinem Anliegen helfen. Ich möchte den VBA-Code in eine dll transportieren (VB 6.0) und scheitere schon an dem Menüaufbau in Excel.
In der dll steht in einer Klasse:
Sub Test_Excel() Set xl = GetObject(, "Visio.Application") Set objMenu...
07.08.2008 20:23:28
Thread-ID: 1000091
13 Beiträge
Anzeige
Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
Farbige Zellen suchen und Zuordnung auflisten
Excel-Opfer

Hallo zusammen,
ich hab nicht so die Ahnung von Makros und Automationen im Excel, bräuchte allerdings "dringend" eine Vereinfachung meines Excelchaos.
es dreht sich um folgende Problematik:
ich muss diverse Dienstpläne in unsere Personalplanung einarbeiten, leider liefert eine Abtei...
08.08.2008 06:47:00
Thread-ID: 1000143
16 Beiträge
Stelle für VBA-Crack bei Schweizer Bank
Sand

interessantes Job-Angebot für VBA-Crack unter:
http://www.sarasin.ch/internet/iech/index_iech/about_us_iech/about_us_job_vacancies_iech.htm?jobID=76975
schaut's euch mal an.
cheers,
Sand
08.08.2008 13:37:00
Thread-ID: 1000280
2 Beiträge
Copy Paste Problem mit VBA
Chris

Hallo Leute,
ich habe ein Makro geschrieben, das ein aus SAP gezogenes Spreadsheet in ein formatiertes Excel File umwandelt.
Jetzt taucht plötzlich folgendes Problem auf:
Ein String wird in Zelle "A1" geschrieben, der Buchstaben und steuercode enthält.
D.H. ich habe in dieser Ze...
08.08.2008 15:10:35
Thread-ID: 1000317
11 Beiträge
Version DLL auslesen habe ich...aber Datum?
Peter

Hallo mal wieder,
habe n bissl probiert und recherchiert und dann denn folgenden Code gefunden/gebastelt mit dem ich die Versionsnummer einer DLL auslesen kann:
Sub Welche() Set fs = CreateObject("Scripting.FileSystemObject") ofile = "C:\Programme\Microsoft Office\Office12\refedit.dll...
08.08.2008 15:36:00
Thread-ID: 1000331
3 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
2
2
12
4
4
15
1
10
2
1
3
6
5
8
3
5
3
4
6
5
5
2
2
2