Freak4life

Hallo, ich weiß zwar jetzt nicht ob das hier das richtige Forum ist, aber das soll erstmal egal sein. Also ich habe folgendes Problem: Ich wollte mit Vba programmieren, aber Windows erkennt keine Zeichen, und zwar geht es um Lf und Cr also 10 und 13. Ich habe Windows 2000 mit Service Pack 2 und Office 2000 installiert.

Hiho, ich habe da ein Problem mit Vba und einem Array. Ich will Einträge die in einer Exceltabelle stehen in ein Wordformular einfügen lassen. Ich habe bisher nur das hier: Sub ExcelSheetToArray() Const Blatt = "Tabelle1" Dim xlMappe As Object Set xlMappe = GetObject("C:\Eigene Dateien\Formular\Exceltest.xls") MaxRows = xlMappe.Worksheets(Blatt).Cells.SpecialCells(11).Row MaxCols = xlMappe.Worksheets(Blatt).Cells.SpecialCells(11).Column ReDim x(MaxRows, MaxCols) For RowIndex = 1 To MaxRows For ColIndex = 1 To MaxCols x(RowIndex, ColIndex) = xlMappe.Worksheets(Blatt).Cells(RowIndex, ColIndex).Value Next ColIndex Next RowIndex xlMappe.Parent.Quit MsgBox "Die Zelle A1 enthält folgenden Inhalt: " ActiveDocument.EditType Type:=x End Sub

Ich wollte einmal wissen, ob es in vba irgendeine Möglichkeit gibt die Formularfelder anzupassen. Was ich meine ist folgendes: Ich will eine Tabelle erstellen. Und die soll geschützt werden. Jedoch besteht jetzt das Problem, das man ja noch ein oder zwei Zeilen hinzufügen muss. Undzwar ohne erst noch einmal die Formatierung der Felder per Hand einzustellen. Die Anzahl der möglichen Zeichen kann man ja, genauso wie das Format ändern. Ich möchte aber wissen, wie ich angeben kann, das nur Zahlen eingegeben werden können. Kann mir da einer helfen? Ich danke schonmal im vorraus für eure Hilfe. mfg Freak4Life

Hi! Ich wollte ein Makro für Word2k schreiben. Undzwar soll es dafür sorgen, das nur eine von 2 Seiten ausgedruckt. Aber auch nur wenn die zweite Seite nicht gebraucht wird. Das sieht bei mir so aus: Sub Druckenstandard() Dim Start As Long Dim Ende As Long Dim Bereich As Range Dim drucken As Dialog Set Bereich = ActiveDocument.Range(Start:=Start, End:=Ende) If ActiveDocument.FormFields("Me1").Result <> "" Then PrintOut.Document = "2" drucken.Range = wdPrintRangeOfPages drucken.NumCopies = 1 drucken.Execute End If Set Bereich = ActiveDocument.Range(Start:=Start, End:=Ende) If ActiveDocument.FormFields("Me1").Result = "" Then drucken.Pages = "1" drucken.Range = wdPrintRangeOfPages Else drucken.Range = wdPrintAllDocument End If End Sub Jedoch kommt bei 'drucken.Pages ="1" ' dir Fehlermedlung Objektvariable oder With-Blockvariable nicht festgelegt. Kann mir da einer sageb wie ich den Felherbeheben kann?