Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1836to1840
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
1836to1840
1836to1840
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text in letzte Zeile Schreiben

Text in letzte Zeile Schreiben
02.07.2021 14:22:15
oraculix
Hallo
Ich möchte in Spalte B einen Hyperlink aus der Zwischenablage in ein Textfeld Kopieren.
Beim Drücken der Entertaste soll der Eingegebene Text dann unter dem letzt eingegebenen Hyperlink stehen.
Beispiel:
Spalte B
Eintrag 1
Eintrag 2
Letzter Eintrag aus Textbox
https://www.herber.de/bbs/user/146918.xlsx
Gruss
Oraculix kost fast nix

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

Betreff
Datum
Anwender
Anzeige
AW: Text in letzte Zeile Schreiben
02.07.2021 14:34:24
Zwenn
Hallo Oraculix
Ich enttäusche Dich ungern ein weiteres Mal. Aber auch das wird so nicht funktionieren. Du möchtest einen Link kopieren, in Deiner Beispieldatei stehen aber Filmtitel, die mit Liks hinterlegt sind. Das sind also zwei Informationen, die Du besorgen und zu einem "anklickbaren" Text zusammenfügen musst.
Du könntest aus der HTML-Datei alle Links und die zugehörigen Texte auslesen und in Spalte B einfügen. Dann bräuchtest Du die Zwischenablage nicht. Allerdings habe ich Dein Projekt noch immer nicht ganz durchdrungen.
Viele Grüße,
Zwenn
AW: Text in letzte Zeile Schreiben
02.07.2021 14:49:02
oraculix
Danke
Ne möchte nicht mit VBA kopieren das mach ich manuelle.
Dann geh ich in die Excel Mappe und füge den gerade kopierten Hyperlink in die Textbox ein.
Ab hier sollte VBA anfangen der Text steht in der Textbox ich drücke Enter
und er reiht mir den Eingegeben Hyperlink in die letzte Zeile Spalte B.
Denke so ungefähr könnte es gehen nur sollte man ja die Enter Taste noch berücksichtigen
wenn diese gedrückt wird dann if enter than schreibe Hyperlink in letzte Zeile +1 in Spalte B

Sub letzteZeile ()
dim lZeile as integer
if cells(1,1)="1" then
lZeile=activecell.specialcells(xlCelltypeLastCell).row+1
cells(LZeile,1) = cells(1,1)
end if
End Sub

Anzeige
AW: Text in letzte Zeile Schreiben
02.07.2021 14:58:49
UweD
Hallo
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- rechts reinkopieren

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
'bei Return Makro aufrufen
Dim LR As Long
LR = Cells(Rows.Count, 2).End(xlUp).Row 'letzte Zeile der Spalte
With TextBox1
If .Text  "" Then
ActiveSheet.Hyperlinks.Add Anchor:=Cells(LR + 1, 2), _
Address:=.Text, _
TextToDisplay:=.Text
End If
End With
End If
End Sub
den TextToDisplay musst du ggf noch anpassen
LG UweD
AW: Text in letzte Zeile Schreiben
02.07.2021 15:11:14
oraculix
Ja Funktioniert Vielen Dank
Nur ein Problem gibt es , Wenn ich dann auf den Hyperlink Klicke sagt EXCEL
Datei konnte nicht geöffnet werden
Gruss
Oraculix kost fast nix
Anzeige
AW: Text in letzte Zeile Schreiben
02.07.2021 15:23:42
UweD
Hallo
Was trägst du denn in das Textfeld ein?
wenn ich dort 

https://www.herber.de/forum/messages/1837515.html
reinkopiere und Enter drücke, wird der Link erstellt.
Beim anclicken komme ich genau in den Beitrag.
LG UweD
AW: Text in letzte Zeile Schreiben
02.07.2021 15:32:07
oraculix
Ich trage den kopierten Link aus der Datei D:/EMDB/HTML/index.html ein.
zb. Der rosarote Panther 2 (2009).
Wenn ich es in die Zelle ohne Textbox eintrage dann muss ich immer Inhalte einfügen Html auswählen dann funktioniert es auch.
Habe bemerkt das die Textbox zwar den Namen einträgt aber nicht den Link D:/EMDB/HTML/index.html
Und%20ewig%20schleichen%20die%20Erben%20%20(1993) Das steht im Hyperlink bearbeiten Menü
unter Adresse. Er kopiert die Adresse nicht mit.
Anzeige
AW: Text in letzte Zeile Schreiben
02.07.2021 15:36:47
UweD
Hi
dann so....

ActiveSheet.Hyperlinks.Add Anchor:=Cells(LR + 1, 2), _
Address:="file:///" & .Text, _
TextToDisplay:=.Text
LG UweD
AW: Text in letzte Zeile Schreiben
02.07.2021 15:58:10
oraculix
Kommt genau der gleiche Fehler
Kann die Datei nicht öffnen.
Wenn ich es ohne Adresse eingebe kommt Vba Fehler
Laufzeitfehler '1004':
Anwendungs- oder objektdefinierter Fehler

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
'bei Return Makro aufrufen
Dim LR As Long
LR = Cells(Rows.Count, 2).End(xlUp).Row 'letzte Zeile der Spalte
With TextBox1
If .Text  "" Then
ActiveSheet.Hyperlinks.Add Anchor:=Cells(LR + 1, 2), _
Address:="file:///" & .Text, _
TextToDisplay:=.Text
End If
End With
End If
End Sub

Anzeige
AW: Text in letzte Zeile Schreiben
05.07.2021 11:39:06
UweD
Hallo nochmal
Irgendwie verstehe ich nicht, was du machst.
Ich trage den kopierten Link aus der Datei D:/EMDB/HTML/index.html ein.
zb. Der rosarote Panther 2 (2009).
Was denn nun
D:/EMDB/HTML/index.html oder Der rosarote Panther 2 (2009).
Das eine ist ein Link zu einer zu einer (internen)-website
das andere ein reiner Text
Beschreibe mal Schritt für Schritt was du machst,
in welchem Dokument oder sonstwo was machst
und was da steht, bzw in die Zwischenablage genommen wird.
LG

305 Forumthreads zu ähnlichen Themen

Letzte beschriebene Zeile suchen
Thomas3

Guten Morgen zusammen,
ich muß aus über 1000 Listen Daten auslesen. Das ist kein Problem.
Jede Liste sollte so beschrieben werden, dass ab Zeile 13 bis je nach Eintragungen x-Zeile Spalte O gefüllt ist.
In der Spalte 1 ist in der Datenliste eine Formel hinterlegt, die sichtbar aut...
19.08.2008 08:29:00
Thread-ID: 1002780
10 Beiträge
Anzeige
Sortieren bis zum letzten Eintrag
Werner

Hallo allerseits,
habe ein Problem beim Sortieren einer Tabelle. Diese besteht aus Zellen von A2:X200.
A:A =Lfd.-Nr. B:B Vorname, Name C:C Familienname ....
Zellen der Spalte C beinhalten Formel zum Trennen aus Einträgen der Spalte B.
Nach Markierung Bereich A2:X200 und ansch...
09.09.2008 20:45:00
Thread-ID: 1008577
6 Beiträge
aktive Zelle soll in Spalte "L" springen
Karsten

Hallo... ,
Suche folgenden Makrobefehl:
Die aktive Zelle soll in der Zeile bleiben, in der sie sich befindet, allerdings nach Spalte "L" springen.
Danke für eure Hilfe!
Gruß
Karsten
03.10.2008 16:34:44
Thread-ID: 1014058
3 Beiträge
Anzeige
Von aktiver Zelle in Spalte A springen
Susi

Hallo liebe Excel-Freunde,
wie ich in einer Tabelle die aktive Zelle ermitteln kann, weiß ich schon.
Von dieser aktiven Zelle aus (z.B. D10) soll nun der Wert in Spalte A dieser Zeile (hier also A10) ermittelt werden und in eine andere Zelle (z.B. A1) übertragen werden.
Leider kann...
16.10.2008 12:36:20
Thread-ID: 1016826
3 Beiträge
VBA - Summe unter letzter Zeile bilden
mgr

hallihallo!
ich hab jetzt schon ziemlich lang rumgesucht, komm aber leider nicht zum durchbruch. dabei - so unterstelle ich - hab ich ein problem, das schon viele gehabt haben müssten und das wahrscheinlich auch nicht unlösbar ist.
ich habe eine tabelle mit einer variablen anzahl von ze...
07.11.2008 13:39:07
Thread-ID: 1022657
3 Beiträge
Max,Min, Mittelwert von letzter Zeile
letzter

Hallo
Ich habe in einer Tabelle Temperaturwerte die jeden Tag ergänzt werden. Nun möchte ich für den jeweils letzten eingetragenen Tag die Min, Max und Mittelwerte angezeigt bekommen. Kann ich das ohne VBA mit den Excel Funktionen lösen, das immer die letzte Zeile verwendet wird?
Zude...
08.01.2009 08:53:00
Thread-ID: 1037754
3 Beiträge
VBA letzte Zeile Ermitteln
Gerhard

Hallo!
Habe ein kleines Problem. Lasse über VBA die letztz Zeile ermitteln.
intPosAktionNummerEnde = Range("K65536").End(xlUp).Offset(0, 0).Row
Das funktioniert immer nur jetzt habe ich in den Zellen eine Formel stehen, die soll aber nicht gezählt werden nur wenn eine Zahl drinnen s...
14.01.2009 17:52:00
Thread-ID: 1039758
5 Beiträge
In erste freie Spalte springen
Thomas

Hallo Exelgemeinde,
Ich möchte per Schaltbutton in die erste freie Spalte im Bereich CU 8 bis GF 8 springen.
Ist das möglich, und wie müßte das Makro dafür sein ?
Wäre schön wenn mir jemand weiterhelfen könnte.
Gruß Thomas
19.01.2009 16:48:17
Thread-ID: 1041558
3 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox

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
9
8
5
2
3
2
2
2
4
2
7
4
3
4
3
1
4
2
3
7
2
2
6
2
19