Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 512 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 509, 510, 511, 512, 513, 514, 515 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Spalten im 4erpack summieren, dann Zeilenwechsel > array? 
Phelan XLPH

Antworten: 10
Aufrufe: 460

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Dez 2009, 17:01   Titel: AW: Spalten im 4erpack summieren, dann Zeilenwechsel > ar Version: Office 2007
Versuch das hier mal.

Sub x()
Dim arr As Variant, arrOut() As Variant
Dim i As Long, k As Integer, m As Long

With Range("A1").CurrentRegion
arr = .Resize(.Rows.Count - 1).Offset(1)
End With

For i = 1 To UBound(arr)
For k = 1 To UBound(arr, 2) Step 4
m = m + 1
ReDim Preserve arrOut(1 To m)
arrOut(m) = _
Val(arr(i, k)) _
+ Val(arr(i, k + 1)) _
+ Val(arr(i, k + 2)) _
+ Val(arr(i, k + 3))
Next
Next
Cells(2, UBound(arr, 2) + 2).Resize(UBound(arrOut)) = _
WorksheetFunction.Transpose(arrOut)
End Sub
  Thema: dynamischer Spezialfilter (Werte größer gleich 0) 
Phelan XLPH

Antworten: 3
Aufrufe: 1537

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Dez 2009, 16:32   Titel: AW: dynamischer Spezialfilter (Werte größer gleich 0) Version: Office 2007
Dann lad dir mal folgendes runter...

http://www.office-loesung.de/ftopic348095_0_0_asc.php
  Thema: Bei Start auf die aktuelle KW Register 
Phelan XLPH

Antworten: 10
Aufrufe: 1092

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Dez 2009, 15:02   Titel: AW: Bei Start auf die aktuelle KW Register Version: Office 97
Hab grad getestet vom 01.01.2000 bis Zeilenende einer Spalte 05.06.2179.

Tips&Tricks=> Funktion: KW_DIN
Ergebnis gefilterte Unterschide zwischen den 3 Funktionen:
Tabelle2  ABCDEF1DatumTips&TricksDatePartFormatGleich2000229.12.200315353FALSCH 331.12.200715353FALSCH 430.12.201915353FALSCH 529.12.203115353FALSCH 631.12.203515353FALSCH 730.12.204715353FALSCH 829.12.205915353FALSCH 931.12.206315353FALSCH 1030.12.207515353FALSCH 1129.12.208715353FALSCH 1231.12.209115353FALSCH 1302.01.2101525353FALSCH 1431.12.210315353FALSCH 1530.12.211515353FALSCH 1629.12.212715353FALSCH 1731.12.213115353FALSCH 1830.12.214315353FALSCH 1929.12.215515353FALSCH 2031.12.215915353FALSCH 2130.12.217115353FALSCH  Function KW_DIN(Datum As Date) As Integer
''von Christoph Kremer, Aachen
'Berechnt die KW nach DIN 1355
Dim t&
t = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
KW_DIN = (Datum - t - 3 + (Weekday ...
  Thema: Eingabe in Zelle zählen und begrenzen 
Phelan XLPH

Antworten: 5
Aufrufe: 1142

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Dez 2009, 14:22   Titel: AW: Eingabe in Zelle zählen und begrenzen Version: Office XP (2002)
Hallo Peter,

Beispie:
Tabelle1  ABC1 max. Textlänge:52 iiii43 sdfgs54 sdfa45 iiii4 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
TextFormatieren
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
TextFormatieren
End Sub

Sub TextFormatieren()
Dim cell As Range
Application.EnableEvents = False
For Each cell In Range("B2:B5") 'ggf. Anpassen ***************
If Len(cell) > Val(Range("C1")) Then _
cell = Left$(cell, Val(Range("C1")))
cell.Offset(, 1) = Len(cell)
Next
Application.EnableEvents = True
End Sub
  Thema: Bei Start auf die aktuelle KW Register 
Phelan XLPH

Antworten: 10
Aufrufe: 1092

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Dez 2009, 12:31   Titel: AW: Bei Start auf die aktuelle KW Register Version: Office 97
Kopier das hier ins KlassenModul: DieseArbeitsmappe

Private Sub Workbook_Open()
AktuelleKW
End Sub

Sub AktuelleKW()
Dim strKW As String
strKW = Format(Date, "ww", vbMonday, vbFirstFourDays)
If Not IsSheetExist(strKW) Then
MsgBox "Blatt " & strKW & " existiert nicht!"
Else
ThisWorkbook.Sheets(strKW).Activate
End If
End Sub

Public Function IsSheetExist(strBlattName As String) As Boolean
Dim sh As Object
For Each sh In ThisWorkbook.Sheets
If sh.Name = strBlattName Then _
IsSheetExist = True: Exit For
Next
End Function
  Thema: If function-next cell? 
Phelan XLPH

Antworten: 1
Aufrufe: 282

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Dez 2009, 02:10   Titel: AW: If function-next cell? Version: Office 2003
Sub y()
If Range("A1") <> "" Then Range("B2") = Hallo
End Sub
  Thema: Variable ersetzen 
Phelan XLPH

Antworten: 8
Aufrufe: 637

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Dez 2009, 01:32   Titel: AW: Variable ersetzen Version: Office 2007
Very Happy
  Thema: Bilder suchen und einfügen... aber wie???? 
Phelan XLPH

Antworten: 16
Aufrufe: 1296

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Dez 2009, 21:11   Titel: AW: Bilder suchen und einfügen... aber wie???? Version: Office 2003
@Amicro

Was ist Vaktor?
  Thema: Weihnachts-Countdown 
Phelan XLPH

Antworten: 5
Aufrufe: 857

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Dez 2009, 21:06   Titel: AW: Weihnachts-Countdown Version: Office 2003
so..
  Thema: Variable ersetzen 
Phelan XLPH

Antworten: 8
Aufrufe: 637

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Dez 2009, 20:42   Titel: AW: Variable ersetzen Version: Office 2007
Die Formel muss als Text in einer Zelle stehen!!!
siehe Grafik...
Grafik  ABC1   2   3  x^2+3*x-7 Sub rechnen()
Dim n As Double 'Zählervariable
Dim x As Double 'X-Tabelle schreiben
Dim von As Double
Dim bis As Double
Dim unterteilung As Double

With Sheets("Grafik")

unterteilung = .Range("L3")
von = .Range("H3")
bis = .Range("J3")

n = 1

Sheets("Wertetabelle").Columns("B:B").ClearContents
Sheets("Wertetabelle").Columns("C:C").ClearContents
For x = von To bis Step unterteilung
Sheets("Wertetabelle").Range("B" & n) = x
Sheets("Wertetabelle").Range("C" & n) = _
Evaluate(Replace(Replace("=" & .Range("C3").Text, "x" ...
  Thema: Variable ersetzen 
Phelan XLPH

Antworten: 8
Aufrufe: 637

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Dez 2009, 18:57   Titel: AW: Variable ersetzen Version: Office 2007
Vielleicht als Funktion?

in ein StandardModul:
Public Function Parabel(X_Wert As Double) As Double
Parabel = X_Wert ^ 2 + 2 * X_Wert
End Function
  Thema: Code optimierung - VBA Neuling 
Phelan XLPH

Antworten: 6
Aufrufe: 284

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Dez 2009, 18:39   Titel: AW: Code optimierung - VBA Neuling Version: Office 2007
Villeicht gehts noch einfacher aber erst einmal...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim intCont As Integer
If Not Application.Intersect(Target, Range("R17:R19")) Is Nothing Then
Range("BX4,BX7").Value = "X"
End If
If Range("E3").Value = "Test" And Range("AB6").Value = "" Or _
Range("E4").Value = "Test" And Range("AB6").Value = "" Then Range("AB6").Value = "x"

For intCont = 5 To 9
If Range("Z4").Value / Range("Z5").Value >= 1 And Range("E" & intCont).Value = "-" Then Range("E" & intCont).Value = "Bitte wählen"
If Range("E5").Value = "Bitte wählen" Then Range("E" & intCont).Interior.Colo ...
  Thema: Eingabe soll in die erste freie Zeile in Spalte B 
Phelan XLPH

Antworten: 1
Aufrufe: 192

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Dez 2009, 17:56   Titel: AW: Eingabe soll in die erste freie Zeile in Spalte B Version: Office 2008 (Mac)
Schön. Und wo ist der Code?
  Thema: Spalten zusammenfassen 
Phelan XLPH

Antworten: 4
Aufrufe: 230

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Dez 2009, 17:48   Titel: AW: Spalten zusammenfassen Version: Office 2003
Beispiel:
Sub SpalteKopieren()
Columns(1).Copy Columns(6)
End Sub
  Thema: Namenskonventionen 
Phelan XLPH

Antworten: 16
Aufrufe: 771

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Dez 2009, 16:59   Titel: AW: Namenskonventionen Version: (keine Angabe möglich)
Hier einen Auszug...der wichtigsten
http://de.wikibooks.org/wiki/VBA_in_Excel_-_Grundlagen:_Namenskonventionen
 
Seite 512 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 509, 510, 511, 512, 513, 514, 515 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen