wie geben Sie einen Bereich in vba verwenden von Wert in einer Zelle in excel

Ich bin sehr neu in vba und im Grunde nur verwenden, wenn die änderung einer Reihe mit dem Wert (nachdem Sie zuvor aufgezeichnete Skript über ein makro in excel). Da ich das hinzufügen/löschen von Zeilen in excel habe ich zu gehen, um den vba-Skript und manuell aktualisieren Sie die Palette Artikel. Also, wenn mein Angebot auf dem excel-Blatt hat sich erweitert von der A2:R83 A2.R84 hier ist einer der Teile, die ich aktualisieren von:

Range("A2:R83").Select

Range("A2:R84").Select

Gibt es eine Möglichkeit, kann ich das angeben einer Zelle mit vba können Sie nehmen Sie die range-Werte aus? zB kann ich auf der excel-Arbeitsblatt-Zelle X1 Eingang A2 und in der Zelle Y2 Eingang R84 und die vba-script Referenz diese Zellen, um zu bestimmen, die aktuelle Reihe?

Jede Hilfe dankbar!

InformationsquelleAutor siddharth_001 | 2015-02-05

4

Ich glaube, das wird tun, was Sie wollen, :
```
Sub test()
  Dim s1 As String, s2 As String

  s1 = Sheet1.Range("A1"): s2 = Sheet1.Range("B1")

  Range(s1 & ":" & s2).Select
End Sub
```
Werden Sie jedoch in Schwierigkeiten, wenn die Werte in A1 und B1 sind nicht gültig cell-Namen, so dass einige input-Validierung kann eine gute Idee sein.

Danke!!! Dieses funktioniert perfekt!! ja, ich verstehe, dass es ein Problem sein, wenn die Werte nicht gültige, aber es dauert nur eine Sekunde oder so, diese zu aktualisieren, als das Skript selbst. Das vollständige basic-code sieht nun folgendermaßen aus: Dim s1 As String, s2 As String s1 = Sheet1.Range("F1"): s2 = Sheet1.Range("G1") Range(s1 & ":" & s2).Wählen Sie Mit ActiveWorkbook.PublishObjects.Add(xlSourceRange, _ "C:\Users\jim\Desktop\macrotest.mht", "Tabelle1", s1 & ":" & s2, _ xlHtmlStatic, "macrotest_26340", "") .Publish (True) .Für Automatisches Wiederveröffentlichen = False End With End Sub

InformationsquelleAutor eirikdaude
1

Fand ich, dass es möglich ist, um die Validierung range dynamisch mit INDIREKT.

1.- Im Speicherort, den Sie wählen (im Beispiel nutze ich X1 in Tabelle1) setzen
```
="'Sheet1'!"&"A2:"&"R"&COUNTA(R1:R2000)
```
Legte ich R2000 zu viel Raum, wenn die Reichweite wächst, ändern sich auf eine Größe, die zu Ihnen passt. Das Ergebnis dieser Formel wird eine Reihe. Seine Größe zu ändern, jedes mal wenn Sie etwas neues in R, weil der Counta.

2.- In der überprüfung Abschnitt legen Sie diese Formel, wenn Sie es aufzeichnen.
```
=INDIRECT('Sheet'!$X$1)  
```
Dies macht die Validierung Lesen Sie die Auswahl basierend auf, was x1, sagt.

InformationsquelleAutor Excel Sigma

Dieser Figur wird Ihre Reichweite,

Sub SelectRng()
    Dim Rws As Long, Rng As Range

    Rws = Cells(Rows.Count, "A").End(xlUp).Row
    Set Rng = Range(Cells(2, "A"), Cells(Rws, "R"))


    Rng.Select    'or whatever you want to do with it.


End Sub

InformationsquelleAutor Davesexcel

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.