Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
900to904
900to904
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

LinkedCell einer Textbox per Macro zuweisen

Forumthread: LinkedCell einer Textbox per Macro zuweisen

LinkedCell einer Textbox per Macro zuweisen
25.08.2007 10:46:00
Karsten
Hallo
Ich suche per for...next Befehl einen Wert in einer Spalte.
Als Ausgabe bekomme ich ja eine Zahl.
Wie kann ich diese Zahl jetzt per Macro in einen Linkedcell eintragen?
For a = 50 To 500
If Sheets("Daten").Cells(1, a) = Sheets("Daten").Cells(1, 49) Then
TextBox3.LinkedCell = "Daten!" & a & "2"
Next a
So geht es leider nicht, weil a als Zahl und nicht als Buchstabe ausgegeben wird.
MfG
Karsten

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: LinkedCell einer Textbox per Macro zuweisen
25.08.2007 11:09:19
{Boris}
Hi,
zunächst mal müsste Dein Code bei Deiner angegebenen Excelversion eigentlich abfliegen, da XP keine 500 Spalten hat.
Dein Problem lässt sich auch am Besten mit der Find-Methode erledigen:

Sub aus_der_Hand()
Dim C As Range
Set C = Sheets("Daten").Range("AX1:IV1").Find(Sheets("Daten").Cells(1, 49), lookat:=xlwhole)
If Not C Is Nothing Then
TextBox3.LinkedCell = "Daten!" & C.Offset(1).Address
End If
End Sub


Grüße Boris

Anzeige
AW: LinkedCell einer Textbox per Macro zuweisen
25.08.2007 11:22:45
Daniel
Hi
mal grundsätzlich, Office XP kann doch nur 256 Spalten, das mit den 500 würde erst ab Excel 2007 gehen.
dein Makro müsste dann so aussehten:

For a = 50 To 256
If Sheets("Daten").Cells(1, a) = Sheets("Daten").Cells(1, 49) Then
TextBox3.LinkedCell = "Daten!" & cells(2, a).address
Next a


Besser wäre allerdings folgendes Makro, daß keine Schleife benötigt, sondern die Find-Funktion verwendet


a = sheets("Daten").range("AX1:IV1").find(what:=sheets("Daten").cells(1,49).value, lookat:= _
xlwhole).column
TextBox3.LinkedCell = "Daten!" & cells(2, a).address


oder die Vergleichsfunktion:


a = worksheetfunction.match(sheets("Daten").cells(1,49), sheets("Daten").range("ax1:iv1"), 0)+ _
49
TextBox3.LinkedCell = "Daten!" & cells(2, a).address


beide Varianten haben aber den Nachteil, daß das Makro mit der Fehlermeldung abbricht, wenn der Wert aus Cells(1,49) nicht gefunden wurde.
Außderdem würde, wennn der Suchbegriff mehrfach vorkommt, deine Schleife den letzten Wert zurückgeben, bei meinen beiden Varianten dagegen immer der erste gefundene.
Gruß, Daniel

Anzeige
AW: LinkedCell einer Textbox per Macro zuweisen
25.08.2007 11:32:00
Karsten
Hallo
Danke für die schnellen Hinweise. Ich werde beide ausgiebig testen.
Das mit der 500 macht kein Problem, weil immer vorher ein ergebnis gefunden wird und die 500 aus einer Reihen-Suche stammt.
Gibt es jetzt noch die Möglichkeit, der Textbox vorzuschreiben, das Format der Zelle zu behalten?
Denn ich verlinke eine Datumsangabe (Aug. 07), die wird aber als Zahl ausgegeben (39295).
MfG
Karsten

Anzeige
AW: LinkedCell einer Textbox per Macro zuweisen
25.08.2007 11:43:53
Daniel
Hi
meines Wissen nach kann man der Textbox kein spezielle Zahlenformat mitgeben, es ist halt ne TEXT-Box.
Du könntest den Wert natürlich mit
Textbox3.text = text(sheehts("Daten").cells(a,2).value, "MMM. YY")
formatiert reinschreiben, das macht aber nur Sinn, wenn das Datum in der Textbox nicht mehr geändert werden soll (und keine LinkedCell mehr erforderlich ist)
Falls doch, müsste der Wert ggf durch ein Makro zurückgeschrieben werden, das den Textbox-Text wieder in ein datum verwandelt.
Gruß, daniel
Anzeige
;

Forumthreads zu verwandten Themen

Markierte Zellen: Text in Datum umwandeln
Peter

