Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 660 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 657, 658, 659, 660, 661, 662, 663 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: LableCaption aus ComboBox 
Phelan XLPH

Antworten: 3
Aufrufe: 276

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Apr 2009, 08:44   Titel: AW: LableCaption aus ComboBox Version: Office 2003
Das sieht mir eher nach einer ListBox aus. Bist du dir sicher dass es eine
ComboBox ist?

Das müsste langen(falls Combo):
lbl.Caption = Werte.Value
  Thema: SendKeys 
Phelan XLPH

Antworten: 9
Aufrufe: 763

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Apr 2009, 08:37   Titel: AW: SendKeys Version: Office 2007
Hallo,

hab das hier warum funzt das bei mir nicht, ging mal jetzt nicht mehr.

Liegt das an einem Bibliotheks-verweis?

Public Sub MsgBoxAutoClose()
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.popup "...bin gleich weg!", 3, "Nur nicht hetzen...." ' 3 sec.
End Sub
  Thema: Kilometerzähler 
Phelan XLPH

Antworten: 16
Aufrufe: 1026

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Apr 2009, 01:39   Titel: AW: Kilometerzähler Version: Office XP (2002)
Razz Razz Razz
  Thema: Tabelle anfertigen mit Zeilen 
Phelan XLPH

Antworten: 6
Aufrufe: 295

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Apr 2009, 01:35   Titel: AW: Tabelle anfertigen mit Zeilen Version: Office 2003
ola;

Sub ZeilenInSpalten()
Dim wks As Worksheet
Dim zell As Range
Dim i As Long
Dim Dic As Object
Dim keyD As Variant
Dim arr As Variant

Set Dic = CreateObject("Scripting.Dictionary")
Set wks = Worksheets("Tabelle2") 'Anpassen

For Each zell In wks.Range("B1", wks.Cells(wks.Rows.Count, 2).End(xlUp))
If zell <> "" Then
Dic(zell.Value) = Dic(zell.Value) & ";" & zell.Offset(0, 1).Value _
& ";" & zell.Offset(0, -1).Value & ";" & zell.Offset(0, 2).Value
End If
Next

i = 5
For Each keyD In Dic.Keys
i = i + 1
arr = Split(Mid(Dic(keyD), 2), ";")
wks.Cells(1, i) = keyD
wks.Cells(2, i).Resize(UBound(arr) + 1) = _
WorksheetFunction.Transpose(arr)
Next
End Sub
  Thema: wenn istzahl, dann in eine nächste Spalte schreiben 
Phelan XLPH

Antworten: 4
Aufrufe: 1691

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Apr 2009, 01:07   Titel: AW: wenn istzahl, dann in eine nächste Spalte schreiben Version: Office 2007
ola,

Sub Rendite()
Dim arr As Variant
Dim arrOut() As Variant
Dim i As Long
Dim k As Long

arr = Range("A1", Cells.SpecialCells(xlCellTypeLastCell))

For i = 1 To UBound(arr)
If IsDate(arr(i, 1)) Then
If Day(arr(i, 1)) = 1 Then
k = k + 1
ReDim Preserve arrOut(1 To 1, 1 To k)
arrOut(1, k) = arr(i, 2)
End If
End If
Next
Range("C1").Resize(UBound(arrOut, 2)) = _
WorksheetFunction.Transpose(arrOut)
End Sub
  Thema: Tabelle mit VBA sortieren 
Phelan XLPH

Antworten: 6
Aufrufe: 512

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Apr 2009, 08:33   Titel: AW: Tabelle mit VBA sortieren Version: Office 2003
Kann mir nicht vorstellen dass die Filterung nicht funktioniert.
  Thema: Produkt berechnen 
Phelan XLPH

Antworten: 6
Aufrufe: 1173

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Apr 2009, 08:04   Titel: AW: Produkt berechnen Version: Office 2007
Hallo,

vielleicht hilft dir eines der beiden weiter:

Sub ProduktZahlen()
Dim i As Integer
Dim arr As Variant
Dim prod As Double
Dim A As Double

A = 66
arr = Array(23, 1, 44, 36, 74, 24, 33) '7 verschiedene Zahlen

prod = 1
For i = 0 To UBound(arr) - 1
prod = prod * arr(i)
Next

prod = prod * A

MsgBox prod
End Sub

Sub ProduktZufallZahlen()
Dim i As Integer
Dim prod As Double
Dim A As Double
Dim anz As Integer
Dim zufall As Double
Dim OG As Integer
Dim UG As Integer

A = 66

anz = 7
prod = 1

OG = 50
UG = 1

For i = 1 To anz
Randomize
zufall = Int((OG - UG + 1) * Rnd + UG)
prod = prod * zufall
Next

prod = prod * A

MsgBox prod
End Sub
  Thema: Produkt berechnen 
Phelan XLPH

Antworten: 6
Aufrufe: 1173

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Apr 2009, 14:31   Titel: AW: Produkt berechnen Version: Office 2007
Hallo,

als Ergebnis wäre das wohl: =Fakultät(7)*A


hier ein Bsp:

Sub FakultaetProdukt()
Dim A As Double
Dim intFakultaetZahl As Integer

intFakultaetZahl = 7
A = 2
Range("A1") = WorksheetFunction.Fact(intFakultaetZahl) * A
End Sub
  Thema: Makro-Hilfe 
Phelan XLPH

Antworten: 4
Aufrufe: 518

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Apr 2009, 08:29   Titel: AW: Makro-Hilfe Version: Office 2003
Hallo,

DatenSätze nie blockweise verwalten, wenn nicht unbedingt nötig.

