Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Abgleich Nur bis zu einer Bestimmten Spalte
01.06.2018 11:05:23
Christian
Hallo,
bei folgendem VBA Code:
Private Sub CommandButton1_Click()
Dim TB1, TB2, TB3, i As Double, j As Integer, LR1 As Double, LC1 As Integer
Dim Zeile As Double, Spalte As Integer
Const Rot = -167769619
Const Schwarz = -1677696190
Const strLeer = "(Leer)"
Set TB1 = Sheets("Liste")
Set TB2 = Sheets("Basis_Ausstattung_A")
Set TB3 = Sheets("Sonder_Ausstattung_B")
With TB1
LR1 = .Cells(.Rows.Count, "B").End(xlUp).Row 'letzte Zeile der Spalte
LC1 = .Cells.SpecialCells(xlCellTypeLastCell).Column   'Letzte Spalte des gesamten  _
Blattes
With .Range(.Cells(2, 6), .Cells(LR1, LC1))
.Font.Color = Gruen
.FormulaR1C1 = "=IFERROR(VLOOKUP(RC2," & TB2.Name & "!C2:C36,COLUMN(RC[-3]),0),"""") _
_
" 'Sverweis auf TB2
.Value = .Value 'Formel in Werte tauschen
End With
For j = 6 To LC1
For i = 2 To LR1
If .Cells(i, j)  strLeer And .Cells(i, j)  "" Then
If WorksheetFunction.CountIf(TB3.Columns(1), .Cells(i, 1)) > 0 Then  ' ist   _
_
Nr überhaupt da
Zeile = WorksheetFunction.Match(.Cells(i, 1), TB3.Columns(1), 0) ' in   _
_
welcher Zeile
If WorksheetFunction.CountIf(TB3.Rows(Zeile), Left(.Cells(i, j), 2) & "* _
_
") > 0 Then   ' ist links2 in Zeile
Spalte = WorksheetFunction.Match(Left(.Cells(i, j), 2) & "*", TB3.  _
_
Rows(Zeile), 0) ' in welcher Spalte
With .Cells(i, j)
.Value = TB3.Cells(Zeile, Spalte) 'Wert tauschen
.Font.Color = Rot ' färben
End With
End If
End If
Else
.Cells(i, j).Font.ColorIndex = xlAutomatic
End If
Next i
Next j
End With
End Sub

in der Zeile:
LC1 = .Cells.SpecialCells(xlCellTypeLastCell).Column 'Letzte Spalte des gesamten Blattes
Alle Spalten nimmt. Ich möchte aber das er nur bis Spalte AK (37) den Befehl ausführt.
Für Hilfe wäre ich sehr Dankbar.
Gruß
Christian

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abgleich Nur bis zu einer Bestimmten Spalte
01.06.2018 11:08:39
Hajo_Zi
Hallo Christian,
LC1= Application.Min(37,.Cells.SpecialCells(xlCellTypeLastCell).Column)

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
AW: Abgleich Nur bis zu einer Bestimmten Spalte
01.06.2018 11:08:40
Hajo_Zi
Hallo Christian,
LC1= Application.Min(37,.Cells.SpecialCells(xlCellTypeLastCell).Column)

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
AW: Abgleich Nur bis zu einer Bestimmten Spalte
01.06.2018 11:13:16
Christian
Moin Hajo,
super vielen Dank läuft.
Gruß
Christian
Danke für Rückmeldung oT
01.06.2018 14:52:49
Hajo_Zi
Anzeige

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige