), VBA Makro, einzelne Zellen kopieren und in fortlaufende Zeile einfügen, Excel Zeile kopieren und unterhalb einfügen, Tabelle in die nächste leere Zeile einfügen, Zeilen nach XWert durchsuchen und nMal in Ziel kopieren, Kopieren und Einfügen von Zeilen in ein Datenmodell in Power Pivot, Zeilen kopieren und einfügen mittels Button, Makro Zeilen kopieren und einfügen nach Bedingung. Das erlaubt es dir, die Zeile (n) auszuwählen, die du als permanente Kopfzeile behandeln möchtest. Überprüfen Sie die angewendeten Schritte. So synchronisieren Sie Excel mit der Google Docs-Tabelle. Die Definitionen werden daraufhin für alle markierten Tabellen übernommen.Excel 97, 2000 und 2002. Hinzufügen von Spalten Excel - Zeile Oberhalb einer bestimmten Zeile einfügen: Hallo und gutes neues Jahr zusammen,ich bin gerade dabei die Karteikarten für das Unternehmen meiner Eltern zu überarbeiten.Ich stehe nun vor folgendem Probleml. Meist muss man Kopf- und Fußzeile einzeln für jede neu hinzugefügte Tabelle definieren. Habe schon viele Foren durchstöbert, dabei auch... Wenn Sie nicht nur den Inhalt, sondern auch Hyperlinks kopieren und Stile in jeder zweiten Zeile formatieren möchten, sollten Sie das versuchen Filter Befehl. Betrifft: AW: Kopieren und . Wie können Sie Microsoft Excel mit voller Geschwindigkeit laufen lassen, auch wenn der Fensterfokus... Warum können Sie Bilder nicht in Excel kopieren / einfügen, aber Screenshots funktionieren? Schritt 1: Geben Sie in eine leere Spalte neben den Originaldaten ein 0,1,0,1…, 0,1.In diesem Fall geben wir die Zahlen in Spalte E ein. Hubert, Genau, es sollte dynamisch sein, je nach Wert in Spalte G. Wenn dort z.B. Wenden wir Transformationen an. r = r + copies + 1 Januar 2018. Steht jedoch eine andere Zahl dort geschieht nichts. Hast du schon mal den Code mit dem Makrorekorder aufgezeichnet, wenn du in der freigegebenen Arbeitsmappe den Blattschutz aufhebst und wieder setzt? Unterhalb einfügen geht generell nicht. Einrichten der Kopfzeile. Exit Sub Melden Sie sich an, oder erstellen Sie ein Konto. Versuch das: ich habe ein Problem das ich nicht lösen kann, und zwar: Die markierte Zeile ("Ändern Sie dies") kann im Code deklariert werden, oder Sie können sie austauschen, Set rng = ActiveCellwenn Sie möchten, dass die Zelle, in der der Benutzer arbeitet, zum Zeitpunkt der Ausführung des Makros ausgeführt wird. Letzte Zeile kopieren und darunter einfügen, (Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können. Wenn es für eine Aktion, die Sie häufig verwenden, keine Tastenkombination gibt, können Sie ein Makro aufzeichnen, um eine solche zu erstellen. Kannst mich auch direkt anmailen: Daten automatisch kopieren Um Daten von einer Zelle zu kopieren und in eine andere in Ihrem aktuellen Arbeitsblatt einzufügen, können Sie ein VBA-Makro erstellen. Ich habe ein Codefragment, das für mich funktionieren würde, ich bekomme jedoch einen externen Referenzfehler, wenn ich es ausführen. Die Wurzel des Problems besteht darin, dass diese Daten tatsächlich in zwei Zeilen pro Zeile abgelegt werden müssen, Excel jedoch Zeilen überspringt. Das Makro kann jedoch von der aktiven Zelle die nächste Zelle darunter ermitteln und über diese eine Zeile einfügen. 4. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten. Beim Einfügen von Zeilen und Spalten haben Sie zwei Möglichkeiten: Sie können über die vorhandene Zeile (oder Spalte) einfügen oder eine neue Zeile (oder Spalte) einfügen. 1 kurin123 2016-03-31 в 20:41 Wählen Sie die Zelle aus, aus der Sie den Kopiervorgang starten möchten, und führen Sie dieses Makro aus Dim myCell Set myCell = ActiveCell While ActiveCell. Ich arbeite gerade an einen Angebotsformular in Excel und habe folgendes Problem: Sie haben ein Problem mit Microsoft Word, Excel, Outlook, Access, Teams oder PowerPoint mit dem Sie einfach nicht mehr weiter kommen und Ihre Kollegen und Freund wissen auch keinen Rat? Wenn ich die Arbeitsmappe freigegeben habe, und eine Zahl in D6 eingeben, erhalte ich die Fehlermeldung. Formeln kopieren und darunter einsetzen (Spalte A-R). Drücken Sie STRG+C, um den markierten Bereich zu . Kommentare sind für den Code nicht erforderlich. Rows(r + 2).Insert Do While Not IsEmpty(Cells(r, s)), Case 2 End Select. Der Platz wird also immer reichen. Angetrieben von Discourse, beste Erfahrung mit aktiviertem JavaScript, Zeilen in Excel mit VBA kopieren, darunter einfüge. Helfe beim Thema Letzte Zeile kopieren und darunter einfügen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hi, Vorwort, ich sage, ich habe keine VBA-Erfahrung, aber ich muss diese Daten ziemlich schnell sortieren. r = r + 1 Dann bist du in unserem Forum richtig! Kennwort: Registrieren: Forum: Hilfe: Alle Foren als gelesen markieren: Banner und Co. Themen-Optionen: Ansicht: 22.10.2017, 17:37 . Damit rutscht die Summenzelle nach unten und du musst nur die Formel anpassen, falls du die Zeilen direkt oberhalb der Summenzelle einfügst. Die Zeilen. Diskutiere und helfe bei Kopieren der ganzen Zeile, wenn bestimmter Wert enthalten ist. Einfügen am gleichen... im Bereich Microsoft Office im Windows Info bei einer Lösung; Liebe Microsoft Community, ich habe mich bereits durch mehrere Foren gelesen, aber für dieses konkrete Beispiel leider keine passende Lösung... Januar 2023: In Zeile ab einem bestimmten Wert restliche Zeile kopieren und darunter einfügen. 1. If IsNumeric(Cells(r, s)) = False Then #1 UKS Uwe Küstner Hallo, füge 2 Befehlsschaltflächen (ActiveX-Steuerelemente) ein. Das geht bei allen Versionen. https://answers.microsoft.com/de-de/msoffice/forum/all/ganze-zeilen-in-eine-andere-tabelle-kopieren-wenn/fb920248-4c8c-4ed7-afd4-bc1f6c1324f6 Wie kann ich das Makro anpassen? So soll es auch sein bei der 2 1x bei der3 2x kopieren. Wähle die Zeile (n) aus, die du in eine Kopfzeile umwandeln möchtest. Insert Shift:=xlDown myCell. In der Titelleiste zeigt Excel den Zusatz " [Gruppe]" an, um die gemeinsame Markierung kenntlich zu machen. Wählen Sie nun das Menü DATEI-SEITE EINRICHTEN an. Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Boost12, 11. In diesem Beispiel wird eine Zeile über Zeile 2 eingefügt, wobei das Format aus der Zeile darunter (Zeile 3) und nicht aus der Kopfzeile kopiert wird. Ich möchte das wenn z.B. (Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.). Gibt es eine Möglichkeit, Excel 2007 automatisch zu speichern, wie dies bei MS Word der Fall ist? Möchten Sie gleich mehrere neue Zeilen in Ihre Excel-Tabelle einfügen, markieren Sie zuerst mehrere untereinanderliegende Zeilen und drücken Sie dann die Tasten "Shift" + "Ctrl" + "+". Die erste stellt sicher, dass die Spaltenüberschriften benutzerfreundlich sind. Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen. Wenn Sie Zellen kopieren, die sich in einer Zeile nebeneinander befinden, werden sie mit dieser Option in eine Spalte eingefügt. Januar 2022. Excel - Zeile Oberhalb einer bestimmten Zeile einfügen: Hallo und gutes neues Jahr zusammen,ich bin gerade dabei die Karteikarten für das Unternehmen meiner Eltern zu überarbeiten.Ich stehe nun vor folgendem Probleml. Geben Sie eine Zeile an, die Sie mehrmals kopieren und einfügen möchten, und halten Sie dann die Taste gedrückt ALT + F11Tasten, dann öffnet es die Microsoft Visual Basic für ApplikationenFenster. Klicken SieInsert> Modulund fügen Sie den folgenden Code in das Feld ein ModulFenster. Tipp: Informationen zum Einfügen von Zeilen, die Daten enthalten, finden Sie unter Kopieren und Einfügen spezifischer Zellinhalte. copies = Int(Cells(r, s) - 1) Beispielsweise ist "Produktname" viel netter als "txt_ProdNam". Excel-Zeile einfügen per Tastenkombination unter Windows Windows-Nutzer profitieren hier von recht selbsterklärenden Shortcuts zum Einfügen von Zeilen oder Spalten in Excel verwendet werden. r = r + 1 Sie haben ein Problem mit Microsoft Word, Excel, Outlook, Access, Teams oder PowerPoint mit dem Sie einfach nicht mehr weiter kommen und Ihre Kollegen und Freund wissen auch keinen Rat? Hier ist eine Funktion namens Einfügen Kopierte Zellen in Excel, wodurch die kopierten Werte schnell über der ausgewählten Zelle eingefügt werden können. Sie können auch Zeilen zu einer bestehenden Tabelle hinzufügen, indem Sie die Größe der Tabelle ändern. Rows®.Copy Ist es möglich wenn ich in einer Zelle einer Zeile z.B F2 ein P eingebe die ganze Zeile 2 sich dann automatisch nach einer bestimmten Zeile... Bestimmte Zeilen aus Excel Tabelle Kopieren, wenn Werte (Zahlen) in einer bestimmten Spalte...: Hallo, Rows(r + 1).Insert In Spalte „G“ steht „3“ = Zeile 2x kopieren und darunter einfügen Beispiel: 2. In Spalte „G“ steht „1“ = nichts kopieren Stellen Sie sicher, dass in den Zellen der Tabelle keine zusätzlichen Wagenrücklaufzeilen vorhanden sind, da andernfalls zusätzliche Zeilen in der Tabelle Excel. Vielen Dank für Dein Feedback mit dem VBA Code. Wir machen Sie gesund, reich und schlau! Wir zeigen dir, wie es geht und welche Tasten du dafür drücken musst. Dieses Thema im Forum "Microsoft Office" wurde erstellt von KunterArmstrong, 9. Ich habe eine kleine Whisky-Sammlung und habe diese in einer Excel-Liste inkl. Hubert. r = r + 3 Verschieben oder Kopieren von Zeilen oder Spalten mit der Maus. Einfaches Zusammenführen / Löschen mit Excel. In dieser Box aktivieren Sie die Option "Werte". eingefügt werden. Wählen Sie in einem Word-Dokument die Zeilen und Spalten der Tabelle aus, die Sie in ein Excel-Arbeitsblatt kopieren möchten. Was ist los? Case Else Excel zeigt hier die bereits definierten Kopf-/Fußzeilen für die erste, markierte Tabelle an. Rows(r + 1).Insert Positionieren Sie Ihre Maus auf den kleinen Griff in der rechten unteren Ecke der Tabelle. Da ich mich mit freigegebenen Arbeitsmappen nicht auskenne, habe ich gerade etwas recherchiert: Blattschutz kann man nur aufheben wenn die Arbeitsmappe. ), Letzte Zeile finden und in anderes Blatt kopieren, Zelle kopieren und in letzte Zeile einfügen, Tabelle kopieren aber nur bis letzte beschriebene Zeile, Letzte Zeile kopieren, anfügen, Kommentare und Inhalte löschen, Daten filtern, kopieren und in neuem Tabellenblatt untereinander einfügen. Kann mir hierbei jemand helfen? Auf Zeile „copies = Int(Cells(r, s) - 1)“ bekomme ich einen Run-time error ‚13‘; Type missmatch. diesen Tread: Formeln mit der Maus oder dem Trackpad kopieren. Case 1, 0 'keine Kopie also um 1 erhöhen In Tabelle 1 sollte jeweils die Aktive Zelle in die Tabelle 2 ab Spalte D2 ist das möglich? Stimmte nicht mit meinem Bildschirm überein, Ausbildung und Weiterbildung von Lehrpersonal. Dann bist du in unserem Forum richtig! So fügen Sie eine einzelne Zeile ein: Klicken Sie mit der rechten Maustaste auf die gesamte Zeile, über der Sie die neue Zeile einfügen möchten, und wählen Sie dann Zeilen einfügen aus. End Select, So ist besser: es werden gemeldet wenn eine leere Zelle auftritt oder es keine Zahl ist: 2. Vielen Dank für Deine grosse Hilfe! Die gibt es unter Entwicklertools > Einfügen. Ich las den Sortierkommentar und es dämmerte mir, dass ich die Daten erneut kopieren und nach einem eindeutigen Wert sortieren konnte, so dass alles wie erwartet eintrat - aber ich würde trotzdem gerne den VBA-Code wissen. Verknüpfung einfügen. Ich hatte doch eine andere Lösungsmöglichkeit vorgeschlagen... Der Blattschutz muss rein, weil ich die Zellen mit Formeln sperren und ausblenden will. Makro: letzte vorhandene Zeile kopieren und Nr. Mit den Tastenkombinationen STRG + SHIFT + ENDE und der Kombination STRG + U können Sie Formeln oder Werte einer Zelle effizient in die darunterliegenden Zellen kopieren. Dann das Makro ausgeführt. Halten Sie die Strg-Taste gedrückt, und markieren Sie nun die neu hinzugefügten Tabellen. Markieren Sie die Zeile oder Spalte, die verschoben oder kopiert werden soll. wo bei der Menge... Ganze Zeilen in eine andere Tabelle kopieren, wenn eine bestimmte Bedingung erfüllt ist. Bei der Bearbeitung von Arbeitsmappen kommt es immer wieder vor, dass nachträglich neue Tabellen für zusätzliche Kalkulationen oder Diagramme hinzugefügt werden. Ich habe die Tabelle verkürzt auf die letzte beschriebene Zeile. In Spalte „G“ steht „2“ = Zeile 1x kopieren und darunter einfügen Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten. Der Ursprung meines Kopiervorganges ist allerdings eine Zelle, in der 5 Textzeilen untereinander angezeigt werden und ich dies mit der Tastenkombination "C" kopieren und "V" einfügen nicht klappt. Rows®.Copy Letzte Zeile kopieren und darunter einfügen Hi, wenn das Code-Problem nur in der freigegebenen Mappe auftritt, dann sehe ich nur eine Lösungsmöglichkeit: du musst als Betreuer der Mappe von Zeit zu Zeit von Hand die Formelergebnisse in Werte umwandeln oder du führst folgendes Makro aus, wenn du die Freigabe aufgehoben hast Code: Sub Umwandeln () Zeilen Kopieren und darunter X mal einfügen Microsoft Excel : MS-Office-Forum > Microsoft Office > Microsoft Excel: VBA - Zeilen Kopieren und darunter X mal einfügen Benutzername: Angemeldet bleiben? Wählen Sie die Zellenwerte aus, die Sie kopieren und über andere Zellen einfügen möchten, und drücken Sie Ctrl + C um es zu kopieren. Lassen Sie die Zellen markiert und rufen Sie im Menü "Bearbeiten" den Befehl "Inhalte einfügen" auf. So fügen Sie mehrere Zeilen einfügen: Wählen Sie dieselbe Anzahl von Zeilen aus, über die Sie neue Zeilen hinzufügen möchten. In Zeile ab einem bestimmten Wert restliche Zeile kopieren und darunter einfügen: Hallo zusammen, ich möchte in einer Zeile ab einem bestimmten Wert die restliche Zeile kopieren und die Zellen in der Zeile darunter einfügen.Und das so lange bis der bestimmte Wert Text nicht... Zeilen mit bestimmten Werten kopieren: Hallo! Helfe beim Thema Zeile kopieren und darunter einfügen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo Forumsmitglieder, ich hatte versucht etwas über die Suche zu finden - aber dort war alles ein wenig zu speziell - falls ich hier trotzdem. Microsoft Office,Office 2010, Office 365, Office 2019. Hallo G ist die 7. Um die transformierten Daten wieder in das Excel-Arbeitsblatt zurückzukehren, wählen Sie "Start"> "& laden" aus. Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen. habe ich... Excel-Zelle durchsuchen und je nach Wert die ganze Zeile in eine andere Tabelle kopieren: Hallo zusammen For i = 1 To copies, Select Case Cells(r, s) Value <> "" Rows (ActiveCell. Bin noch ein Anfänger in Exel, hätte eine Frage: Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von supermario73, 20. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean). Nichts leichter als das: Sie schreiben in E2 die Formel =WENN (B2<C2;"X";"") und kopieren diese per AutoAusfüllen in die darunter liegenden Zellen. Fügst du die Zeilen weiter oben ein, dann passt. Hallo, Bin auf der Suche nach einem VBA Makro welches in einer Excel Tabelle anhand des Wertes in Spalte „G" die Zeile kopiert und direkt darunter einfügt ohne die nachfolgenden Zeilen zu überschreiben. Sie haben ein Problem mit Microsoft Word, Excel, Outlook, Access, Teams oder PowerPoint mit dem Sie einfach nicht mehr weiter kommen und Ihre Kollegen und Freund wissen auch keinen Rat? wenn das Code-Problem nur in der freigegebenen Mappe auftritt, dann sehe ich nur eine Lösungsmöglichkeit: du musst als Betreuer der Mappe von Zeit... r = r + copies + 1 'Kopien also um 1+ anzahl Kopien erhöhen meinst du so etwas: Code: Private Sub Worksheet_Change (ByVal Target As Excel.Range) If Target.Column = 4 Then If Target.Count = 1 Then If Target "" Then If Target.Offset (-1, 0) "" And Target.Offset (1, 0) = "" Then Application.EnableEvents = False Range (Cells (Target.Row, 2), Cells (Target.Row, 23)).Copy Cells (Target.Row + 1, 2) In Zeile ab einem bestimmten Wert restliche Zeile kopieren und darunter einfügen Hallo zusammen, ich möchte in einer Zeile ab einem bestimmten Wert die restlichen Werte ausschneiden und in eine neue Zeile darunter in Spalte A einfügen. Microsoft Office: 4. Dann bist du in unserem Forum richtig! ), Letzte Zeile finden und in anderes Blatt kopieren, Zelle kopieren und in letzte Zeile einfügen, Tabelle kopieren aber nur bis letzte beschriebene Zeile, Letzte Zeile kopieren, anfügen, Kommentare und Inhalte löschen, Daten filtern, kopieren und in neuem Tabellenblatt untereinander einfügen. Punkt 1: Helfe beim Thema Letzte Zeile kopieren und darunter einfügen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo und einen schönen Abend an alle Range("2:2").Insert CopyOrigin:=xlFormatFromRightOrBelow Support und Feedback. Wenn Sie in Excel Formeln von einer Zelle in eine andere bewegen möchten, haben Sie die Wahl zwischen der Kopieren- und der Verschieben-Funktion. Wählen Sie Kopieren aus, oder drücken Sie STRG+C. Dann per Rechtsklick auf den Blattnamen > Code einfügen folgenden Code in das rechte Fenster einfügen: Code: Private Sub CommandButton1_Click () Rows ("9:10").Copy CommandButton1.TopLeftCell.EntireRow.Insert CommandButton1 nur aktiv wenn Zelle gefüllt. Zeilen Kopieren und darunter X mal einfügen, Hier erscheint Fehler: For-Steuervariable wird bereits verwendet, (Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können. Case Else r = 1 'Zeilenzeiger : [IMG] Um die Spalten umzubenennen, doppelklicken Sie auf jede Spaltenüberschrift, und geben Sie den namen ein, oder bearbeiten Sie eine vorhandene. Wählen Sie das Konto aus, mit dem Sie sich anmelden möchten. Zeile kopieren und darunter einfügen. die fortgesetzt werden muss. Januar 2018. Schick mir mal die Datei auf meine Mail. Excel kopiert brav in die Zeile . in Zelle D6 eine Zahl eingegeben und mit der Enter Taste bestätigt wird die ganze Zeile 6 in Zeile 7 kopiert wird. Um zu den ursprünglichen Kopfzeilen zurückzukehren, können Sie diesen Schritt löschen. Einfacher geht das wie folgt:Wechseln Sie zunächst in eine Tabelle, für die Sie bereits Kopf-/Fußzeilen definiert haben. Rows®.Copy Select Set myCell = ActiveCell Wend Anweisungen finden Sie unter Automatisieren von Aufgaben mit der Makroaufzeichnung. Steht echt vor einem Problem. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten. Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen. Ihr Mauszeiger verwandelt sich in einen kleinen schwarzen Doppelpfeil. Das geht ganz normal mit der linken Maustaste. Dim copies As Integer, s = 7 '= Spalte G Spaltenzeiger End Select. Die Anwender sollen nicht aus Versehen die Formeln löschen. In Zeile ab einem . Bin auf der Suche nach einem VBA Makro welches in einer Excel Tabelle anhand des Wertes in Spalte „G“ die Zeile kopiert und direkt darunter einfügt ohne die nachfolgenden Zeilen zu überschreiben. Können Sie uns helfen, uns zu verbessern? Codes funktionieren auch in freigegebenen Arbeitsmappen, nur ändern kann man ihn nicht so lange die Mappe freigegeben ist. r = 1 Habe versucht deinen Code zu verstehen… sehe jedoch den Bezug auf Spalte G, resp. Klicken Sie mit der rechten Maustaste auf die Blattregisterkarte Wählen Sie "Code anzeigen" Klicken Sie im Menü auf Einfügen \ Modul Dim r As Long 1. Fügt, wenn es sich bei den Daten um ein Bild handelt, eine Verknüpfung zum Quellbild ein. Formatierungen und ggf. 5. Beispiel: In Spalte „G" steht „1" = nichts kopieren In Spalte „G" steht „2" = Zeile 1x kopieren und darunter einfügen In Spalte „G" steht „3" = Zeile 2x kopieren . Tastenkombination: Drücken Sie STRG+ALT+V. 3. Es. Kopieren von Zellen mithilfe von Kopieren und Einfügen Markieren Sie die Zelle oder den Zellbereich. In einem Makro müssen noch Zeilen 6 bis 9 kopiert werden und darunter (ab Zeile 10) X-fach (und dann Zeile 14... Klicken Sie auf OK. Gehen Sie in der Menüleiste zu Entwicklertools > Visual Basic. Vielen Dank Hubert, für die schnelle und richtige Lösung! r = r + 2 Richtig! Irgendwelche Tipps oder Hinweise? Row ). Helfe beim Thema Aktive Zelle kopieren in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, Wenn in Spalte G eine „2“ steht wird die Zeile 1x kopiert = richtig! In den Communities können Sie Fragen stellen und beantworten, Feedback geben und von Experten mit umfassendem Wissen hören. Wenn… Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von derhard, 30. Dieses Thema im Forum "Microsoft . Code: Sub Zeilen_kopieren () Dim i As Long Dim var As Long var = Range ("B4").Value