Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Anzahl VBA Codes in Exceldatei

Forumthread: Anzahl VBA Codes in Exceldatei

Anzahl VBA Codes in Exceldatei
07.07.2007 08:39:00
Harald
Hallo im Excelforum,
ich würde gern wissen wieviel Zeichen verträgt ein vba Code,
gibt es eine Begrenzung oder ist es egal.
mfg
Harald

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anzahl VBA Codes in Exceldatei
07.07.2007 09:01:00
Luschi
Hallo Nepumuk,
danke für die Datenquelle.
Gruß von Luschi
aus klein-Paris
PS: habe nochmals getestet wegen der Klassenmodul-Fehler. Die Meldung kommt nur, wenn ich die xla-Datei als Workbook öffne. Installiere ich die xla-Datei, dann kommt die Meldung nicht.
Da mir die 1. Variante vom AG aber vorgeschrieben wird, muß ich eben bei der Fehlersuche mehr Aufwand beteiben.

Anzeige
AW: Anzahl VBA Codes in Exceldatei
07.07.2007 09:04:46
Nepumuk
Hallo Luschi,
warum hängst du das Addin nicht über einen Verweis an die entsprechende(n) Mappen? Oder lädts das Addin per Makro in der/den Mappen? Also ohne Open - Methode.
Gruß
Nepumuk

AW: Anzahl VBA Codes in Exceldatei
07.07.2007 09:15:00
Luschi
Hallo Nepumuk,
vom AG gibt es die Festlegung, keine statische Bindung zwischen xls- und xla-Datei.
Wenn der User das gesamte Anwenderverzeichnis verschiebt, muß die xls-Anwendung trotzdem laufen; eben ohne Änderung in den Verweisen, da bei M$ ja alles statisch ist.
Gruß von Luschi
aus klein-Paris

Anzeige
AW: Anzahl VBA Codes in Exceldatei
07.07.2007 09:37:03
Nepumuk
Hallo Luschi,
das ist richtig, der Pfad im Verweis ist statisch. Also wenn du die Mappe selbst verschiebst, passt er immer noch. Nur wenn du das Addin verschiebst passt er nicht mehr. Das sollte natürlich zentral auf einem Netzlaufwerk liegen. Am besten in einem Ordner auf den nur du Schreibrechte hast.
Gruß
Nepumuk

Anzeige
AW: Anzahl VBA Codes in Exceldatei
07.07.2007 09:32:00
Harald
Hallo im Forum,
vielen Dank für eure Antworten.
Hallo Nepumuk danke für deinen Link das hat mir geholfen.
mfg
Harald

AW: Anzahl VBA Codes in Exceldatei
07.07.2007 08:51:17
Luschi
Hallo Harald,
wieviele Vba-Codezeilen Excel vertägt, weiß ich nicht, aber mit der folgenden Prozedur
kannst Du die Anzahl (einschließlich Leer- und Kommentarzeilen) ermitteln: 

Private Sub anzahlCodeZeilen()
Dim oVB As Object, s1 As String, s2 As String, s3 As String, _
n1 As Long, n2 As Long
s1 = ""
n1 = 0
For Each oVB In Application.VBE.ActiveVBProject.VBComponents
n2 = oVB.codemodule.countoflines
s2 = VBA.Right("        " & VBA.Format(n2, "#,##0"), 7)
s3 = "Name: " & oVB.Name & vbTab & vbTab & "Zeilen: " & s2
Debug.Print s3
n1 = n1 + n2
Next
s1 = "Gesamtzahl der Zeilen: " & VBA.Format(n1, "#,##0")
MsgBox s1
End Sub

Gruß von Luschi
aus klein-Paris
PS: Verweis auf "Microsoft Visual Basic for Applications Extensibility 5.3" muß gesetzt werden
Im Direktbereich des Vba-Editors (Strg+G) findest Du eine Einzelauflistung.

Anzeige
AW: Anzahl VBA Codes in Exceldatei
07.07.2007 09:01:00
Nepumuk
Hallo Luschi,
da muss doch kein Verweis gesetzt werden.
Gruß
Nepumuk
;

Forumthreads zu verwandten Themen

Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Makro: Mail wird nicht erzeugt
Ralf

Hallo,
das folgende Makro blokiert in der Zeile 'Set mailitem = outobj.createitem(0)'
Sub Mail_Stammdaten() Dim ob, mailitem As Object Set ob = CreateObject("outlook.application") Set mailitem = outobj.createitem(0) On Error Resume Next With mailitem .Subject = "Neuanlage in Decalog"...
17.09.2008 11:49:20
Thread-ID: 1010312
5 Beiträge
Teilergebnis einer Spalte wird nicht angezeigt
thaake

Hallo,
ich lasse mir die Teilergebnisse verschiedener Spalten anzeigen mit =Teilergebnis(9;V5:V300), was auch überall klappt, aber nur eine Spalte weigert sich. Formatierung ist vollkommen ok, das Anzeigen in einer anderen Zelle mit Verweis auf diese Spalte klappt auch nicht. Summe dagegen...
22.09.2008 11:21:12
Thread-ID: 1011416
2 Beiträge
Anzeige
Fehler in VBA-Code?
David

Und nochmal Hallo.
Und schon wieder mit einem sehr "mysteriösen" Fehler:
Option Explicit Sub test() Dim zeile, i As Long Dim wks As Worksheet Dim wkb As Workbook Dim quelle As String For Each wkb In Workbooks If Right(wkb.Name, 4) = ".csv" And InStr(wkb.Name, "Pliste") > 0 Then que...
22.09.2008 12:14:00
Thread-ID: 1011440
5 Beiträge
Inhalt von UF wird nicht angezeigt
UF

Hi Forum,
ich starte meine UF mit dem folgenden Code:
Sub auto_open() Application.WindowState = xlMinimized UF_BitteWarten.Show vbModeless Application.Run "RESETMASK" UF_BitteWarten.Hide UF_Maske.Show End Sub
Wie zu erkennen, wird beim Start ein Reset ausgeführt, der einige Sekun...
26.09.2008 14:29:02
Thread-ID: 1012639
16 Beiträge
vba codes verbinden??
alex

Hallo zusammen,
Wie kann man diese Codes kombinieren?
Code 1 (per CommandButton): wird der Bereich A16:L16 im Tabellenblatt „Grundformular“ kopiert und schaltet dann in das Tabellenblatt Übersicht
Sub Eintragungenübernehmen()
Range("A16:L16").Select
Selection.Copy
Sheets...
13.10.2008 23:37:49
Thread-ID: 1016202
5 Beiträge
Nicht geschützte Zelle wird nach Makro gesperrt
Gesa

Hallo liebes Forum,
ich habe das Makro "automatische Zeilenhöhe bei verbunden Zellen" in einer anderen Datei verwendet - hier läuft es einwandfrei.
Bei der beigefügten Datei ist es immer so, dass wenn in geschützten Zellen (die von der Grundeinstellung nicht geschützt sind) etwas eingeg...
16.10.2008 13:40:48
Thread-ID: 1016850
5 Beiträge
Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
Anzeige
Code per VBA in "Diese Arbeitsmappe"
Timo

Hallo,
mir ist bekannt, wie ich per VBA ein neues Modul anlegen und eine Sub erzeugen kann.
Ich möchte nun aber per VBA eine sub in "Diese Arbeitsmappe" erzeugen und mit einer zweiten Prozedur wieder löschen.
Geht das?
Ich habe im Archiv nichts relevantes hierzu gefunden.
V...
29.10.2008 11:37:00
Thread-ID: 1020207
6 Beiträge
Filterergebnisse werden nicht angezeigt
hajo


Hallo zusammen,
wenn ich mit Autofilter einen Filter in VBA setze, wird mir das Ergebnis nicht angezeigt. Wenn ich die gleiche Aktion manuell ausführe bekomme ich das gewünschte Ergbniss. Kann mir jemand helfen?
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter F...
29.10.2008 12:43:42
Thread-ID: 1020236
5 Beiträge
Rechtschreibung: Pop-Up wird nicht mehr angezeigt
Norbert

Hallo,
nach dem Auswählen des Menüpunktes "Extras" - "Rechtschreibung", wird das zugehörige Pop-Up zur Auswahl der Korrekturvorschläge nicht mehr angezeigt.
Nach einem Klick auf die Schaltfläche "Rechtschreibung" ebenfalls nicht mehr.
Ich habe die möglichen Optionen zur Einstellung...
11.11.2008 11:22:22
Thread-ID: 1023480
3 Beiträge
Zeilenumbruch bei Formel in VBA Code
Waven

Hallo Zusammen
Ist es irgendwie möglich im VBA Code innerhalb einer Formel einen Zeilenumbruch zu machen?
Als Beispiel:
aus
Range("A1").Formula = "=SUMPRODUCT((B23:B40=1)*(Q23:Q40=1)*(O23:O40))+SUMPRODUCT((B23:B40=1)*(Q23:Q401)*(R23:R40=1)*(O23:O40))"
soll sowas wie
Ran...
25.11.2008 12:08:00
Thread-ID: 1027662
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige