Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 569 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 566, 567, 568, 569, 570, 571, 572 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Text finden und alle zeilen bis zur nächsten Leerzeile kopie 
Phelan XLPH

Antworten: 26
Aufrufe: 993

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Aug 2009, 08:43   Titel: AW: Text finden und alle zeilen bis zur nächsten Leerzeile k Version: Office 97
liegt wohl am split, gin´bts anscheinend erst ab Excel2000


Sub TxtToTxt2()
Dim txtIn As String, Uebernehmen As Boolean, Beginn As Boolean
Dim suchwort As String, txtOut As String
Dim QuellDatei As String, ZielDatei As String

QuellDatei = "D:\test\block.txt" 'Anpassen
ZielDatei = "D:\test\blockOUT.txt" 'Anpassen
suchwort = "nukular" 'Anpassen

Beginn = True
'Einlesen
Open QuellDatei For Input As #1
Do While Not EOF(1)
Line Input #1, txtIn
If InStr(LCase$(txtIn), suchwort) > 0 And Beginn Then Uebernehmen = True
If Uebernehmen Then txtOut = txtOut & txtIn & vbCrLf
If Trim$(txtIn) = "" Then
Uebernehmen = False
Beginn = True
Else
Beginn = False
End If
Loop
Close #1

'Auslesen
Open ZielDatei For Output As #1
Print #1, txtOut
Close #1
End Sub

Optimiert
  Thema: Erlang C Formel 
Phelan XLPH

Antworten: 5
Aufrufe: 2775

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Aug 2009, 00:44   Titel: AW: Erlang C Formel Version: Office 2007
hilft dir das weiter:
http://de.wikipedia.org/wiki/Erlang_C
  Thema: Excel 123.623 Zeilenwerte mappen und umbennen 
Phelan XLPH

Antworten: 6
Aufrufe: 201

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Aug 2009, 21:51   Titel: AW: Excel 123.623 Zeilenwerte mappen und umbennen Version: Office 2007
Weil die User an verschiedenen Versionen arbeiten!

Oft ist die Version des heimischen Excel nicht des geschäftlichen Excel
  Thema: suchfunktion vba marko 
Phelan XLPH

Antworten: 4
Aufrufe: 526

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Aug 2009, 18:46   Titel: AW: suchfunktion vba marko Version: Office 2003
oder sowas?
  Thema: unterschied zwischen Office XP und 2003 bei Datums suche 
Phelan XLPH

Antworten: 2
Aufrufe: 1030

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Aug 2009, 18:15   Titel: AW: unterschied zwischen Office XP und 2003 bei Datums suche Version: Office 2003
ersetze mal das:
xlValues
durch das:
xlFormulas
  Thema: Codeausführung bei schließen der Userform verhindern 
Phelan XLPH

Antworten: 14
Aufrufe: 675

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Aug 2009, 18:11   Titel: AW: Codeausführung bei schließen der Userform verhindern Version: Office 2007
@Nepumuk

...das ist Nötigung und kann strafrechtlich verfolgt werden, das ist dir doch klar!
Laughing Laughing Laughing Laughing Razz Razz Very Happy Very Happy 8) 8) 8)
  Thema: Anzahl Leerzellen angeben 
Phelan XLPH

Antworten: 38
Aufrufe: 1291

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Aug 2009, 18:04   Titel: AW: Anzahl Leerzellen angeben Version: Office XP (2002)
Logisch Volker da per Code jedes mal die Spalte C entsperrt wird.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C:C")) Is Nothing Then
Zeitfenster
End If
End Sub

Private Sub Zeitfenster()
Dim rngBereich As Range
Dim i As Long, intCalc As Integer

intCalc = Application.Calculation
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

Me.Unprotect "PW"
'Cells.Locked = True

Set rngBereich = Range("C2:C" & Cells(Rows.Count, 2).End(xlUp).Row)

On Error Resume Next
Set rngBereich = rngBereich.SpecialCells(xlCellTypeBlanks)
If Not Err Then
Range("D:E").ClearContents
With rngBereich.Areas
For i = 1 To .Count
.Item(i).Cells(1).Offset(, 1) = .Item(i).Count
.Item& ...
  Thema: Autofilter bei Dateiöffnung zurücksetzen 
Phelan XLPH

Antworten: 14
Aufrufe: 3690

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Aug 2009, 17:53   Titel: AW: Autofilter bei Dateiöffnung zurücksetzen Version: Office 2003
meinst du das:
If Tabelle4.AutoFilterMode Then _
Tabelle4.AutoFilterMode = False
  Thema: Wert in einer Spalte suchen und Ergebnis übernehmen 