Guten Tag
Mit nachfolgendem Code wandle ich einen Textstring in ein Datum um. Komisch ist, dass ich die Schleife zweimal hintereinander laufen lassen muss. Nach dem ersten Mal wird das Datum mit "d/m/yy" und erst das zweite Mal im gewünschten Format "dd.mm.yy" angezeigt.
Was muss ich än...
15.09.2008 11:41:00
Thread-ID: 1009737
6 Beiträge
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Bild von Zelle in Zelle verlinken
Zelle

Hi Leute
Ich habe in Tabelle1 Zelle A1 einen Text, und danach habe ich in die Zelle ein Bild eingefügt
Nun möchte ich die gesamte Zelle A1 (Bild und Text) in Zelle Z17 haben.
Bei normalen Texten geht es ja mit =A1 (wenn ich in Zelle Z17 stehe)
Gibt es diesen Befehl auch für mein...
04.11.2008 16:19:07
Thread-ID: 1021687
4 Beiträge
Text in Zahlen umwandeln
u_hoernchen

Ich habe eine Spalte in Excel, in der vereinzelt Zellen sind, in denen Zahlen als Text formatiert sind. Da ich diese Zahlen für die weitere Verwendung als Werte haben muss und ich das dann relativ oft umfrickeln muss (ist leider ein Download aus einem Vorprogramm), frage ich mich, ob es ggf. ei...
26.11.2008 11:09:00
Thread-ID: 1027963
4 Beiträge
Zelle in Datum umwandeln
Will

Hallo Leutz,
wie in folgender Datei zu sehen, habe ich mal wieder ein Thema mit der Umwandlung von Zellen in ein Datumsformat.
Eine Mainframeanwendung gibt mir die Werte im Format 6/2003 aus was Juni 2003 heißen soll. Excel erkennt diese Daten aber nicht als Datum.
Wie bitte bekomme...
12.01.2009 07:41:00
Thread-ID: 1038745
5 Beiträge
Hyperlinks als Text
Markus

Hallo,
ich habe im Archiv bereits gesucht, aber nix passendes gefunden.
Ich schreibe eine grössere Tabelle mit vielen LINKS
Z.B. info@hammer.ch, www.meier.ch, \\pdc\LaufwerkC$, etc.
Sobald ich diese Werte in eine Tabelle schreibe, macht Excel sofort einen Hyperlink daraus.
W...
15.01.2009 08:18:00
Thread-ID: 1039886
8 Beiträge
Anzeige
TextBox Komma in Punkt umwandeln
Heinz

Hallo Leute
Wie kann ich bitte,wenn in Textbox6 ein Komma eingegeben wird, das es automatisch auf Punkt wechselt ?
Gruß
Heinz
28.01.2009 17:42:00
Thread-ID: 1044650
3 Beiträge
TEXT in Tabelle umwandeln
Martin

Liebe Forumteilnehmer,
möchste aus einem TEXT in WORD der bestimmte wiederholte, standardisierte Abschnitte - in diesem fall Name, Vorname, Geb-Datum, eine Tabelle generieren. Geht das mit einem Makro aus Excel heraus?
Danke
Martin
02.02.2009 17:26:48
Thread-ID: 1046338
4 Beiträge
Anzeige
Text in Tabelle umwandeln
Martin

Hallo Formusteilnahmer,
hate vor eingen Tagen schon mal eine Anfrage diesbezüglich gestellt und versuche sie nun präziser zu formulieren.
Ich muss aus mehreren 10 Seiten Volltext Daten herausziehen und in eine Tabelle packen. Es geht dabei um Name, Vorname Geburtsdatum. Habe einen Beisp...
08.02.2009 16:55:14
Thread-ID: 1048374
3 Beiträge
Datum in Textbox in eine Zahl umwandeln
TCO99

Hallo zusammen,
ich habe folgendes Problem.
In einer Spalte einer Tabelle befinden sich Datumsangaben. Ich filtere diese Liste nach einem Datum. Dieses Datum wird vor der Filterung in eine Textbox eingegeben. Als richtiges Datum fuktioniert die Filterung aber nicht mehr. Da habe ich ei...
26.02.2009 23:31:12
Thread-ID: 1054555
15 Beiträge
Text-String in Datumszahl umwandeln
MBorn

Hallo,
weiß jemand, wie ich einen Textstring ("27.02.1999") in die
passende Datumszahl (36218) umwandeln kann?
Danke,
Born
03.03.2009 13:16:27
Thread-ID: 1055953
4 Beiträge
Anzeige
Text-String in Datumszahl umwandeln
MBorn

Hallo,
weiß jemand, wie ich einen Textstring ("27.02.1999") in die
passende Datumszahl (36218) umwandeln kann?
Interessanterweise funktioniert das in Excel mit Ganzzahl(Datumsstring),
aber in VBA klappt int(Datumsstring) nicht.
Danke,
Born
03.03.2009 13:18:24
Thread-ID: 1055955
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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