Hilfe für Excel-datei mit VBA
08.05.2014 02:19:01
Haarald
Ich hatte von jemandem eine Datei bekommen mit VBA-Code, den ich gar nicht verstehe. Jetzt müsste ich die Datei etwas abändern, d.h. ein weiteres Feld hinzufügen.
Da ich mich im Code nicht auskenne, bekomme ich das nicht hin und hoffe auf Hilfe.
die Datei splittet einen Betrag in kleinere Beträge unter Personen auf. Jetzt müsste zwischen dem Feld "Datum" und "Betrag" noch ein Feld "Bezeichnung" hinzukommen.
Wäre nett, wenn mir da jemand helfen könnte. Ich habe keine VBA-Kenntnisse und nur ein wenig Excel.
Der Code sieht folgendermaßen aus:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngB As Range, rngC As Range, rngR As Range, arrR
Dim ii As Long, lngX As Long, lngY As Long, dblE As Double
Set rngB = Range("B:AP")
If Not Intersect(Target, rngB) Is Nothing Then
For Each rngC In Intersect(Target, rngB)
If rngC.Column = 2 Or rngC.Column Mod 2 = 1 Then
Set rngR = Cells(rngC.Row, 2).Resize(, rngB.Columns.Count + 1)
arrR = rngR 'Zeile lesen
lngX = 0
For ii = 2 To UBound(arrR, 2) - 1 Step 2
If LCase$(arrR(1, ii)) = "x" Then lngX = lngX + 1 ' Anzahl x
Next ii
If lngX Datei: https://www.herber.de/bbs/user/90550.xls