Projekt-Anfragen: Tel: 07022/9319004 info@CodeDocu.de Software Entwicklung in C# WPF Asp.Net Core Vba Excel Word SQL-Server EF Linq, UWP Net
#

Download:

Datei 1: Vorlage_Ebay_Linkliste_02.xlsm

Excel Vorlage: Link-Sammlung vom Browser in Excel Liste Tabelle umwandeln


Die Excel Vorlage wandelt Links, die Sie unter dem Google Chrome Browser zusammengestellt und kopiert haben,
in eine komfortable Excel Liste oder formatierte Tabelle um.
Die Tabelle können Sie in jedem weiteren Microsoft Office oder anderem üblichen Editor einfügen.

Als zusätzliches Feature, werden Strings und Text Anteile ausgetauscht und zur Ansicht verbessert.



Die Excel Vorlage hat einen Eingabe-Bereich, in dem Sie Texte eingeben können, die dann in den Angezeigten Links automatisch ersetzt werden



Die Excel Datei liegt hier zum Download bereit.
Der vba-Code liegt als Code in der Code-Datei dabei. Sie können den vba Code auch selbst prüfen und optimieren.
Vba Code (kein Makro)

Option Explicit On

Sub convert_in_Link()
'-----------< convert_in_Link() >-----------
'*convert Column1 into Links
'*Links like "http://www.ebay-kleinanzeigen.de/s-anzeige/schreibtisch-mit-2-unterstellkontainern/361009513-93-8101"
Dim iRow As Integer
Dim sLink As String
Dim sTitle As String
For iRow = 2 To 1000
Range("B" & iRow).Select
sLink = ActiveCell.Text

'< Kontrolle >
If sLink Like "" Then Exit For
'</ Kontrolle >

sTitle = sLink
'< Title >
sTitle = fl_Check_Replaces(sTitle)
If InStr(1, sTitle, "'", vbBinaryCompare) = 1 Then sTitle = Mid(sTitle, 2)
If InStr(1, sTitle, """", vbBinaryCompare) = 1 Then sTitle = Mid(sTitle, 2)
If InStr(1, sTitle, "+", vbBinaryCompare) = 1 Then sTitle = Mid(sTitle, 2)
If InStr(1, sTitle, "+", vbBinaryCompare) = 1 Then sTitle = Mid(sTitle, 2)
If InStr(1, sTitle, "-", vbBinaryCompare) = 1 Then sTitle = Mid(sTitle, 2)
If InStr(1, sTitle, "=", vbBinaryCompare) = 1 Then sTitle = Mid(sTitle, 2)
If InStr(1, sTitle, ":", vbBinaryCompare) = 1 Then sTitle = Mid(sTitle, 2)
If InStr(1, sTitle, "*", vbBinaryCompare) = 1 Then sTitle = Mid(sTitle, 2)
sTitle = Trim(sTitle)
'</ Title >

'< Setze Link >
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=sLink, TextToDisplay:=sTitle
'</ Setze Link >
Next
'-----------</ convert_in_Link() >-----------
End Sub


Private Function fl_Check_Replaces(sText As String) As String
'-----------< fl_Check_Replaces() >-----------
'*kleiner Durchlauf durch arrReplaces
'*durchsuche alle Ersetzungen
'< Kontrolle >
If sText Like "" Then Exit Function
'</ Kontrolle >

'< Range aus Variable ermitteln >
Dim arrRange As Range
Set arrRange = Names("arrReplaces").RefersToRange
'</ Range aus Variable ermitteln >

'< Row-Count ermitteln >
Dim iRows As Integer
iRows = arrRange.Rows.Count
'</ Row-Count ermitteln >

'---< @Loop: Range.Rows >---
Dim varCell As Range 'eine Zelle ist Range mit Groesse 1
Dim iRow As Integer
For iRow = 1 To iRows
'--< Row bearbeiten >--
Set varCell = arrRange.Cells(iRow, 1) 'Spalte 1

Dim sReplace_From As String

'< Wert holen >
sReplace_From = varCell.Text
'</ Wert holen >

'--< Wert austauschen >--
If Not sReplace_From Like "" Then
Dim sReplace_To As String
sReplace_To = arrRange.Cells(iRow, 2)
'< tauschen >
sText = Replace(sText, sReplace_From, sReplace_To & " ", , , vbTextCompare)
'</ tauschen >
End If
'--</ Wert austauschen >--

'--</ Row bearbeiten >--
Next
'---</ @Loop: Range.Rows >---

'< Ausgabe >
fl_Check_Replaces = sText
'</ Ausgabe >

'-----------</ fl_Check_Replaces() >-----------
End Function



als Video Tutorial:



*zur Info: ich bin freiberuflicher Software-Entwickler (Freelancer) im Großraum Stuttgart und schreibe
und entwickle Programme in Microsoft Office Produkten (Microsoft Excel, Access 100%, Word),
höheren Programmiersprachen (C#, WPF, UWP, WinForms, vb.Net) und Web (Asp.Net).
Als Datenbanken kommen SQL-Server und Access zum Einsatz
Mobile
»
Excel Frequenzen zu Pulsweite umrechnen
»
Excel: PWM Puls bei Frequenz berechnen
»
Vorlage Flächenberechnung in Excel
»
Excel: Stundenzettel Kalenderaufschrieb als Download Vorlage
»
Excel : Werte kodieren mit HASH Funktionen SHA256
»
Excel : Nummern Anonymizieren und Pseudonymizieren
»
Excel Formulare in eine Excel Datenbank einlesen und verwalten
»
Excel: Umwandeln von XML zu einfachen Text Werte Paaren
»
Excel Word: mit Excel einen Serienbrief in Word erstellen per vba Code
»
Excel Vorlage: Link-Sammlung vom Browser in Excel Liste Tabelle umwandeln 02

.

Jobs, Projekte, Angebote für Freiberufler, Selbstständig an Info@CodeDocu.de