Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 609 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 606, 607, 608, 609, 610, 611, 612 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Spalten löschen wenn 
Phelan XLPH

Antworten: 9
Aufrufe: 253

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2009, 23:48   Titel: AW: Spalten löschen wenn Version: Office 2003
Ich weiss immer noch nicht wonach du durchsuchen möchtest?
  Thema: Schleife mit onkey verlassen 
Phelan XLPH

Antworten: 7
Aufrufe: 1005

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2009, 23:46   Titel: AW: Schleife mit onkey verlassen Version: Office 2007
Erinnert mich an russisches Roulette.

Kannst du konkret in Worte fassen was dein Code tun soll?
  Thema: Spalten löschen wenn 
Phelan XLPH

Antworten: 9
Aufrufe: 253

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2009, 23:42   Titel: AW: Spalten löschen wenn Version: Office 2003
Wozu die Schleife?
  Thema: Wie Zeile richtig löschen? 
Phelan XLPH

Antworten: 7
Aufrufe: 461

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2009, 23:16   Titel: AW: Wie Zeile richtig löschen? Version: Office 2003
Genau, da die For..each-Schleife die Zellen von LinksNachRechts und
ObenNachUnten abarbeitet.
  Thema: Drop-Downfeld (Combobox) mit Trennstrich befüllen 
Phelan XLPH

Antworten: 4
Aufrufe: 1061

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2009, 18:57   Titel: AW: Drop-Downfeld (Combobox) mit Trennstrich befüllen Version: Office 2003
Denke nicht dass das mit einem DropDown-Feld geht.
  Thema: Drop-Downfeld (Combobox) mit Trennstrich befüllen 
Phelan XLPH

Antworten: 4
Aufrufe: 1061

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2009, 18:18   Titel: AW: Drop-Downfeld (Combobox) mit Trennstrich befüllen Version: Office 2003
Hallo,

hier mal ein Bsp Laughing

Private Sub ComboBox1_Change()
With ComboBox1
If .Value Like "-----*" Then _
.ListIndex = .ListIndex + 1
End With
End Sub

Private Sub UserForm_Initialize()
Dim i As Integer
With ComboBox1
For i = 1 To 14
If i Mod 5 = 0 Then
.AddItem String(50, "-")
Else
.AddItem i
End If
Next
End With
End Sub
  Thema: Dynamische erzeugte TextBoxen multiplizieren 
Phelan XLPH

Antworten: 4
Aufrufe: 327

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2009, 18:06   Titel: AW: Dynamische erzeugte TextBoxen multiplizieren Version: Office 2003
Hallo,

hier mal ein Bsp mit 3Buttons:

Private Sub CommandButton1_Click()
Dim i As Integer
Dim ctrl As Control
For i = 1 To 4
Set ctrl = Me.Controls.Add("Forms.TextBox.1", "TB" & i, True)
ctrl.Top = ctrl.Height * (i - 1)
Next
End Sub

Private Sub CommandButton2_Click()
Dim ctrl As Control

For Each ctrl In Me.Controls
If ctrl.Name Like "TB*" Then _
ctrl.Text = ctrl.Name
Next
End Sub

Private Sub CommandButton3_Click()
Dim i As Integer
On Error Resume Next
For i = 1 To 4
Controls("TB" & i).Text = i
Next
On Error GoTo 0
End Sub
  Thema: Jede 3. Zeile kopieren und werte einfügen 
Phelan XLPH

Antworten: 3
Aufrufe: 2131

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2009, 17:44   Titel: AW: Jede 3. Zeile kopieren und werte einfügen Version: Office 2003
@A711

wieso nicht so?

Sub egal()
Dim Zeile As Long
For Zeile = 400 To 990 Step 3
With Range(Cells(Zeile, 3), Cells(Zeile, 6))
.Value = .Value
End With
Next
End Sub
  Thema: Zelle sperren bei bedingter Eingabe 
Phelan XLPH

Antworten: 1
Aufrufe: 183

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2009, 17:34   Titel: AW: Zelle sperren bei bedingter Eingabe Version: Office XP (2002)
hier:
http://www.office-loesung.de/ftopic322853_0_0_asc.php
  Thema: Zeile löschen 
Phelan XLPH

Antworten: 3
Aufrufe: 167

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2009, 17:23   Titel: AW: Zeile löschen Version: Office 2003
Wo soll ich da nur anfangen... Confused

Sub test()
'


Dim T As Integer
Dim I As Integer

I = 0

For T = 1 To 8
'Eine weitere Zählvarible benötigst du nicht.
'T ist die Zählvariable der Schleife
I = I + 1
'Auf einen leeren Inhalt Inhalt prüfst du so Cells(I, 1).Value = ""
'oder IsEmpty(Cells(I, 1).Value) >> Prüft auch Formeleinträge
If Cells(I, 1).Value = " " Then Cells(I, 1).Value
'Hiermit wird der markierte Bereich 8x gelöscht
Selection.Delete Shift:=xlUp
Next T

End Sub
  Thema: Excel Vba Ordner öffnen und xls. auslesen 
Phelan XLPH

Antworten: 2
Aufrufe: 5084

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2009, 17:15   Titel: AW: Excel Vba Ordner öffnen und xls. auslesen Version: Office 2007
Hallo,

Sub Makro3()
Dim Wkb As Workbook, Zielmappe As Workbook
Dim strPfad As String, strDatei As String
Dim J As Integer

Set Zielmappe = ThisWorkbook

strPfad = "C:\Project Financing DB\Import\"
strDatei = Dir(strPfad & "*.xls", vbDirectory)

Do While strDatei <> ""
J = J + 1
Set Wkb = Workbooks.Open(strPfad & strDatei, False, True)
Zielmappe.Worksheets(1).Cells(J, 3) = Wkb.Worksheets(1).Cells(145, 3)
Zielmappe.Worksheets(1).Cells(J, 1) = Wkb.Worksheets(1).Cells(12, 3)
Wkb.Close
strDatei = Dir()
Loop
  Thema: Zeile löschen 
Phelan XLPH

Antworten: 3
Aufrufe: 167

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2009, 16:47   Titel: AW: Zeile löschen Version: Office 2003
Hallo,

versuchs mal so:
Sub test()
Dim I As Long
Dim LetzteZeile As Long

LetzteZeile = Cells(Rows.Count, 1).End(xlUp).Row
For I = LetzteZeile To 1 Step -1
If Cells(I, 1).Value = "" Then Rows(I).Delete
Next
End Sub

oder dieser Einzeiler
Sub test2()
Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
  Thema: *.asc importieren, Inhalt in Tabelle schreiben 
Phelan XLPH

Antworten: 10
Aufrufe: 599

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2009, 15:44   Titel: AW: *.asc importieren, Inhalt in Tabelle schreiben Version: Office 2007
Hat meine Lösung nicht funktioniert?
  Thema: ListBox eine Checkbox einfügen 
Phelan XLPH

Antworten: 2
Aufrufe: 3725

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2009, 15:40   Titel: AW: ListBox eine Checkbox einfügen Version: Office 2003
Schau dir das mal an:

Private Sub UserForm_Initialize()
ListBox1.AddItem 1
ListBox1.AddItem 2
ListBox1.AddItem 3
ListBox1.AddItem 4

ListBox1.MultiSelect = fmMultiSelectMulti
ListBox1.ListStyle = fmListStyleOption
End Sub
  Thema: 10 größten Werte einer Spalte 
Phelan XLPH

Antworten: 10
Aufrufe: 1479

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2009, 15:33   Titel: AW: 10 größten Werte einer Spalte Version: Office 2003
@bst

tolle Lösung.

Zeichnest du die Formel vorher immer auf, oder hat man sowas im Kopf?!
...oder schn in den Knochen Wink
 
Seite 609 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 606, 607, 608, 609, 610, 611, 612 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP JavaScript