Visual Basic Forum

Verfasst am: 02.04.2012, 13:06 Aufrufe: 147

xlsm") = False Then ' Datei "Überblick_Meisterschaften.xlsm" öffnen Workbooks.Open sPath End If ende_tab_meister_tage = Workbooks("Überblick_Meisterschaften.xlsm").Worksheets("Tage").Cells(Rows.Count, 1).End(xlUp).Row + 1 sFile = "Übungsleiter.xlsm" sPath = ThisWorkbook.Path & "\" & ...

Verfasst am: 15.02.2012, 14:49 Aufrufe: 260

Private Sub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click 'Tabelle leeren DataTable1.Clear() 'Datum eintragen DataGridView1.Rows(0).Cells(0).Value = Date.Today 'in XML schreiben DataSet1.WriteXml(xmlFile, XmlWriteMode.WriteSchema) ----------------------------- 'n ...

Verfasst am: 04.11.2011, 10:04 Aufrufe: 484

Verfasst am: 03.11.2011, 11:52 Aufrufe: 484

Verfasst am: 02.11.2011, 14:40 Aufrufe: 484

hey! ich habe ein weiteres Problem: ich habe 2 arbeitsmappen geöffnet und muss nun zellen aus der einen in die andere arbeitsmappe kopieren. ich schaffe es allerdings nicht mal eine der arbeitsmappen zu aktivieren. habs so versucht: Workbooks("Einlesen").Sheets("Tabelle1").Activate ActiveSheet.Cells(1, 1).Select Selection.Copy Workbooks("Sp ...

Verfasst am: 20.07.2011, 17:09 Aufrufe: 772

Object, ByVal e As System.EventArgs) Handles Button1.Click Test.Workbooks.OpenXML("Der Pfad der datei....") Test.Cells(1, 2) = TextBox1.Text Test.Workbooks.Close() End Sub End Class Jedoch kommt bei mir nun folgender Fehler: Der Typ "Microsoft.Office.Interop.Excel.Application" ist nicht definiert. Meine Fragen sind jetzt: 1. An was liegt es, dass der ...

Verfasst am: 15.07.2011, 07:10 Aufrufe: 375

ich kann dir nur sagen was ich machen würde wenn ich jetzt einen serien brief ersellen wollen würde eine exceltabelle... die kann ganz einfach ausgelesen werden und gleich in excel -> vba weiter verwedet werden um deine briefe zu erstellen for i = 1 to 1000 FamName = Cells(i, 1) VorName = Cells(i,2) Adresse = Cells (i,3) '... 'un dan brauchst du die sachen ...

Verfasst am: 24.05.2011, 13:33 Aufrufe: 936

Number Then MsgBox("Excel kann nicht geöffnet werden", vbExclamation, "Excel-Fehler") End End If End If On Error GoTo 0 ' Excel-Datei öffnen WB = XL.Workbooks.Open(XlsDatei) WS = XL.Worksheets(1) ' Inhalt der gewünschten Zelle ermitteln Console.WriteLine(WS.Cells(1, 1)) ' Excel sc ...

Verfasst am: 16.05.2011, 13:40 Aufrufe: 564

Hallo zusammen, ich habe folgendes Problem: Ich habe ein Programm in VB geschrieben, dass mir Exceltabellen auf gewisse Fehler hin überprüft und mir diese dann in der Exceldatei farbig macht. Funktioniert soweit alles gut, ABER: Wenn ich eine neue Exceldatei öffnen will, bekomme ich bei folgendem Code einen Fehler: oExl.ActiveWorkbook.Close savechanges:=true oExl.Quit [/code] Habe schon gschlagene 3S ...

Verfasst am: 09.05.2011, 10:32 Aufrufe: 485

Bis jetzt passiert aber nichts. Kann mir vielleicht jemand weiter helfen? Hier der Code: Private Sub CommandButton3_Click() 'Datensätze ändern Dim lng As Long Dim i As Integer On Error Resume Next lng = UserForm3.ListBox1.Column(5) Sheets("Tabelle").Activate With UserForm3 'schreibt Daten aus Textbox in Tabelle Cells(lng + 3, 1).Value = .TextBox1.Value Cells(lng + 3, 2).Value ...

Verfasst am: 18.03.2011, 23:01 Aufrufe: 371

Um anschließend nicht eine leere Zeile in der Tabelle zu haben, möchte ich ein Range, das alle Daten umfasst, nach Spalte B sortieren. Dabei kommt die leere Zeile dann ohnehin ans Ende und stört nicht mehr. Mit der Sort-Funktion habe ich meine Probleme! Der Key soll vorgeben, nach welcher Spalte sortiert wird. Das ist bei mir B. Mein Aufruf sieht damit so aus: (With .Worksheet) .Range(.Cells(2, 1), .Cells(ze ...

Verfasst am: 15.03.2011, 10:18 Aufrufe: 344

... geschrieben, und folgt ihn die Verkürzung! wäre super wenn mir hier jemand helfen könnte! Private Sub HV_bd_Click() Dim Bd As Double Dim ia As Integer Dim iv As Integer Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer Dim f As Integer, g As Integer, h As Integer, i As Integer, j As Integer Dim k As Integer, l As Integer, m As Integer For ia = 2 To 610 Step 2 Bd = Tabelle1.Cells ...

Verfasst am: 25.01.2011, 11:15 Aufrufe: 710

hi ich würde dir gerne helfen nur weis ich überhaupt nicht was du meinst ^^ 'Die laufende Nummer in Tabelle 1 wird vom Programm vergeben. 'meinst du sowas? for i = 1 to 10 cells(i, 1) = i next 'Autorname und Vorname dürfen keine Ziffern und Sonderzeichen enthalten '(Ausnahme: - an mittlerer Stelle!). dim Autor as string cells(1,1) = "Autor" Autor = T ...

Verfasst am: 20.01.2011, 08:26 Aufrufe: 359

Verfasst am: 24.12.2010, 22:15 Aufrufe: 670

Hallo @ all, Habe ein paar Fragen zu dem DataGridView Steuerelement unter Visual Basic 2008. 1. Wie kann ich im DataGridView z.B. von Rows(3) bis Cells(5) eine Linie Zeichnen die mir zwischen Rows 2 und 3 angezeigt wird? 2. Wie Kann ich ein Bereich (Range) in dem DataGridView anwählen und danach z.B. einen Rahmen um die Zellen zeichnen? 3. Wie kann ich den Rahmen Style ändern (Liniendicke und Farbe)? 4.

Verfasst am: 16.07.2010, 11:03 Aufrufe: 544

.bin jetzt zumindest mal soweit, dass er mir das minimum rausfindet...aber so wirklich funktioniert das trotzdem noch nicht Sad

Option Explicit Dim IntAnzahl As Integer Dim Werte() Dim IntI As Integer Dim IntJ As Integer Dim IntX As Integer Dim IntMin As Integer Sub Einlesen() 'IntMerker = 0 Cells(Rows.Count, 2).End(xlUp).Select IntAnzahl = ActiveCell.Row Activ ...

Verfasst am: 16.07.2010, 11:02 Aufrufe: 544

so hab gestern noch mal versucht etwas weiter zu machen, er liest jetzt zumindest mal die werte ins array....jetzt ist die frage wie ich das sortieren lasse, am besten mit ner for schleife dachte ich? Sub Einlesen() 'IntMerker = 0 Cells(Rows.Count, 2).End(xlUp).Select IntAnzahl = ActiveCell.Row ActiveCell.Offset(0, 1).Range("A1").Select 'MsgBox ...

Verfasst am: 16.07.2010, 11:02 Aufrufe: 544

... Leider klappt das bei mir überhaupt nicht, da ich schon Probleme habe das Array zu erstellen, da er in der Arraydefinition einen festen Wert haben will - der Wert ändert sich ja aber immer, da die Anzahl der Werte (=Anzahl der Mitarbeiter/Umsätze) nicht festgelegt ist. Hab das mal soweit geschrieben: ---- Dim IntI As Integer Dim IntPosition As Integer Dim Werte() Sub Einlesen() Cells ...

Verfasst am: 28.02.2010, 16:39 Aufrufe: 715

Irgendwo muss ich was einfügen, damit die Zeilen nicht überschrieben werden. Was mache ich bloß flasch? Kann mir jemand verraten, was ich verändern muss. Vielen Dank für eure Hilfe. Jan Hier der Code: Sub Schaltfläche2_BeiKlick() Dim a As Long, i As Long Application.ScreenUpdating = False a = 1 For i = Cells(Rows.Count, 2).End(xlUp).row To 1 Step -1 With Worksheets("Tabelle1") If Da ...

Verfasst am: 19.02.2010, 13:06 Aufrufe: 1034

Hallo, mir wird folgender Fehler (laufzeitfehler 1004 Die Copy-Methode des Worksheet-Objektes konnte nicht ausgeführt werden) angeziegt wenn der Quelltext an der hervorgehobenen Zeile angelangt ist. Warum? Dim i_row_coc, i_column_no, i_column_coc, lfdnr_vcoc, lfdnr_coc As Integer Dim i_row_vcoc As Long i_row_coc = ActiveCell.Row i_row_vcoc = i_row_coc i_column_no = Cells.Find(What:="A", After:=A ...

Verfasst am: 03.02.2010, 13:34 Aufrufe: 1010

Hallo ich habe mal eine Frage an euch und es wäre nett wenn mir jemand von euch helfen könnte, ich bin auf der FH - Trier und schreibe morgen ein EDV - Arbeit und steppe jetzt ein paar Übungsaufgaben durch und bei dieser Aufgabe zerbreche ich mir echt fast den Kopf! Sad

Es wäre nett wenn mit jemand helfen könnte!? Die Frage lautet so: Mit der Eigenschaft Cells(Zeile, Spalte) kann man auf einzelne Zel-len eines Rang ...

Verfasst am: 28.01.2010, 21:16 Aufrufe: 1126

Range("B12") For e = 0 To 6 If Worksheets("Arbeitsplatz").Range("E5") >= Worksheets("Arbeitsplatz").Range("E4") Then Worksheets("Arbeitsplatz").Range("E4") = Worksheets("Steuerung").Cells(12, 2 + e) Worksheets("Steuerung").Cells(11, 2 + e) = Worksheets("Arbeitsplatz").Range("E5") counter3 ...

Verfasst am: 27.01.2010, 08:47 Aufrufe: 905

Das ganze soll aber automatisch (im Hintergrund) ablaufen, also so eine Art Bedingte Formatierung. Sobald der Wert in der Zelle gefüllt wird und man zur nächsten Zelle springt, soll die Formatierung erfolgen. Geht das? Sub project_finished() Dim cell As Range i = 3 For Each cell In Range("Y3:Y500") If Cells(i, 25) <> "" Then Range(Cells(i, 1), Cells(i, 35)).Select ...

Verfasst am: 17.01.2010, 19:31 Aufrufe: 793

SelText CBStör(j) = UserForm1.Controls("CBStör" & j).SelText For lauf = 1 To 49 If CBBT(j) = Cells(lauf, 1) Then Oberfläche(j) = Cells(lauf, 1).Offset(0, i) End If If CBStör(j) = Cells(lauf, 1) Then Störfläche(j) = Cells(lauf, 1).Offset(0, i) End If Next lauf Next j End ...

Verfasst am: 10.01.2010, 17:17 Aufrufe: 1071

b. auf /fotos/DATEINAME verlinken. Wäre es jeweils nur ein Dateiname, dann könnte ich einfach =HYPERLINK(link,name) benutzen. So ist es aber etwas komplizierter. Ich habe mich mal rangewagt und folgenden code geschrieben: Sub foto() Dim i, length As Integer length = Len(Cells(ActiveCell.Row, ActiveCell.Column - 1).Text) Mod 12 For i = 1 To length ActiveCell.Text = Hyperlink ...

Verfasst am: 13.11.2009, 11:21 Aufrufe: 2708

UsedRange.Columns(gS1_VERCol) ver = 0 For Each c In a.Cells s = Replace(c, ".", ",") If IsNumeric(s) Then tmp = CSng(s) If tmp > ver Then ver = tmp End If Next c getCurrentVersion = Replace(CStr(ver), ",", ".") End Function Private Sub Comm ...

Verfasst am: 23.09.2009, 07:42 Aufrufe: 401

Ich will einem Gridview die Feldinhalte so darstellen, dass es wie folgt aussieht: Name: Mustermann, Max Jetzt habe ich ein Beispiel gefunden, wo das mit HTML-Tags gelöst wurde. da sieht das so aus als Code e.CellElement.Text = "<html><b>Name</b>:" & e.CellElement.RowInfo.Cells("'NachName").Value & "," & e.CellElement.RowInfo.Cells("'Vorna ...

Verfasst am: 20.08.2009, 11:46 Aufrufe: 692

Liebe Gemeinde, ich kriege es nicht hin auf eine Zelle im Datagridview zuzugreifen. Es handelt sich um einen Wert auf einem SQL Server vom Typ "bit". Dieses Stück bringt den Fehler : "If Form1.DataGridView1.CurrentRow.Cells("Netsupport").Value Like True" ==> Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt. Public Sub Remote_All() Form1.RemoteComboBo ...

Verfasst am: 15.08.2009, 09:17 Aufrufe: 486

Rows(e.RowIndex).Cells("IP").Value = IPmitNullen 2) Wenn ich die Inhalte formatiert habe, diese im Grid schön mit 000 erscheinen und versuche dann die Spalte neu zu sortieren, greift die Sortierung auf die tatsächlichen Inhalte der Zellen zurück (ohne NULLEN) und das CELLFORMATTING erfolgte umsonst. ************************************************************************************************* Vie ...

Verfasst am: 12.06.2009, 17:33 Aufrufe: 540

Sub Zahlenfelderzeugung() l = 100 zeile = 1 spalte = 2 For i = 2 To l Worksheets(1).Cells(zeile, spalte).Value = i spalte = spalte + 1 If spalte = 11 Then spalte = 1 zeile = zeile + 1 End If Next colorf = 3 zeile = 1 spalte = 2 Value = Worksheets(1).Cells(zeile, spalte).Value For a = Value To Int(Sqr(l)) If Not Worksheets(1).Cells(ze ...

Verfasst am: 14.08.2008, 14:46 Aufrufe: 550

... Projekt Public Const ErsteZeileChild As Long = 10 ' Gültigkeit im ganzen Projekt Public Const LetzteZeileChild As Long = 225 ' Gültigkeit im ganzen Projekt Public Sub EANSkopieren() ZeilenCount = 2 For i = ErsteSpalte To LetzteSpalte Step 1 For j = ErsteZeileParent To LetzteZeileParent Step 1 For k = ErsteZeileChild To LetzteZeileChild Step 1 ' Parent-Eans einfügen Sheets("transponiert").Select Range(.Cells ...

Verfasst am: 21.09.2003, 16:39 Aufrufe: 304

hallo Leute, ich habe folgenden "Zielwert suchen"-Makro geschrieben, der wunderbar funktioniert, so lange ich ihn über Extras-Makro-ausführen aufrufe: cells(21 + Objekt1, 3).GoalSeek Goal:=1000, ChangingCell:=Range("D13") cells(21 + Objekt2, 10).GoalSeek Goal:=1000, ChangingCell:=Range("K13") cells(21 + Objekt3, 17).GoalSeek Goal:=1000, ChangingCell:=Range("G5") Will ich ihn aber über eine Befehlsschaltfläc ...

Verfasst am: 24.04.2002, 22:41 Aufrufe: 535

Workbook Dim w1 As Excel.Worksheet Set w = e.Workbooks.Open(dateiname) (öffnet das Dokument) Set w1 = e.Worksheets(1) (öffnet Worksheet 1) Dann kann man auf die Zellen folgendermaßen zugreifen: w1.Cells(1, 1) = "blabla" oder msgbox w1.Cells(1, 1) Ans Ende muss dan folgendes: w.Save w.Close Set w1 = Nothing Set w = Nothing e.Quit Set e = Nothing Bei Word gehst ähnl ...