„Shazam_Import.vba“ hinzufügen

Shazam_Import.vba

@@ -0,0 +1,40 @@
+Sub Shazam_Import()
+
+'
+    Columns("A:A").Select
+    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
+        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
+        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
+        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
+        TrailingMinusNumbers:=True
+    Rows("1:1").Select
+    Selection.Delete Shift:=xlUp
+    Columns("A:F").Select
+    Selection.AutoFilter
+    Range("A1:F1").Select
+    With Selection.Interior
+        .Pattern = xlSolid
+        .PatternColorIndex = xlAutomatic
+        .ThemeColor = xlThemeColorDark2
+        .TintAndShade = 0
+        .PatternTintAndShade = 0
+    End With
+    Columns("A:F").Select
+    ActiveSheet.Range("$A$1:$F$99999").RemoveDuplicates Columns:=6, Header:= _
+        xlYes
+  Columns("E:E").Select
+  Dim Cell As Range
+  For Each Cell In Intersect(Selection, ActiveSheet.UsedRange)
+    If Cell <> "" Then
+      ActiveSheet.Hyperlinks.Add Cell, Cell.Value
+    End If
+  Next
+End Sub
+
+
+
+
+
+
+
+