Visual Basic Forum

Verfasst am: 02.04.2012, 13:06 Aufrufe: 148

FormulaR1C1 = "=RC[-1]*0.6" End If Next i ' Tabelle Fahrtkosten nach Tabelle Fahrtkosten_gesamt übertragen Worksheets("Fahrtkosten").Range("A1:L30").Copy Worksheets("Fahrtkosten_gesamt").Cells(fk_zeileneintrag, 1) ' Inhalt in Tabelle "Fahrtkosten" leeren für neue Daten ...

Verfasst am: 24.05.2011, 13:13 Aufrufe: 938

Number Then MsgBox("Excel kann nicht geöffnet werden", vbExclamation, "Excel-Fehler") End End If End If On Error GoTo 0 ' Excel-Datei öffnen XLWorkBooks = XLWorkBooks.Open(XlsDatei) XLWorkSheet = XLWorkBooks.ActiveSheet ' Inhalt der gewünschten Zelle ermitteln ZellInhalt = XLWorkSheet. ...

Verfasst am: 28.04.2011, 14:17 Aufrufe: 456

Die X sind in Spalte H, Die E-Mail Adressen in Spalte G. Ich habe hier eine Vorlage für das verschicken mit Outlook: Sub emailverschicken() Dim Adressat As String Dim cell As Range Dim outapp As Object, outmail As Object Dim Mailnachricht As String Range("G5:G200").Select Mailnachricht = "<span style=""font-size:10pt; font-fam ...

Verfasst am: 25.03.2011, 09:56 Aufrufe: 772

" ' Ausgangslaufwerk und Pfad ChDrive ("C:\") ChDir ("C:\") With Application ' Set File Name to selected File Filename = .GetOpenFilename End With ' Ende bei Abbruch ' die Variable FileP wird auf den Wert des Pfades gesetzt und im Feld G7 ausgegeben FileP = Filename Range("G7") = FileP If Filename = False The ...

Verfasst am: 18.03.2011, 23:01 Aufrufe: 371

NET größtenteils selber beigebracht habe, kann es durchaus passieren, dass ich Anfänger-Fehler mache! Das Problem: Es kann ein Fall auftreten, bei dem eine Zeile herausgelöscht werden muss. Ist ja mit .ClearContents() keine große Sache. Jetzt kommt aber das Problem. 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 di ...

Verfasst am: 04.02.2011, 21:35 Aufrufe: 483

Jetzt steht nin A1:G1 Zeug drin, was gelöscht werden soll wenn der User auf den Button drückt. Ich habs bisher so gemacht: Sub DASALoeschen() Loeschen = InputBox("Welcher Datensatz soll gelöscht werden?", "Zu löschender Datensatz eingeben", "z.B. B5:G5") Range(Loeschen).Clear End Sub Ich will aber dass der User die Zahl eintippt der Zeile d ...

Verfasst am: 24.12.2010, 22:15 Aufrufe: 671

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: 10.12.2010, 09:50 Aufrufe: 490

Sobald ich das ExcelArbeitsblatt schließe, öffnet es sich direct wieder, obwohl ich meines (relativ bescheidenen) Wissens die App beende. Hab im I-Net schon viel herum gesucht, aber nur diese Lösung gefunden. Anbei mal der Code (der komplett in einem Modul verfasst ist) Dim r As Range Sheets(1).Activate Range("a2:a1000").Clear Set Groups = GetObject("LDAP://OU=Sic ...

Verfasst am: 16.07.2010, 11:03 Aufrufe: 544

Select IntAnzahl = ActiveCell.Row ActiveCell.Offset(0, 1).Range("A1").Select 'MsgBox (IntAnzahl) ReDim Werte(IntAnzahl - 1) For IntI = 1 To IntAnzahl - 1 Werte(IntI) = ActiveSheet.Cells(IntI + 1, 2).Value 'MsgBox (Werte(IntI)) Next IntMin = Werte(1) For IntJ = 1 To IntAnzahl - 1 If Werte(IntJ) < ...

Verfasst am: 16.07.2010, 11:02 Aufrufe: 544

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 (IntAnzahl) ReDim Werte(IntAnzahl - 1) For IntI = 1 To IntAnzahl - 1 Werte(Int ...

Verfasst am: 01.07.2010, 10:39 Aufrufe: 504

Danke Private Sub Worksheet_Change(ByVal Target As Range) Set I = Intersect(Target, Range("A6:O66")) If Not I Is Nothing Then Select Case Target Case 10 To 19: NewColor = 3 Case 110 To 119: NewColor = 3 Case 20 To 29: NewColor = 8 Case 120 To 129: NewColor = 8 Case 30 To 39: NewColor = 4 Case 130 To 139: NewColor = 4 Case 40 To 49: NewColor ...

Verfasst am: 18.06.2010, 09:58 Aufrufe: 419

. Ich will aus einer Zelle im Excel Text auslesen und diesen danach in zwei Variablen aufteilen Hier ein Ausschnitt: Dim IntCounterBU As Integer Dim P1 As Integer Dim StrBU As String Dim IntValA As Integer Dim IntValA As Integer IntCounterBU = 1 'Habe im Originalcode eine Schleife die den Wert immer erhöht, damit es die ganze Spalte durchmacht StrBU = Range("R" & IntCounterBU).Value ...

Verfasst am: 12.06.2010, 13:33 Aufrufe: 975

Range(Spaltenname(spalte) & zeile) 'Hinter Spaltenname steckt eine Funktion, welche die spaltennummer in den entsprechenden ...

Verfasst am: 23.03.2010, 23:24 Aufrufe: 593

... farbig markieren und meine Syntax funkt aus einem unbekannten Grund nicht.Die Syntax lautet wie folgt: --------------------------------------------- Sub Makro1() Dim i As Long Dim Tabelle As String Tabelle = InputBox("Welche Spalte soll geprüft werden") If Tabelle = "Vorname" Then For i = 1 To 1000 'soll immer eine zeile weitergehen hilf = "A" + Str(i) Range ...

Verfasst am: 19.02.2010, 13:06 Aufrufe: 1034

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:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole).Column lfdnr_coc = Range(Cells(i_row_coc, i_column_no), Cells(i_row_coc, i_column_no)).Value i_column_coc = Cells.Find(What:="B", After:=Activ ...

Verfasst am: 03.02.2010, 13:34 Aufrufe: 1011

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: 31.01.2010, 20:02 Aufrufe: 342

Dieser Vergleich darf nicht nur dann ablaufen wenn diese Werte streng monoton steigend sind. D.h. zb 4,6,9,15 etc, sondern auch wenn zb 4,6,9 1, 15 gilt. meine falsche Lösung: Worksheets("Arbeitsplatz").Range("E5") >= Worksheets("Arbeitsplatz").Range("E4") ich denke, das ich hier nicht die Zellen als solche vergleichen darf, sondern Ihren Inhalt bzw Wert . Nur wie ...

Verfasst am: 28.01.2010, 21:16 Aufrufe: 1126

... überschrieben werdne (was es bei mir leider tut) ich füge den relevanten Codeteil bei und würde mich sehr über Hilfe freuen Viele Grüße und Danke im Vorraus Dim counter3 As Integer Dim i As Integer Private Sub CommandButton2_Click() Worksheets("Arbeitsplatz").Activate counter3 = counter3 + 1 CommandButton2.Caption = "versuch2" Worksheets("Arbeitsplatz").Range ...

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: 13.11.2009, 11:21 Aufrufe: 2711

tsv" 'Column numbers Const gS1_VERCol As Integer = 1 Const gS1_MNCol As Integer = 2 Const gS1_STATUSCol As Integer = 3 Const gS1_NOTECol As Integer = 4 Const gS1_CRONEXCol As Integer = 5 Const gS1_JUNCol As Integer = 6 Const gS1_SCNCol As Integer = 7 Const gs1_SDate As Integer = 8 Const gs1_EDate As Integer = 9 Public Function getCurrentVersion() As String Dim a As Range Dim ...

Verfasst am: 02.11.2009, 23:13 Aufrufe: 597

Verfasst am: 03.10.2009, 16:54 Aufrufe: 941

Die gesamte Markierung soll dann ausgeschnitten werden. Rest des Macros wo es hinkopiert werden soll habe ich bereits.Das ganze soll solange wiederholt werden, bis der erste Text nicht mehr gefunden wurde.Ich wollte das mit Range lösen, scheitere aber daran, die Position von Text1 an Range Start und von Text2 an Range End zu übergeben.Kann mir bitte jemand helfen? Oder gibt es eine einfachere Lösung?Ich hoffe das ist ...

Verfasst am: 20.07.2009, 16:21 Aufrufe: 1238

generiert die Zahlen für das Diagramm__________________________________________________ ____________________________'Öffnen der im Hintergrund laufenden Excel AnwendungSet Excel = CreateObject("Excel.Application")Excel.workbooks.AddExcel.workbooks.Open "k:WMK_M_1.1diagramm.xls"'Eingabe in die Exceltabelle'With Excel.range("A2").Value = Text11.range("b2").Value = Text40.range("c2").Value = Text43End With'Ausgabe der B ...

Verfasst am: 30.06.2009, 11:18 Aufrufe: 1742

TextBoxInvid.Text = TextBoxSearch.Text With Workbooks("Inventarliste2009.xls").Worksheets("KLD86").Range("b2:b1000") Set res = .Find(TextBoxSearch.Text) If res Is Nothing Then With Workbooks("Inventarliste2009.xls").Worksheets("KLD88").Range("b2:b1000") ...

Verfasst am: 16.04.2009, 09:06 Aufrufe: 686

Verfasst am: 28.12.2008, 13:49 Aufrufe: 2464

Schön guten Tag, Ich wollte mir mal einen eigenen kleinen Ip Scanner coden, der die Range nach Port 21 abscannt,da ich wir hier im Lan 3 Ftp Server amlaufen haben und ich so nachgucken kann ob sie noch laufen. So entstand folgender Code: Private Sub cmdstart_Click() Timerscan.Enabled = True End Sub Private Sub cmdstop_Click() Timerscan.Enabled = False End Sub Private Sub Timerscan_Timer() On Error ...

Verfasst am: 14.08.2008, 14:46 Aufrufe: 550

... ganzen 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 ...

Verfasst am: 07.07.2008, 10:38 Aufrufe: 1189

Verfasst am: 04.07.2008, 11:51 Aufrufe: 1189

... ich mit VBA besser Lösen ließe, will dies allerdings nur als wirklich letze Ausweichmöglichkeit verwenden !Hier ist mein momentaner Code:Visual Basic: [code]'Hole den Inhalt der Kopfzeile der Vorlage (Orginal Dokument)Set objWordVorlage = CreateObject("Word.Application")objWordVorlage.Documents.Open "L Gesamt.doc"Set KopfzeileVorlage = objWordVorlage.ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range ...

Verfasst am: 10.03.2008, 14:17 Aufrufe: 1215

Hallo, leider habe ich nur sehr wenig Ahnung von Visual Basic und hoffe auf Eure Hilfe!!! In einer Excel Tabelle möchte ich gerne in jeder zweiten Zeile eine Commandbutton einfügen, der eine neue Zeile unterhalb einfügt. Im ersten Button habe ich folgendes eingefügt: Private Sub CommandButton2_Click() Rows("7:7").Select Selection.Copy Rows("8:8").Select Selection.Insert Shift:=xlDown Range("C8:I ...

Verfasst am: 30.10.2007, 08:10 Aufrufe: 682

Guten Morgen Smile

, Ich habe mal wieder ein problem, und zwar habe ich eine Ip Range diese sieht zb so aus 192.168.178.21-192.168.178.30 . Nun möchte ich, das die Range gesplittet wird & jeweils in eine variable geschrieben wird. also zb so: var1 = 192 var2 = 168 var3 = 178 var4 = 21 var5 = 192 var6 = 168 var7 = 178 var8 = 30 Ich weiß das ich die Range bis zum ersten punkt auslesen lassen ...

Verfasst am: 16.10.2003, 22:00 Aufrufe: 536

Worksheets(1) x1book.Worksheets(1).Application.visible = True End sub Private Sub x1sheet_Change(ByVal Target As Excel.Range)Handles x1sheet.Change MsgBox("Test") End Sub Wenn ich es so probiere, kommt bei "x1sheet = x1book.Worksheets(1)" der Fehler, dass die Schnittstelle nicht unterstüzt wird. Kann mir jemand sagen ,was ich falsch gemacht habe, oder ob es eine andere möglichkeit gibt? Danke im voraus: J ...

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 ...