Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 640 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 637, 638, 639, 640, 641, 642, 643 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: newbie 
Phelan XLPH

Antworten: 14
Aufrufe: 342

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Mai 2009, 19:24   Titel: AW: newbie Version: Office 2007
Hallo, nimm mal den Code:

Private Sub ComboBox1_Change()
Selection = ComboBox1.Value
End Sub

Private Sub Worksheet_Activate()
Dim i As Integer
ComboBox1.Clear
For i = 0 To 1425 Step 15
ComboBox1.AddItem TimeSerial(0, i, 0)
Next
End Sub

Combobox wird gefüllt bei activierung des Tabellenblattes.
Bei Wechsel eines Wertes in der Combobox wird dieser in die zuvor
ausgewählten Zellen hineingeschrieben.
  Thema: newbie 
Phelan XLPH

Antworten: 14
Aufrufe: 342

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Mai 2009, 19:09   Titel: AW: newbie Version: Office 2007
Hallo,

Dabei sollte die Box meine Stunden nicht auf ein anderes Kästchen verweisen, sondern selbst den wert liefern

Verteh ich nicht, wohin oder von wo liefern???????
  Thema: verschiedene txt dateien in mehrere workbooks schreiben? 
Phelan XLPH

Antworten: 2
Aufrufe: 852

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Mai 2009, 19:06   Titel: AW: verschiedene txt dateien in mehrere workbooks schreiben? Version: Office 2003
Hallo, teste das hier mal:

Sub TextFileImportAndCreateChart()
Dim fs As Object, f As Object
Dim vntPfad As Variant
Dim i As Integer

vntPfad = Application.GetOpenFilename("Text Files (*.txt), *.txt", , , , True)
If Not IsArray(vntPfad) Then Exit Sub

For i = 1 To UBound(vntPfad)
'TextDatei importieren
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(vntPfad(i), 1, False, 0)
Schreiben f.ReadAll
f.Close

'Blatt erzeugen
Worksheets.Add After:=Sheets(Sheets.Count)

'TextInSpalten falls Semikolon als Trennzeichen
With ActiveSheet
.Cells.Clear
.Range("A1") = 0
.Range("A1").TextToColumns _
DataType:=xlDelimited, _
Tab:=Tru ...
  Thema: newbie 
Phelan XLPH

Antworten: 14
Aufrufe: 342

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Mai 2009, 18:31   Titel: AW: newbie Version: Office 2007
In Zukunft immer so genau wie möglich Angaben machen. Smile
  Thema: Mehrere Sheets in einem zusammenführen 
Phelan XLPH

Antworten: 4
Aufrufe: 299

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Mai 2009, 18:24   Titel: AW: Mehrere Sheets in einem zusammenführen Version: Office 2k (2000)
Hallo,

in ein StandardModul:
Sub BlaetterKonsolidiren()
Dim wks As Worksheet
Dim wksZ As Worksheet
Dim rngBereich As Range

Set wksZ = Worksheets("Master")

For Each wks In ThisWorkbook.Worksheets
If wks.Name <> wksZ.Name Then
Set rngBereich = wks.Range("A4", wks.Cells.SpecialCells(xlCellTypeLastCell))
If WorksheetFunction.CountBlank(rngBereich.Columns(1).Cells) > 0 And _
WorksheetFunction.CountA(rngBereich.Columns(1).Cells) > 0 Then
Set rngBereich = _
Intersect(rngBereich, wks.Columns(1).ColumnDifferences(wks.Cells(wks.Rows.Count, 1)).EntireRow)
End If
If wksZ.Cells(wksZ.Rows.Count, 1).End(xlUp).Offset(1, 0).Row < 4 Then
rngBereich.Copy wksZ.Range("A4")
Else
rngBereich.Copy wksZ.Cells(wk ...
  Thema: Combobox in UserForm mittels vba erstellen 
Phelan XLPH

Antworten: 2
Aufrufe: 1677

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Mai 2009, 17:48   Titel: AW: Combobox in UserForm mittels vba erstellen Version: Office 2003
Bsp aus der Hilfe:

Dim Mycmd as Control
Private Sub CommandButton1_Click()

Set Mycmd = Controls.Add("MSForms.CommandButton.1") ', CommandButton2, Visible)
Mycmd.Left = 18
Mycmd.Top = 150
Mycmd.Width = 175
Mycmd.Height = 20
Mycmd.Caption = "This is fun." & Mycmd.Name

End Sub
  Thema: In UserForm CommandButton abfragen 
Phelan XLPH

Antworten: 5
Aufrufe: 3366

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Mai 2009, 17:43   Titel: AW: In UserForm CommandButton abfragen Version: Office 2007
Bei 10 Button kann man das noch hinnehmen. Man könnte das
über eine selbstdefinierte Click-ereignis in einem KlassenModul realisieren, das
aber nicht einfacher wird (vom Verständnis).

Kaum schreib ich das wirds sich ein Prof an die Arbeit machen dieses zu
erstellen....


Verwende doch ne ComboBox
  Thema: newbie 
Phelan XLPH

Antworten: 14
Aufrufe: 342

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Mai 2009, 17:35   Titel: AW: newbie Version: Office 2007
Du musst noch die ComboBox einfügen, und dann den EntwurfsModus
deaktivieren.
  Thema: newbie 
Phelan XLPH

Antworten: 14
Aufrufe: 342

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Mai 2009, 17:17   Titel: AW: newbie Version: Office 2007
Hallo, hier mal ein Bsp mit ComboBox (ActiveX-Element)

ins codefenster der tabelle:
Private Sub ComboBox1_Change()
Range("B1").Value = ComboBox1.Value
End Sub

Private Sub ComboBox1_GotFocus()
Dim i As Integer
For i = 0 To 23
ComboBox1.AddItem TimeSerial(i, 0, 0)
Next
End Sub
  Thema: " in einem expliziten String 
Phelan XLPH

Antworten: 5
Aufrufe: 203

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Mai 2009, 17:07   Titel: AW: " in einem expliziten String Version: Office 2003
Hallo

Sub Test()
MsgBox "X-""-X"
End Sub

String Anfang und Ende
Doppel-Hochkomma -> Ausgabe: Hochkomma
  Thema: Daten aus zwei Tabellenblättern in eine txt-Datei kopieren 
Phelan XLPH

Antworten: 13
Aufrufe: 727

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Mai 2009, 17:01   Titel: AW: Daten aus zwei Tabellenblättern in eine txt-Datei kopier Version: Office 2003
Danke ebenso, das sollte ich wirklich in Zukunft mit angeben:
Verweis: "Microsoft Forms 2.0 Object Libary"
  Thema: newbie 
Phelan XLPH

Antworten: 14
Aufrufe: 342

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Mai 2009, 16:59   Titel: AW: newbie Version: Office 2007
Hallo vamy,

du musst schon genauer werden, das ist zu allgemein.
  Thema: Matrix ohne Leerstellen in Liste kopieren 
Phelan XLPH

Antworten: 2
Aufrufe: 700

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Mai 2009, 10:04   Titel: AW: Matrix ohne Leerstellen in Liste kopieren Version: Office 2003
Hallo,

ich seh da keine Logik dahinter.

das hier wäre für mich logisch:
a 1
c 3
d 4
e 5
q 2
r 3
t 1
u 3
  Thema: Daten aus zwei Tabellenblättern in eine txt-Datei kopieren 
Phelan XLPH

Antworten: 13
Aufrufe: 727

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Mai 2009, 08:56   Titel: AW: Daten aus zwei Tabellenblättern in eine txt-Datei kopier Version: Office 2003
NEIN NICHT SCHON WIEDER!!!!!! AAAAArrrrrgggg!!! Twisted Evil

...passiert mir immer wieder dass ich den letzteren Teil das vergesse.

Sub OpenTextFileForAppend()
Dim wks As Worksheet
Dim arr As Variant
Dim strPfad As String
Dim fs, f

strPfad = "D:\test\FATXT.txt" '***ANPASSEN***

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(strPfad, 8, True, 0)
On Error GoTo ENDE
For Each wks In ThisWorkbook.Worksheets
Select Case wks.Name
Case "Tabelle3", "Tabelle4" '***ANPASSEN***
wks.Range("A1", wks.Range("A" & wks.Rows.Count).End(xlUp)).Copy
f.Write lesen
End Select
Next
ENDE:
f.Close
End Sub
Private Function lesen() As String
Dim clp As New DataObject
With clp
.GetFromClipboard
...
  Thema: Eintrag suchen 
Phelan XLPH

Antworten: 2
Aufrufe: 211

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Mai 2009, 08:53   Titel: AW: Eintrag suchen Version: Office 2007
Hallo,

teste das mal:
 
Seite 640 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 637, 638, 639, 640, 641, 642, 643 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Editoren Forum