ligegyldigt om det er store eller små bogstaver

f.eks
If strbox.ToUpper() = lstBox.ToUpper() Then

Der er ikke noget som hedder strbox

det virker ihvertfald ikke.


min sub ser sådan ud. Det er først i anden if store og små bogstaver ikke skal betyde noget.

Sub FindPostNRelBY()
Dim TjekCell As Range
Dim DestCell As Range

Sheets("Data").Activate
Range("j2").Activate
Do Until ActiveCell.Offset(0, -7).Value = IsEmpty(ActiveCell)

If ActiveCell.Value = "" Then



Set TjekCell = ActiveCell.Offset(0, 1)
Set DestCell = ActiveCell

' i nedenstående if skal små og store bogstaver ikke betyde noget.

Range("a2").Activate
    Do Until ActiveCell.Value = ""
        If sActiveCell.Offset(0, 1).Value = TjekCell Then
          Selection.Copy
          Sheets("Data").Activate
          DestCell.Activate
          ActiveSheet.Paste
          ActiveCell.Offset(1, 0).Activate
        Else
          ActiveCell.Offset(1, 0).Activate
'ikke færdig


End If

De findes heller ikke, blot eksempel.. du .ToUpper() er en metode du kan kalde på string.

Jeg går ud fra TjekCell er en string.

        If sActiveCell.Offset(0, 1).Value.ToUpper() = TjekCell.ToUpper() Then

nej tjekcell er ikke string, men en reference til en anden celle. se øverst brugt som Range.

VBA eller VB.NET ??

:-)

VBA