Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Per VBA Formel einfügen
Autor: Adleano
Datum: 03.11.10 09:16
Hallo zusammen, könnt ihr mir bitte bei einem Problem mit Formeln, die per VBA in Zellen geschrieben werden sollen weiterhelfen? In meinem Workbook sind zwei Tabellen, in denen der Datumsvektor horizontal angeordnet ist (also z. B. Blatt 2010-1 beginnt in Spalte C mit dem 01.01.2010 und geht bis zur Spalte GA zum 30.06.2010. Das ganze analog mit dem zweiten Halbjahr auch. Auf dem Startblatt habe ich den Datumsvektor vertikal angeordnet (also in Spalte A) vom 01.01. - 31.12. Ziel ist es jetzt, auf den anderen beiden Tabellenblättern (Halbjahresblätter) zu prüfen, ob dort am jeweiligen Tag der entsprechende Text steht und die Häufigkeit, wie oft dieser Text vorkommt zu zählen. Dazu habe ich folgenden Code geschrieben, bei dem noch 2 Dinge nicht richtig funktionieren: 1. Wie kriege ich den Text mit Hilfe einer Inputbox in die Formel hinein? Momentan schreibt er immer nur fest text rein und wenn ih zwei Hochkommas entferne geht es leider auch nicht. 2. Problem mit Variable j: Wenn ich den code mehrmals hintereinander ausführe fängt er immer mit einer anderen Spalte an (also nicht immer mit C sondern irgendwelchen anderen). Was muss ich tun um das zu beheben? Code: Sub Test() Dim text As String Dim i, j, Spalte As Integer text = InputBox("Bitte den Namen der Niederlassung angeben, die angelegt werden soll.", "Eingabe Spalte = Worksheets("Start").Cells(6, Columns.Count).End(xlToLeft).Column + 1 Worksheets("Übersicht").Cells(6, Spalte).Value = text '1. Halbjahr j = 1 For i = 7 To 187 Worksheets("Start").Cells(i, Spalte).FormulaR1C1 = "=COUNTIF('Jahr-1'!C[" & j & "],""Text"")" j = j + 1 Next i '2. Halbjahr j = 1 For i = 188 To 371 Worksheets("Start").Cells(i, Spalte).FormulaR1C1 = "=COUNTIF('Jahr-2'!C[" & j & "],""Text"")" j = j + 1 Next i End Sub Vielen Dank schonmal. Grüße Adleano

Per VBA Formel einfügen	1.073	Adleano	03.11.10 09:16
Re: Per VBA Formel einfügen	708	dnbjunkie	03.11.10 17:18
Re: Per VBA Formel einfügen	615	wb-soft	05.11.10 10:27

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen