Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 578 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 575, 576, 577, 578, 579, 580, 581 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Werte in Zahlengruppe "abschneiden" und anderswo & 
Phelan XLPH

Antworten: 6
Aufrufe: 445

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Aug 2009, 17:27   Titel: AW: Werte in Zahlengruppe "abschneiden" und anders Version: Office 2007
Oh das liegt wohl an dem Resize es verträgt keine 0 als Argument:

trage mal ober halb der Fehlerzeile folgendes ein:
If Int(sum / 650) > 0 Then _
  Thema: Zeilen mit Wert>0 in Spalte J in neue Datei speichern... 
Phelan XLPH

Antworten: 7
Aufrufe: 272

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Aug 2009, 17:14   Titel: AW: Zeilen mit Wert>0 in Spalte J in neue Datei speichern Version: Office 2003
Auch ne Möglichkeit:

Private Sub CommandButton2_Click()
Dim wks As Worksheet
With ThisWorkbook.Worksheets("Daten") 'zu kopierende Tabelle
.Range("J:J").AutoFilter Field:=1, Criteria1:=">0"
Intersect(.Range("A2:J25"), .Cells.SpecialCells(xlCellTypeVisible)).Copy _
Workbooks.Add(xlWBATWorksheet).Sheets(1).Cells(1, 1)
.Range("J:J").AutoFilter
End With
With ActiveSheet.UsedRange
.Value = .Value
End With
With ActiveWorkbook
.SaveAs "S:\Zinsen.xls" 'anpassen und die Kommentierung entfernen
.Close
End With
End Sub
  Thema: Werte in Zahlengruppe "abschneiden" und anderswo & 
Phelan XLPH

Antworten: 6
Aufrufe: 445

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Aug 2009, 16:45   Titel: AW: Werte in Zahlengruppe "abschneiden" und anders Version: Office 2007
teste mal:

Sub Aufaddieren()
Dim i As Long, lz As Long
Dim pos As Long, sum As Double, erste As Boolean

lz = Cells(Rows.Count, 1).End(xlUp).Row

With Tabelle1 'ANPASSEN************************
For i = 1 To lz
If .Cells(i, 1) > 0 Then
If erste Then
If sum = 0 Then pos = i
sum = sum + .Cells(i, 1).Value
End If
erste = True
Else
If sum Then
.Cells(pos, 1).Resize(i - pos) = 0
.Cells(pos, 1).Resize(Int(sum / 650)) = 650
.Cells(pos, 1).Offset(Int(sum / 650)) = sum - Int(sum / 650) * 650
sum = 0
erste = False
End If
End If
Next
End With
End Sub
  Thema: Literatur zu Excel VBA 
Phelan XLPH

Antworten: 5
Aufrufe: 579

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Aug 2009, 15:54   Titel: AW: Literatur zu Excel VBA Version: Office 2007
In der Vba-Hilfe steht reichlich
ausserdem hast du noch die Intellisence die dir die Methoden und Eigenschaften
liefert deren Erklärung du durch drücken von F1(Hilfe) erhälst.
Dann hast du noch den Objektkatalog F2-Taste.
  Thema: Kalender 
Phelan XLPH

Antworten: 10
Aufrufe: 436

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Aug 2009, 15:39   Titel: AW: Kalender Version: Office 2003
Option Explicit

Private rngBereich As Range

Private Sub Calendar1_Click()
rngBereich = Calendar1
rngBereich.NumberFormat = "m/d/yyyy"
Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("P5:P1370")) Is Nothing Then
Set rngBereich = Intersect(Target, Range("P5:P1370"))
Calendar1.Visible = True
Calendar1.Top = rngBereich.Top
If rngBereich.Left - Calendar1.Width - 2 >= 0 Then _
Calendar1.Left = Abs(rngBereich.Left - Calendar1.Width - 2)
Else
Calendar1.Visible = False
End If
End Sub
  Thema: String intelligent zerlegen 
Phelan XLPH

Antworten: 10
Aufrufe: 583

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Aug 2009, 15:14   Titel: AW: String intelligent zerlegen Version: Office 2003
test nochmal
  Thema: Kalender 
Phelan XLPH

Antworten: 10
Aufrufe: 436

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Aug 2009, 14:44   Titel: AW: Kalender Version: Office 2003
Option Explicit

Private rngBereich As Range

Private Sub Calendar1_Click()
rngBereich = Calendar1
rngBereich.NumberFormat = "m/d/yyyy"
Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("P5:P1370")) Is Nothing Then
Set rngBereich = Intersect(Target, Range("P5:P1370"))
ActiveSheet.Calendar1.Visible = True
Else
ActiveSheet.Calendar1.Visible = False
End If
End Sub
  Thema: String intelligent zerlegen 
Phelan XLPH

Antworten: 10
Aufrufe: 583

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Aug 2009, 14:37   Titel: AW: String intelligent zerlegen Version: Office 2003
hier mal als Funktion

in ein StandardModul:
Public Function ExtractString(Text As String, Position) As Variant
Dim Regex As Object, Ms As Object, txt As String
Dim a As String, b As Double, c As Double

Set Regex = CreateObject("VBScript.Regexp")

With Regex
.Pattern = "(M\d+X\d+\.?\d*|M\d+)"
.Global = False
.IgnoreCase = True
Set Ms = .Execute(Text)
If Ms.Count = 0 Then Exit Function
txt = Ms(0)
txt = UCase(txt)
a = Left(txt, 1)
If InStr(txt, "X") > 0 Then
b = Val(Split(Mid(txt, 2), "X")(0))
c = Val(Split(txt, "X")(1))
Else
b = Mid(txt, 2)
End If
End With
Select Case Position
Case 1: ExtractString = a
Case 2: ExtractString = b
Case 3: ExtractString = c
End Select
End Function

Funkti ...
  Thema: Makro zum umwandeln von Zellenformat in Zahlen 
Phelan XLPH

Antworten: 3
Aufrufe: 2013

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Aug 2009, 12:39   Titel: AW: Makro zum umwandeln von Zellenformat in Zahlen Version: Office 2007
Die daten müssten als text vorliegen.

Gib mal ein paar Beispiele wie diese aussehen könnten.
  Thema: Kalender 
Phelan XLPH

Antworten: 10
Aufrufe: 436

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Aug 2009, 12:37   Titel: AW: Kalender Version: Office 2003
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("P5:P1370")) Is Nothing Then
ActiveSheet.Calendar1.Visible = True
Else
ActiveSheet.Calendar1.Visible = False
End If
End Sub
  Thema: Excel mit Binde - u. Schrägstrich 
Phelan XLPH

Antworten: 2
Aufrufe: 587

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Aug 2009, 12:23   Titel: AW: Excel mit Binde - u. Schrägstrich Version: Office 2003
hi,
-rechtsklick in Zelle
-Zellen formatieren ...
-Zahlen/Benutzerdefiniert/Typ: 000" "000"-"0"-"00"/"0
  Thema: Makro zum umwandeln von Zellenformat in Zahlen 
Phelan XLPH

Antworten: 3
Aufrufe: 2013

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Aug 2009, 10:49   Titel: AW: Makro zum umwandeln von Zellenformat in Zahlen Version: Office 2007
hallo, teste das mal:
Sub Konvert()
With Columns(4)
.Replace What:=".", Replacement:=","
.TextToColumns .Cells
.NumberFormat = "0.00"
End With
End Sub
  Thema: Dateien aus Ordner auslesen und verlinken 
Phelan XLPH

Antworten: 2
Aufrufe: 1354

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Aug 2009, 10:39   Titel: AW: Dateien aus Ordner auslesen und verlinken Version: Office 2003
ersetze das:
Set Bereich = ActiveCell.CurrentRegion
durch das:
With ActiveCell.CurrentRegion
Set Bereich = .Offset(, 1).Resize(.Columns.Count - 1)
End With
  Thema: Formate mit übernehmen & Command Button aktivieren 
Phelan XLPH

Antworten: 6
Aufrufe: 1577

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Aug 2009, 10:23   Titel: AW: Formate mit übernehmen & Command Button aktivieren Version: Office 2003
ersetze zusätzlich das:
Rows("13:" & 13 + k).ClearContents
durch das:
Rows("13:" & 13 + k).Clear
  Thema: Daten importieren nur wenn Felder leer 
Phelan XLPH

Antworten: 4
Aufrufe: 239

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Aug 2009, 10:03   Titel: AW: Daten importieren nur wenn Felder leer Version: Office 2003
vielleicht bringt das ja was wenn du diese Zeile wie folgt abänderst:
.Refresh BackgroundQuery:=False
 
Seite 578 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 575, 576, 577, 578, 579, 580, 581 ... 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 Excel Tricks