Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 631 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 628, 629, 630, 631, 632, 633, 634 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Fourier Analyse funktioniert "nicht dauerhaft" 
Phelan XLPH

Antworten: 9
Aufrufe: 1774

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Jun 2009, 08:27   Titel: AW: Fourier Analyse funktioniert "nicht dauerhaft" Version: Office 2007
Hoi, Ingi

...ein richtig dickes Buch das du uns da vor die Nase wirfst,
leider ohne Text Wink
  Thema: find ab einer zelle 
Phelan XLPH

Antworten: 16
Aufrufe: 1053

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Jun 2009, 21:25   Titel: AW: find ab einer zelle Version: Office 2007
Genau Darum gehts doch in ertser Linie das der Code in einen Fehler läuft.
und 2. hab ich deinen Code getestet. Ergebnis->Endlosschleife.

Die Hilfe wird sich schon was dabei gedacht haben die Ertse Adresse abzufragen.

Das hier kann zu einem Fehler führen:
Loop While Not c Is Nothing And c.Address <> firstAddress

Deshalb meine Korrektur. Hatte ich schon öfters da wenn c nothing ist,
c.Address <> firstAddress nicht ausgewertet werden kann.

Beide Bedingungen haben schon ihren sinn.

Ende dieser Geschichte. AMEN
  Thema: find ab einer zelle 
Phelan XLPH

Antworten: 16
Aufrufe: 1053

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Jun 2009, 21:11   Titel: AW: find ab einer zelle Version: Office 2007
@Steffl, da hast jetzt ne tolle Endlosschleife, falls die 2 nicht durch 5
ersetzt wird.

so nicht....
  Thema: find ab einer zelle 
Phelan XLPH

Antworten: 16
Aufrufe: 1053

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Jun 2009, 20:53   Titel: AW: find ab einer zelle Version: Office 2007
@EtoPHG, es ist schwierig eine Prostituierte zur Mutter Theresa zu bekehren.

Also alle machens so obs richtig ist oder nicht, was solls.

Er will die Hilfe, er bekommt die Hilfe.

Will mal nicht so sein:
Sub FindMethodeKorrektur()
With Worksheets(1).Range("a1:a500")
Set c = .Find(2, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
If c Is Nothing Then Exit Do
Loop While c.Address <> firstAddress
End If
End With
End Sub

If c Is Nothing Then Exit Do
Loop While c.Address <> firstAddress
  Thema: Variabler Zellbezug in Zeile (bei Formel) 
Phelan XLPH

Antworten: 6
Aufrufe: 252

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Jun 2009, 19:53   Titel: AW: Variabler Zellbezug in Zeile (bei Formel) Version: Office 2003
Ups,

hab das wichtigste vergessen:
For i = 3 To lLastcolumn
wsS.Cells(lLastRow + 1, i).Formula = _
"=Sum(" & wsS.Range(wsS.Cells(19, i), wsS.Cells(22, i)).Address(0, 0) & ")"
Next
  Thema: Variabler Zellbezug in Zeile (bei Formel) 
Phelan XLPH

Antworten: 6
Aufrufe: 252

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Jun 2009, 19:48   Titel: AW: Variabler Zellbezug in Zeile (bei Formel) Version: Office 2003
Hoi,

teste das mal:

For i = 3 To lLastcolumn
wsS.Cells(lLastRow + 1, i).Formula = _
"=Sum(" & wsS.Range(wsS.Cells(19, i), wsS.Cells(22, i)) & ")"
Next
  Thema: Mehrere Checkboxen prüfen u. in verschied. Zellen schreiben 
Phelan XLPH

Antworten: 19
Aufrufe: 2404

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Jun 2009, 19:22   Titel: AW: Mehrere Checkboxen prüfen u. in verschied. Zellen schrei Version: Office 2007
OOOOOOhhhhhhhhh EtoPHG, i´m very impressed 8)

If ctrl99 And Len(ctrl99.Tag) > 0 Then

...das versteh ich nicht, wozu das?
  Thema: Mit VBA Code in andere Arbeitsmappe schreiben bzw. kopieren 
Phelan XLPH

Antworten: 6
Aufrufe: 3258

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Jun 2009, 17:08   Titel: AW: Mit VBA Code in andere Arbeitsmappe schreiben bzw. kopie Version: Office 2k (2000)
Hallo,

hab mich mal versucht:

Sub BlattAlsMappe()
Dim strDatei As String
Dim strPfad As String
strDatei = "BSP.xls"
strPfad = "D:\test\"
ActiveSheet.Copy
ActiveWorkbook.SaveAs strPfad & strDatei
prcCopyCode strDatei
End Sub

Private Sub prcCopyCode(strWkbName As String)
Const PROC_NAME = "Workbook_Open"
Dim objCM As Object
Set objCM = ThisWorkbook.VBProject. _
VBComponents("DieseArbeitsmappe").CodeModule
With Workbooks(strWkbName).VBProject. _
VBComponents("DieseArbeitsmappe").CodeModule
.DeleteLines 1, .CountOfLines
.InsertLines 1, "Option Explicit"
.InsertLines 2, ""
.InsertLines objCM.ProcBodyLine(PROC_NAME, 0), _
objCM.Lines(objCM.ProcBodyLine(PROC_NAME, 0), _
objCM.ProcCountLines(PROC_NAME, 0) - 1)
End With
E ...
  Thema: find ab einer zelle 
Phelan XLPH

Antworten: 16
Aufrufe: 1053

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Jun 2009, 15:18   Titel: AW: find ab einer zelle Version: Office 2007
With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
  Thema: for each schleife_Prozedur ausführen, wenn bedingung erfüllt 
Phelan XLPH

Antworten: 7
Aufrufe: 1828

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Jun 2009, 14:27   Titel: AW: for each schleife_Prozedur ausführen, wenn bedingung erf Version: OpenOffice/StarOffice
hallo,

hier mal ein Bsp.

Sub Test10()
Dim zell As Range
For Each zell In Range("C2", Range("C" & Rows.Count).End(xlUp))
If zell.Value = 1 Then Ausgabe zell.Offset(, 1)
Next
End Sub

Sub Ausgabe(vntWert As Variant)
MsgBox vntWert
End Sub
  Thema: Kopieren per Makro geht nicht 
Phelan XLPH

Antworten: 4
Aufrufe: 264

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Jun 2009, 14:15   Titel: AW: Kopieren per Makro geht nicht Version: Office 2003
teste das mal:
Sub Test()
Sheets("E2").Range("R6").Value = Sheets("E1").Range("E2").Value
Sheets("E3").Range("R6").Value = Sheets("E1").Range("E2").Value
End Sub
  Thema: Mehrere Checkboxen prüfen u. in verschied. Zellen schreiben 
Phelan XLPH

Antworten: 19
Aufrufe: 2404

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Jun 2009, 14:10   Titel: AW: Mehrere Checkboxen prüfen u. in verschied. Zellen schrei Version: Office 2007
...tja daran hab ich nicht gedacht, Peter hat recht da Textvergleich!!!
  Thema: Textdatei in Excel 
Phelan XLPH

Antworten: 14
Aufrufe: 282

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Jun 2009, 14:08   Titel: AW: Textdatei in Excel Version: Office 2007
lad mal eine bsp.-TextDatei hoch falls nicht geht, gdann gezipt hochladen.
Kein Lust mehr auf Rätselraten - OK?
  Thema: Zellbreich kopieren und mit Formeln einfügen 
Phelan XLPH

Antworten: 10
Aufrufe: 223

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Jun 2009, 14:03   Titel: AW: Zellbreich kopieren und mit Formeln einfügen Version: Office 2003
Also,

in ein Standard-Modul:
Sub BereichVerschieben()
Dim wks As Worksheet
For Each wks In Worksheets
wks.Range("P268:AG276").Cut wks.Range("O268")
Next
End Sub

dieser Code geht ALLE Blätter in der Mappe durch und Schneidet
den Bereich "P268:AG276" aus und fügt ihn um eine Spalte nach links
versetzt ein.

VORSICHT falls nicht alle Blätter dieser Prozedur unters Messer fallen sollen.
  Thema: Zellbreich kopieren und mit Formeln einfügen 
Phelan XLPH

Antworten: 10
Aufrufe: 223

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Jun 2009, 13:54   Titel: AW: Zellbreich kopieren und mit Formeln einfügen Version: Office 2003
...du meinst lösche die alte AG???!!!
 
Seite 631 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 628, 629, 630, 631, 632, 633, 634 ... 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 Word Serienbriefe