VBA-Code Spalte einfügen

Hallo zusammen,
folgendes Problem: Wenn ich manuell eine neue Spalte einfüge erhalte ich die Fehlermeldung Laufzeitfehler 13: Typen unverträglich...Gelb markiert wird folgende Zeile:
If Not TargetOldText = "" And Not Target.Value = "" Then
nach debuggen klappt es zwar wieder, aber wenn ich die spalte direkt vor eine beschriebene spalte einfüge ist die neue spalte von dem Code betroffen (es bleiben also in meinem Fall die Spalten 3,5 to7) ich würde aber gerne, dass sich der code/die neue Spalte entsprechend anpasst.
Beispiel ich füge die Spalte vor 3 ein, dann müsste der code entsprechend heißen 4,6-8....ist das automatisiert irgendwie möglich?
Mein Code lautet:
Option Explicit
Dim blockedEvent As Boolean
Dim TargetOldText As String


Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 3, 5 To 7 'Spalten C, E bis G
If Not blockedEvent Then
blockedEvent = True
If Not TargetOldText = "" And Not Target.Value = "" Then
Target.Value = TargetOldText & ", " & Target.Value
Else
Target.Value = Target.Value
End If
TargetOldText = Target.Value
Else
blockedEvent = False
End If
Case Else
TargetOldText = ""
End Select
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Select Case Target.Column
Case 3, 5 To 7 'Spalten C, E bis G
TargetOldText = Target.Value
Case Else
'do nothing
End Select
End Sub

Habe mittlerwile diese Formel aus dem Internet.
Allerdings bin ich auch da zu blöd um es einfach auf alle Zellen in meiner Mappe zu beziehen. (Also nicht nur Spalte 71) Hat da jemden eine Lösung, wie der code umgeschrieben werden muss?
Und Ich erhalte des öfteren den Laufzeitfehler 13: Typen unverträglich und diese Zeile im Code ist gelb markiert strTarget = Trim(Target.Value
Nach debuggen läuft es dann wieder.
Const TargetColumn As Long = 71 ' Ziele in Spalte 71.
Const bolSorted As Boolean = True ' Legt fest, ob die Werte noch sortiert werden.
Dim blockedEvent As Boolean
Dim TargetOldText As String


Private Sub Worksheet_Change(ByVal Target As Range)
Dim strResult As String
Dim strTarget As String
Dim arrSorted As Variant
Dim i As Long
If Target.Column = TargetColumn Then
  strTarget = Trim(Target.Value)
If Not blockedEvent Then
blockedEvent = True
If Not TargetOldText = "" And Not Target.Value = "" Then
If InStr(1, TargetOldText, Target.Value) > 0 Then
strResult = Replace(TargetOldText, ", " & strTarget, "")
strResult = Replace(strResult, strTarget & ", ", "")
strResult = Replace(strResult, strTarget, "")
Else
strResult = TargetOldText & ", " & Target.Value
End If
If bolSorted Then
arrSorted = Split(strResult, ", ")
strResult = ""
Call Selectionsort(arrSorted)
For i = 0 To UBound(arrSorted)
strResult = strResult & arrSorted(i) & ", "
Next i
If Len(strResult) > 1 Then _
strResult = Left$(strResult, Len(strResult) - 2)
End If
Target.Value = strResult
Else
Target.Value = Target.Value
End If
TargetOldText = Target.Value
Else
blockedEvent = False
End If
Else
TargetOldText = ""
End If
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Column = TargetColumn Then
TargetOldText = Target.Value
End If
[TargetZeile] = Target.Row
[TargetSpalte] = Target.Column
[TargetValue] = Target.Value
End Sub


Private Sub Selectionsort(ByRef data As Variant)
Dim OG&, i&, j&, k&, h As Variant
OG = UBound(data)
For i = 0 To OG - 1
h = data(i)
k = i
For j = i + 1 To OG
If data(j)

Forumthread: VBA-Code Spalte einfügen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

VBA-Code zum Einfügen von Spalten in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)