...sondern zeilenweise:
Tabelle2  ABCDEFGHIJKLM1Identnummer  DatenweitergabeNameGrundanschrift Geburtsdatum/-ortTelefonTelefaxMobilE-MailInternet280084vollständig / 2009-04-21- / - / -gemäß IHK-GHeinz Friedrich HaeseGeesthachter Str. 3521502 Hamwarde15.03.1963- - -- - -- - -  3228798vollständig / 2009-04-21- / - / -gemäß IHK-GMartin Schulz-LibotteAltenfelder Str. 4a22965 Todendorf13.01.1962- - -- - -- - -  4              Sub ZeichenEntfernen()
Columns("G:G").Replace " /", ""
Columns("H:H").Replace " / -", ""
End Sub


Weitere Tips zur einfacheren Verwaltung und Bearbeitung der Daten:
SpalteE (Name) sollte man noch auftrennen in Vorname und Nachname
SpalteF (Grundanschrift) umbenennen in Straße
SpalteG () auftrennen in Postleitzahl und Ort
SpalteH (Gebutsdatum/-ort) auftrennen in Geburtsdatum und Geburtsort ...
  Thema: Sichern eines Blattes 
Phelan XLPH

Antworten: 2
Aufrufe: 160

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Apr 2009, 19:56   Titel: AW: Sichern eines Blattes Version: Office 2003
Hallo, hier ein Bsp:

Sub Beispiel()
Dim n As Name
Dim i As Long
'Schtz deaktivieren
ActiveSheet.Unprotect '"PW"
'Eingabe
For Each n In Tabelle1.Names
i = i + 1
Range("A" & i) = n.Name
Next
'Schtz aktivieren
ActiveSheet.Unprotect '"PW"
End Sub
  Thema: Werte addieren bei bestimmten Kriterium 
Phelan XLPH

Antworten: 4
Aufrufe: 1283

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Apr 2009, 19:23   Titel: AW: Werte addieren bei bestimmten Kriterium Version: Office 2k (2000)
Hallo,

ist auch nicht zu verachten,(oberste Zeile sollte leer sein):
Sub SummeBisLeer()
Dim rngS As Range
Dim ar As Range
Set rngS = Range("A:A").ColumnDifferences(Range("A:A").Find(""))
For Each ar In rngS.Areas
On Error Resume Next
ar(1).Offset(-1, 1) = _
WorksheetFunction.Sum(ar.Resize(ar.Rows.Count + 1).Offset(-1, 1))
Next
End Sub
  Thema: Zeilenvektor aus Matrix zufällig auswählen 
Phelan XLPH

Antworten: 2
Aufrufe: 1013

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Apr 2009, 19:10   Titel: AW: Zeilenvektor aus Matrix zufällig auswählen Version: Office 2007
Hallo,

in ein StandardModul:
Sub ZufallZeile()
Dim wksQ As Worksheet, wksZ As Worksheet
Dim arr As Variant, i As Long, z As Long
Dim k As Long, h As Variant, anz As Long

Set wksQ = Worksheets("Tabelle20") 'Quelle Anpassen
Set wksZ = Worksheets("Tabelle22") 'Ziel Anpassen

anz = 100 'Anpassen
arr = wksQ.Range("A1:G2000") 'Anpassen

If anz > UBound(arr) Then anz = UBound(arr)
'Zufall-Tausch
For i = 1 To UBound(arr)
Randomize Timer
z = Int((UBound(arr) - LBound(arr) + 1) * Rnd + LBound(arr))
For k = 1 To UBound(arr, 2)
h = arr(i, k)
arr(i, k) = arr(z, k)
arr(z, k) = h
Next
Next
'Ausgabe
wksZ.Range("A1").Resize(anz, UBound(arr, 2)) = arr
End Sub
  Thema: Problem mit Format bei einfügen aus Zwischenspeicher 
Phelan XLPH

Antworten: 2
Aufrufe: 1555

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Apr 2009, 18:18   Titel: AW: Problem mit Format bei einfügen aus Zwischenspeicher Version: Office XP (2002)
Hallo,

in ein StandardModel:
Sub TausenderZeichenLoeschen()
Dim i As Long
Dim arrZ As Variant
'Quelle ANPASSEN
With Worksheets("Tabelle1")
.Range("A1:E10").Copy
End With
'TausenderMarke eliminieren
arrZ = Split(lesen, vbCrLf)
For i = 0 To UBound(arrZ) - 1
arrZ(i) = Replace(arrZ(i), ".", "")
Next
Schreiben Join(arrZ, vbCrLf)
'Ziel ANPASSEN
With Worksheets("Tabelle1")
.Paste .Range("G1")
End With
End Sub

Private Function lesen() As String
Dim clp As New DataObject
With clp
.GetFromClipboard
lesen = .GetText
End With
End Function

Private Sub Schreiben(s)
Dim clp As New DataObject
With clp
.SetText s
.PutInClipboard
End With
End Sub
  Thema: Blattnme als Zuordnungskriterium 
Phelan XLPH

Antworten: 14
Aufrufe: 227

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Apr 2009, 16:40   Titel: AW: Blattnme als Zuordnungskriterium Version: Office 2003
Danke ebnso Smile

google mal hier im Forum...da hats jede Menge Hinweise zu Lern-Material

Wikipedia soll nicht schlecht sein...für den Anfang
  Thema: Datenfelder aus Binärdaten auslesen und in Datei schreiben 
Phelan XLPH

Antworten: 2
Aufrufe: 1940

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Apr 2009, 16:38   Titel: AW: Datenfelder aus Binärdaten einlesen Version: Office XP (2002)
Hallo,

dann lad mal hoch!
 
Seite 660 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 657, 658, 659, 660, 661, 662, 663 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project