Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 559 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 556, 557, 558, 559, 560, 561, 562 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Pflichtfelder automatisch überprüfen lassen... 
Phelan XLPH

Antworten: 4
Aufrufe: 484

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Aug 2009, 08:51   Titel: AW: Pflichtfelder automatisch überprüfen lassen... Version: Office 2007
hallo andrea, hier ein Beispiel mit Bedingter Formatierung.

Es wird der Bereich [A1:D9] überwacht:
  Thema: Speichern unter mit Dateinamen ohne Button etc 
Phelan XLPH

Antworten: 11
Aufrufe: 1532

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Aug 2009, 01:12   Titel: AW: Speichern unter mit Dateinamen ohne Button etc Version: Office 2007
meinst du

Workbook.SaveAs ?
  Thema: SVerweis 
Phelan XLPH

Antworten: 2
Aufrufe: 207

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Aug 2009, 01:10   Titel: AW: SVerweis Version: Office 2003
Stell die Berechnung von Manuell auf Automatic
  Thema: Formel in Festwerte 
Phelan XLPH

Antworten: 6
Aufrufe: 427

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Aug 2009, 01:07   Titel: AW: Formel in Festwerte Version: Office 2007
Unglaublich habs grad nochmal an einem anderen Beispiel getestet das gleich Ergebnis.


Nochwas nehme ich für die Umwandlung
statt .Value = .Value
folgendes:
.Copy
.PasteSpecial xlPasteValues

dann stimmt das Ergebnis.... *kopfschüttel*

...ich weiss aber nicht warum???????????
Shock Shock Shock Twisted Evil Twisted Evil
  Thema: Formel in Festwerte 
Phelan XLPH

Antworten: 6
Aufrufe: 427

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Aug 2009, 00:41   Titel: AW: Formel in Festwerte Version: Office 2007
hallo klaus-dieter,

mir gehts nicht ums endergebnis, mir fallen da auch noch andere Wege eine um
die Aufgabe zu lösen.

Mir geht es darum dass Formelwert sich bei Umwandlung in Festwert verändert,
was ja nicht sein kann,?!!!

Kann das jemand nachvollziehen?
  Thema: Formel in Festwerte 
Phelan XLPH

Antworten: 6
Aufrufe: 427

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Aug 2009, 23:11   Titel: Formel in Festwerte Version: Office 2007
Folgender Sachverhalt:

Die Leerzellen in SpalteA sollen mit dem nächstoberhalbliegenden ZellWert
aufgefüllt werden. Das klappt auch wunderbar. Aber versuch ich die Formeln
in Festwerte umzuwandeln (.Value = .Value) erhalte ich ein falsches Ergebnis in
Sub Makro1()
Dim rng As Range
On Error Resume Next
Set rng = Columns(1).SpecialCells(xlCellTypeBlanks)
If Err Then
MsgBox Err.Description, , "Fehler: " & Err
Exit Sub
End If
With rng
.Formula = "=" & .Cells(1).Offset(-1).Address(0, 0)
'.Value = .Value '**************Umwandlung********************
End With
If Err Then MsgBox "Zeile1 ohne Wert!", , "Hinweis"
End Sub
  Thema: Leere Zellen füllen 
Phelan XLPH

Antworten: 2
Aufrufe: 271

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Aug 2009, 23:02   Titel: AW: Leere Zellen füllen Version: Office 2007
Sub Makro1()
Dim rng As Range
On Error Resume Next
Set rng = Columns(1).SpecialCells(xlCellTypeBlanks)
If Err Then
MsgBox Err.Description, , "Fehler: " & Err
Exit Sub
End If
With rng
.Formula = "=" & .Cells(1).Offset(-1).Address(0, 0)
'.Value = .Value
End With
If Err Then MsgBox "Zeile1 ohne Wert!", , "Hinweis"
End Sub
  Thema: Msgbox unter bestimmter Voraussetzung 
Phelan XLPH

Antworten: 8
Aufrufe: 292

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Aug 2009, 22:38   Titel: AW: Msgbox unter bestimmter Voraussetzung Version: Office 2007
hallo chris,

das kannst du mit dem oberen Kombinieren.

ins codefenster des Tabellenblattes:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sum As Double
Dim rngF As Range
If Not Intersect(Target, Range("B:B")) Is Nothing And Target.Count = 1 Then
If Target = "" Then Exit Sub
sum = WorksheetFunction.SumIf(Range("A:A"), Target.Offset(, -1), Range("B:B"))
Set rngF = Range("C:C").Find(Target.Offset(, -1), , xlValues, xlWhole)
If Not rngF Is Nothing Then
If sum > Range("D" & rngF.Row).Value Then
Target.Select
MsgBox "Gesamtbudget von Produkt [" & Target.Offset(, -1) & "] ist um " & _
Format(Range("D" & rngF.Row).Value - sum, "# ...
  Thema: Datenblöcke verschieben 
Phelan XLPH

Antworten: 10
Aufrufe: 331

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Aug 2009, 22:11   Titel: AW: Datenblöcke verschieben Version: Office 2k (2000)
hi,

also habs jetzt mit diesem Code mit 1-6 Leerzeilen zw. den Blöcken getestet und
erhalte in der Ausgabe-txt keine Leerzeilen.

Sub TxtToTxt()
Dim txtIn As String, arr As Variant
Dim i As Long, txtOut As String
Dim QuellDatei As String, ZielDatei As String
Dim txtHeader As String, blnLeer As Boolean

QuellDatei = "D:\test\blocktrans.txt" 'Anpassen
ZielDatei = "D:\test\blocktransOUT.txt" 'Anpassen

'Einlesen
Open QuellDatei For Input As #1
txtIn = Input(LOF(1), #1)
Close #1
'Verarbeiten
arr = Split(txtIn, vbCrLf)

For i = LBound(arr) To UBound(arr)
If InStr(arr(i), "=") > 0 Then _
txtHeader = txtHeader & ";" & Trim$(Split(arr(i), "=")(0))
If InStr(arr(i), "dailyDateYYYYMMDD") Then Exit For
Next

For i = LBound(arr) To UBound(arr)
I ...
  Thema: Msgbox unter bestimmter Voraussetzung 
Phelan XLPH

Antworten: 8
Aufrufe: 292

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Aug 2009, 21:27   Titel: AW: Msgbox unter bestimmter Voraussetzung Version: Office 2007
hasllo,

muss das vba sein? Das lässt sich gut mit einer Formel lösen.

Tabelle1  ABCDE1ProduktnummerInvestitionProdukteGesamtbudgetBudget überschritten22105.00021010.000-1.000,00 €33012.0003015.000 411110001117.000 52106.000   63013.000   71112.000   Formeln der TabelleZelleFormelE2=WENN(D2-SUMMEWENN($A:$A;C2;$B:$B)<0;D2-SUMMEWENN($A:$A;C2;$B:$B);"")E3=WENN(D3-SUMMEWENN($A:$A;C3;$B:$B)<0;D3-SUMMEWENN($A:$A;C3;$B:$B);"")E4=WENN(D4-SUMMEWENN($A:$A;C4;$B:$B)<0;D4-SUMMEWENN($A:$A;C4;$B:$B);"") [url=http://www.office-loesung.de/ftopic91422_0_0_asc.php]Excel Jeanie Html
  Thema: Zelleninfos aus Excel als Quelle zur Dateibenennung via VBA 
Phelan XLPH

Antworten: 4
Aufrufe: 330

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Aug 2009, 19:20   Titel: AW: Zelleninfos aus Excel als Quelle zur Dateibenennung via Version: Office XP (2002)
und nochmal optimierter...
  Thema: Zelleninfos aus Excel als Quelle zur Dateibenennung via VBA 
Phelan XLPH

Antworten: 4
Aufrufe: 330

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Aug 2009, 18:58   Titel: AW: Zelleninfos aus Excel als Quelle zur Dateibenennung via Version: Office XP (2002)
hallo, der Dateipfad muss noch angepasst werden.
  Thema: Foto als Speicher ablegen 
Phelan XLPH

Antworten: 3
Aufrufe: 240

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Aug 2009, 17:39   Titel: AW: Foto als Speicher ablegen Version: Office 2003
bsp.

Sub AA()
Sheets("Tabelle3").Range("A1:D10").CopyPicture
Sheets("Tabelle2").Paste
'Application.CutCopyMode=false
End Sub
  Thema: übertragen in neue excel datei 
Phelan XLPH

Antworten: 1
Aufrufe: 184

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Aug 2009, 17:12   Titel: AW: übertragen in neue excel datei Version: Office 2003
Sub FilterdatenInNeueDatei()
Dim wkb As Workbook
Dim zell As Range
Dim i As Integer
Dim arr As Variant
Dim Dic As Object
Set Dic = CreateObject("Scripting.Dictionary")
With Sheets("Bedarfsermittlung 2010")
On Error Resume Next
Application.ScreenUpdating = False
For Each zell In Selection
Dic(zell.Text) = 0
Next
arr = Dic.Keys
For i = 0 To UBound(arr)
.Range("A1").CurrentRegion.AutoFilter Field:=11, Criteria1:=CStr(arr(i))
Set wkb = Workbooks.Add(xlWBATWorksheet)
.Range("A1").CurrentRegion.Copy wkb.Sheets(1).Range("A1")
wkb.SaveAs "Z:\XXXX\" & CStr(arr(i)) & ".xls", xlNormal
wkb.Close False
.ShowAllData
Next
Application.ScreenUpdating = True
End With
End Sub

Vorgehensweise: ...
  Thema: Nicht Breite/Höhe sondern Left/Top bei Comment anpassen 
Phelan XLPH

Antworten: 7
Aufrufe: 1189

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Aug 2009, 16:11   Titel: AW: Nicht Breite/Höhe sondern Left/Top bei Comment anpassen Version: Office 2007
Markier mal C3 und führe meinen Code aus
 
Seite 559 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 556, 557, 558, 559, 560, 561, 562 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web Forum