VBA-Code Spalte einfügen

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
beim Einfügen von Spalten hat Target 1.048.576 Elemente - und die kannst Du nicht mit Target.Value vergleichen.
Am Einfachsten: Zu Beginn des Codes auf Target.Count abfragen - ist der Wert größer 1: Exit Sub
Zu Deiner 2. Frage:
Du darfst die Spalten halt nicht fest im Code verdrahten (3,5,7). Entweder lassen sich die gewünschten Spalten z.B. per eindeutigen Spaltenüberschriften dynamisch ermitteln, oder Du änderst sie halt stets manuell, oder Du packst sie in einen String, den Du dann änderst / erweiterst, nach diesem Muster:


Private Sub Worksheet_Change(ByVal Target As Range)
Const strSPALTEN As String = "3,5,7,"
If InStr(1, strSPALTEN, Target.Column & ",") = 0 Then Exit Sub
'hier Dein weiterer Code
End Sub

VG, Boris

Private Sub Worksheet_Change(ByVal Target As Range) Const strSPALTEN As String = "3,5,7," If InStr(1, strSPALTEN, Target.Column & ",") = 0 Then Exit Sub 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_Change(ByVal Target As Range) Const strSPALTEN As String = "3,5,7," If InStr(1, strSPALTEN, Target.Column & ",") = 0 Then Exit Sub Else 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 Else TargetOldText = "" End if End Sub

Dim blockedEvent As Boolean Dim TargetOldText As String Private Sub Worksheet_Change(ByVal Target As Range) Const strSPALTEN As String = "3,5,7," If InStr(1, strSPALTEN, Target.Column & ",") 0 Then 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 Else TargetOldText = "" End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Const strSPALTEN As String = "3,5,7," If InStr(1, strSPALTEN, Target.Column & ",") 0 Then 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 Else TargetOldText = "" End If 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)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA-Code Spalte einfügen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread