Vba: so legen sie den wert einer zelle in einem anderen blatt fest

Sie können in VBA die folgenden Methoden verwenden, um den Zellenwert in einem anderen Blatt festzulegen:

Methode 1: Legen Sie einen Zellenwert in einem anderen Blatt fest

 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

Dieses spezielle Makro setzt den Wert der Zelle A2 in Sheet2 auf den Wert der Zelle A2 in Sheet1 .

Methode 2: Legen Sie mehrere Zellwerte in einem anderen Blatt fest

 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

Dieses spezielle Makro setzt den Wert jeder Zelle im Bereich A2:A11 in Sheet2 so, dass er dem Wert jeder Zelle im Bereich A2:A11 in Sheet1 entspricht.

Die folgenden Beispiele zeigen, wie die einzelnen Methoden in der Praxis angewendet werden.

Beispiel 1: Legen Sie einen Zellenwert in einem anderen Blatt fest

Angenommen, wir haben das folgende Blatt namens Blatt1 , das die Namen verschiedener Basketballmannschaften enthält:

Und nehmen wir an, wir haben Sheet2 , das nur eine Kopfzeile enthält:

Wir können das folgende Makro erstellen, um den Wert von Zelle A2 von Sheet2 auf den Wert von Zelle A2 von Sheet1 zu setzen:

 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

Wenn wir dieses Makro ausführen, können wir sehen, dass der Wert von Zelle A2 von Sheet2 jetzt auf „Mavs“ gesetzt ist, was dem Wert von Zelle A2 von Sheet1 entspricht:

Beispiel 2: Legen Sie mehrere Zellwerte in einem anderen Blatt fest

Angenommen, wir möchten den Wert jeder Zelle im Bereich A2:A11 von Sheet2 so festlegen, dass er dem Wert jeder Zelle im Bereich A2:A11 von Sheet1 entspricht.

Dazu können wir das folgende Makro erstellen:

 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

Wenn wir dieses Makro ausführen, können wir sehen, dass die Werte im Bereich A2:A11 von Sheet2 jetzt auf die gleichen Werte wie die Werte im Bereich A2:A11 von Sheet1 eingestellt sind:

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So finden Sie die zuletzt verwendete Zeile
VBA: So zählen Sie die Anzahl der Zeilen im Bereich
VBA: So zählen Sie die Anzahl der verwendeten Spalten