Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1256to1260
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
1256to1260
1256to1260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle unter Hyperlink kopieren

Zelle unter Hyperlink kopieren
Tom
Hallo zusammen,
in der beigefügten Datei sind mehrere hundert Geb-Daten hinterlegt. Als Beispiel nur zwei.
Ich möchte, dass jeweils das Datum unter dem Namen (=Hyperlink) rechts neben den Namen kopiert wird.
Und das für das ganze Arbeitsblatt.
Ist so etwas machbar? Bin leider bisher nur mit Makrorekorder vertraut ...
https://www.herber.de/bbs/user/79507.xlsx
Danke vorab
TOM

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Zelle unter Hyperlink kopieren, Rest löschen
22.03.2012 19:55:41
Erich
Hi Tom,
probier mal 

Option Explicit
Sub GebdatNeben()
Dim rngC As Range, rngDel As Range
For Each rngC In ActiveSheet.UsedRange
If Not IsEmpty(rngC) Then
If rngC.Hyperlinks.Count > 0 Then
rngC.Offset(, 1) = rngC.Offset(1).Value
Else
If rngDel Is Nothing Then
Set rngDel = rngC
Else
Set rngDel = Union(rngDel, rngC)
End If
End If
End If
Next rngC
If Not rngDel Is Nothing Then rngDel.EntireRow.Delete
End Sub
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich
nur in Spalte A
22.03.2012 20:01:51
Erich
Hi Tom,
wenn UsedRange mehr als Spalte A umfassen kann, dann besser
For Each rngC In ActiveSheet.UsedRange.Columns(1).Cells
statt
For Each rngC In ActiveSheet.UsedRange
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich
Anzeige

302 Forumthreads zu ähnlichen Themen

Gültigkeitsprüfung in Bezug auf andere Zelle
Erwin

Geschätztes Forum!
Ich möchte in Zelle A1 eine Gültigkeitsprüfung einfügen.
Die Gültigkeit soll mir dort Eingaben bis zur Höchstzahl der in A2 vorhandenen Zahl erlauben.
zB. Wenn in A2 die Zahl 5 steht, soll die Eingabe in A1 bis höchstens bis zur Zahl 5 (also 1,2,3,4,5) erlaubt sei...
14.08.2008 14:06:00
Thread-ID: 1001854
5 Beiträge
Anzeige
Zelle in andere Tabelle mit Button kopieren
Benny

Hallo Zusammen!
Kann mir jemand weiterhelfen? Wie kann ich die unten stehende Formel entsprechend anpassen?
Private Sub CommandButton2_Click() Dim wks As Worksheet Set wks = Worksheets("Änderungsanträge") wks.Range("C3") = wks.Range("D3") End Sub
Danke im Voraus!
Benny
07.10.2008 10:06:48
Thread-ID: 1014629
4 Beiträge
Hyperlink soll je nach KW auf andere Datei verw.
Alex

Hallo,
gleich einmal vorweg, ich bin neu im Forum und hoffe, dass ihr mir bei meinem kleinen Hyperlink- Problem helfen könnt.
Folgende Aufgabe sollte gelöst werden.
Ich möchte einen Hyperlink einrichten, der automatisch je nach Kalenderwoche auf das entsprechende Bestellformular ve...
11.10.2008 12:37:00
Thread-ID: 1015732
3 Beiträge
Anzeige
Hintergrundfarbe auf Grund Wert in anderer Zelle
Roger

Guten Morgen,
ich suche eine Lösung für folgendes Problem: In der Spalte F von Zeile 4 bis 300 habe ich folgende werte stehen: entweder nichts, Ja oder Nein. Nun will ich zwecks übersicht in Spalte A in den Zellen 4 bis 300 Farben als Hintergurnd haben. Wenn in Zelle F4 nichts steht, dann i...
18.12.2008 08:21:58
Thread-ID: 1033737
10 Beiträge
Inhalt Zelle/Text mit "=" kopieren
Go

Hallo AlleMiteinander,
ich bin auf folgendes Problem gestossen, dessen Lösung ich suche:
Ein bestimmter Bereich eines Worksheets wird mit Textdaten beschrieben (deren Ursprung via CopyPaste aus einer anderen Anwendung stammen).
Diese werden etwas bereinigt und sollen anschliesend in...
20.12.2008 01:12:00
Thread-ID: 1034334
4 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
Variabler Zellenbezug aus anderer Zelle
Carsten

Hallo Zusammen,
ich hoffe, jemand kann mir weiterhelfen. Ist bestimmt nur ne Sache von einer Minute, aber ich komme einfach nicht drauf.
Ich habe 2 Tabellenblätter. In Tabellenblatt 2 will ich in einer Zelle den Wert aus Zelle A1 aus dem 1 Tabellenblatt auslesen. Soweit kein Problem, da...
28.02.2009 12:11:54
Thread-ID: 1055036
12 Beiträge
Zellen mit Hyperlinks, umbennen?
nino

Hallo, ich bastle seit eine Woche an meiner Excel Tabellen, muss auch sagen, ich bin (mit Euere Hilfe)ziemlich weit gekommen.
Habe aber ein Paar frage an Experte;
Momentan bin ich bei: =HYPERLINK(Rechnung! D5;"Springe zu D5")
bei anklicken eine Zelle in Tabelle 3 mit diese Forme...
09.03.2009 23:01:34
Thread-ID: 1058393
2 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
4
5
3
2
5
9
3
7
11
1
3
5
20
14
2
8
2
3
3
4
4
1
2
2
2