Vba: hoe u de waarde van een cel in een ander blad instelt

U kunt de volgende methoden in VBA gebruiken om de celwaarde in een ander blad in te stellen:

Methode 1: Stel een celwaarde in op een ander blad

 Sub SetCellAnotherSheet()
    
    Sun wks1 As Worksheet, wks2 As Worksheet
    
    'specify sheets to use
    Set wks1 = Sheets(" Sheet1 ")
    Set wks2 = Sheets(" Sheet2 ")
    
    'set cell value in Sheet2 equal to cell value in Sheet1
    wks2.Range(" A2 ").Value = wks1.Range(" A2 ").Value
    
End Sub

Deze specifieke macro zorgt ervoor dat de waarde van cel A2 in Blad2 gelijk is aan de waarde van cel A2 in Blad1 .

Methode 2: Stel meerdere celwaarden in op een ander blad

 Sub SetCellAnotherSheet()
    
    Sun wks1 As Worksheet, wks2 As Worksheet
    
    'specify sheets to use
    Set wks1 = Sheets(" Sheet1 ")
    Set wks2 = Sheets(" Sheet2 ")
    
    'set cell range in Sheet2 equal to cell range in Sheet1
    wks2.Range(" A2:A11 ").Value = wks1.Range(" A2:A11 ").Value
    
End Sub

Deze specifieke macro zorgt ervoor dat de waarde van elke cel in het bereik A2:A11 in Blad2 gelijk is aan de waarde van elke cel in het bereik A2:A11 in Blad1 .

De volgende voorbeelden laten zien hoe u elke methode in de praktijk kunt gebruiken.

Voorbeeld 1: Stel een celwaarde in een ander blad in

Stel dat we het volgende blad hebben met de naam Blad1 , dat de namen van verschillende basketbalteams bevat:

En stel dat we Blad2 hebben dat slechts één koprij bevat:

We kunnen de volgende macro maken om de waarde van cel A2 van Blad2 gelijk te stellen aan de waarde van cel A2 van Blad1 :

 Sub SetCellAnotherSheet()
    
    Sun wks1 As Worksheet, wks2 As Worksheet
    
    'specify sheets to use
    Set wks1 = Sheets(" Sheet1 ")
    Set wks2 = Sheets(" Sheet2 ")
    
    'set cell value in Sheet2 equal to cell value in Sheet1
    wks2.Range(" A2 ").Value = wks1.Range(" A2 ").Value
    
End Sub

Wanneer we deze macro uitvoeren, kunnen we zien dat de waarde van cel A2 van Blad2 nu is ingesteld op „Mavs“, wat overeenkomt met de waarde van cel A2 van Blad1 :

Voorbeeld 2: Stel meerdere celwaarden in op een ander blad

Stel dat we de waarde van elke cel in het bereik A2:A11 van Blad2 gelijk willen stellen aan elke cel in het bereik A2:A11 van Blad1 .

We kunnen hiervoor de volgende macro maken:

 Sub SetCellAnotherSheet()
    
    Sun wks1 As Worksheet, wks2 As Worksheet
    
    'specify sheets to use
    Set wks1 = Sheets(" Sheet1 ")
    Set wks2 = Sheets(" Sheet2 ")
    
    'set cell range in Sheet2 equal to cell range in Sheet1
    wks2.Range(" A2:A11 ").Value = wks1.Range(" A2:A11 ").Value
    
End Sub

Wanneer we deze macro uitvoeren, kunnen we zien dat de waarden in het bereik A2:A11 van Blad2 nu hetzelfde zijn ingesteld als de waarden in het bereik A2:A11 van Blad1 :

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

VBA: hoe u de laatst gebruikte regel kunt vinden
VBA: het aantal rijen binnen bereik tellen
VBA: het aantal gebruikte kolommen tellen