Phelan XLPH

Antworten: 1
Aufrufe: 298

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Aug 2009, 16:59   Titel: AW: Wert in einer Spalte suchen und Ergebnis übernehmen Version: Office 2k (2000)
Hier ne Variante ohn vba:
Tabelle2  ABCD1ABCD211113112141212558456123473129 [url=http://www.office-loesung.de/ftopic91422_0_0_asc.php]Excel Jeanie Html

Tabelle3 &nbsp;ABCDEF1ABCD-ermitteltIDQIDZ2166#NV1111663112111211241212121121511215841126000#NV1230007&nbsp;&nbsp;&nbsp;0312&nbsp;81234&nbsp;123Formeln der TabelleZelleFormelD2=INDIREKT("Tabelle2!D"&VERGLEICH(F2;$E$2:$E$10000;0)+1)E2=Tabelle2!A2&Tabelle2!B2&Tabelle2!C2F2=A2&B2&C2D3=INDIREKT("Tabelle2!D"&VERGLEICH(F3;$E$2:$E$10000;0)+1)E3=Tabelle2!A3&Tabelle2!B3&Tabelle2!C3F3=A3&B3&C3D4=INDIREKT("Tabelle2!D"&VERGLEICH(F4;$E$2:$E$10000;0)+1)E4=Tabelle2!A4&Tabelle2!B4&Tabelle2!C4F4=A4&B4&C4D5=INDIREKT("Tabelle2!D"&VERGLEICH(F5;$E$2:$E$10000;0)+1)E5=Tabelle2!A5&Tabelle2!B5&Tabelle2!C5F5=A5&B5&C5D6=INDIREKT("Tabelle2 ...
  Thema: Bauteile prüfen!? 
Phelan XLPH

Antworten: 13
Aufrufe: 254

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Aug 2009, 16:36   Titel: AW: Bauteile prüfen!? Version: Office 2007
Vielleicht liegts ja daran.

Für mal folgenden Code aus:
Sub EreignisseWiederAktivieren()
Application.EnableEvents = True
End Sub
  Thema: Suche einen Professionellen VBA Programmierer... 
Phelan XLPH

Antworten: 6
Aufrufe: 421

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Aug 2009, 16:28   Titel: AW: Suche einen Professionellen VBA Programmierer... Version: Office 2003
schreib mir ne PN mit deiner E-Mail-Adresse
  Thema: Bauteile prüfen!? 
Phelan XLPH

Antworten: 13
Aufrufe: 254

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Aug 2009, 15:42   Titel: AW: Bauteile prüfen!? Version: Office 2007
vielleich so:

Private Sub worksheet_change(ByVal target As Range)
Dim row As Double
Dim col As Double
Dim e As Double


row = target.row
col = target.Column

If col = 3 Then
Select Case Tabelle1.Cells(row, 3).Value
Case "CPU 315F", "CPU 315F-2DP", "CPU 317F-2DP", _
"CPU 315F-2PN/DP", "CPU 317F-2PN/DP", "CPU 319F-3PN/DP", _
"SM 326 24DE", "SM 326 8DE", "SM326 10DA", "SM326 8DA", _
"SM 326", "Trennbaugruppe", "CPU 416F-2", "CPU 416F-3PN/DP"
Tabelle1.Cells(row, 7).Value = 3
End Select
End If

Select Case Cells(row, col)
Case 3
Cells(row, 8) = 10 ^ -8
Case 2
Cells(row, 8) = 10 ^ -7
Case 1
Cells(row, 8) = 10 ^ -6
End Select


If col = 3 Then
With Tabelle1.Cells(row, 3)
I ...
  Thema: Oder 
Phelan XLPH

Antworten: 4
Aufrufe: 167

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Aug 2009, 15:07   Titel: AW: Oder Version: Office XP (2002)
DialogSheets?!

...kenne ich nicht. Vielleicht hilft jemand anders. Aber von der Syntax her müssts
passen.
  Thema: Oder 
Phelan XLPH

Antworten: 4
Aufrufe: 167

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Aug 2009, 14:53   Titel: AW: Oder Version: Office XP (2002)
If a=1 or a=5 Then Msgbox "gut"
  Thema: Suche einen Professionellen VBA Programmierer... 
Phelan XLPH

Antworten: 6
Aufrufe: 421

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Aug 2009, 14:50   Titel: AW: Suche einen Professionellen VBA Programmierer... Version: Office 2003
Money rules the world Very Happy

...so ne Schleife bekomme ich noch gebastelt.

Was muss den erledigt werden?
 
Seite 569 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 566, 567, 568, 569, 570, 571, 572 ... 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