Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 226 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 223, 224, 225, 226, 227, 228, 229 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Listenabgleich in selber Zeile / Differenzen 
Phelan XLPH

Antworten: 13
Aufrufe: 212

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2011, 14:56   Titel: AW: Listenabgleich in selber Zeile / Differenzen Version: Office 2003
Das muss so heißen (Da fehlt ein Punkt):

With Intersect(.UsedRange, .Range("BVery Happy")).Offset(1)

Abgesehen davon, hast du denn ein Blatt mit dem CodeNamen Tabelle3?
  Thema: Suchen und Ersetzben, nur nach ganzen Wörtern 
Phelan XLPH

Antworten: 9
Aufrufe: 281

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2011, 14:45   Titel: AW: Suchen und Ersetzben, nur nach ganzen Wörtern Version: Office 2003
.Execute FindText:=strSuchen, MatchWholeWord:=True, ReplaceWith:=strErsetzen, Replace:=wdReplaceAll
  Thema: Listenabgleich in selber Zeile / Differenzen 
Phelan XLPH

Antworten: 13
Aufrufe: 212

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2011, 14:40   Titel: AW: Listenabgleich in selber Zeile / Differenzen Version: Office 2003
Sub rinkadink()
Dim i As Long

Application.ScreenUpdating = False

With Tabelle3
With Intersect(.UsedRange, Range("B:D")).Offset(1)
For i = 1 To 26
.Replace Chr(i + 64), "", , , False
Next
End With

For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 2 Step -1
If .Cells(i, 2) = .Cells(i, 4) Or .Cells(i, 2) = .Cells(i, 4) Or .Cells(i, 4) = "" Then
.Rows(i).Delete
End If
Next

End With

Application.ScreenUpdating = True
End Sub
  Thema: Wenn, dann kopiere 
Phelan XLPH

Antworten: 4
Aufrufe: 161

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2011, 14:08   Titel: AW: Wenn, dann kopiere Version: Office 2003
Dim rngBereich As Range

Sub SuKo()
Dim vntZeile As Variant
Dim vntWert As Variant
Dim i As Long

If Not rngBereich Is Nothing Then Exit Sub

With Tabelle1
For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 1 Step -1
vntWert = .Cells(i, 1).Value
If vntWert <> "" Then
vntZeile = Application.Match(vntWert, Tabelle2.Range("A:A"), 0)
If Not IsError(vntZeile) Then
.Cells(i + 1, 1).Value = Tabelle2.Cells(vntZeile, 3)
.Cells(i + 2, 1).Value = Tabelle2.Cells(vntZeile, 4)
End If
Else
If rngBereich Is Nothing Then
Set rngBereich = .Cells(i, 1)
Else
Set rngBereich = Union(rngBereich, .Cells(i, 1)& ...
  Thema: Spalte aus einer Range ermitteln 
Phelan XLPH

Antworten: 6
Aufrufe: 183

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2011, 13:03   Titel: AW: Spalte aus einer Range ermitteln Version: Office 2010
Smile ...bereits gelöst.
  Thema: Bei bestimmten Zellenwert -> Zeilen ausblenden 
Phelan XLPH

Antworten: 4
Aufrufe: 129

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2011, 12:38   Titel: AW: Bei bestimmten Zellenwert -> Zeilen ausblenden Version: Office 2003
Ins Codefenster der Tabelle:

Private Sub Worksheet_Calculate()
On Error GoTo ENDE
Application.EnableEvents = False
Application.ScreenUpdating = False
Rows.Hidden = False
Range("A:A").SpecialCells(xlCellTypeFormulas, xlLogical).EntireRow.Hidden = True
ENDE:
'If Err Then MsgBox Err.Description, , "Fehler: " & Err
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
  Thema: Bei bestimmten Zellenwert -> Zeilen ausblenden 
Phelan XLPH

Antworten: 4
Aufrufe: 129

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2011, 12:16   Titel: AW: Bei bestimmten Zellenwert -> Zeilen ausblenden Version: Office 2003
Dazu brauchst du keon Makro.

Bau es in deine Formel mit ein.

Bsp. =if(technic!$B$1=1,'i-user'!B11,"")
Statt False steht ein Leerstring in der Zelle.

Bei den anderen Formeln fragst du auf Fehler ab und reagierts ebenso
mit einem Leerstring.
  Thema: Application.FileSearch - Bitte um Hilfe! 
Phelan XLPH

Antworten: 4
Aufrufe: 407

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2011, 12:07   Titel: AW: Application.FileSearch - Bitte um Hilfe! Version: Office 2010
Beitrag von Case [url=http://www.office-loesung.de/ftopic287758_0_0_asc.php]>>
  Thema: Formel als Makro umsetzen 
Phelan XLPH

Antworten: 9
Aufrufe: 165

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2011, 12:02   Titel: AW: Formel als Makro umsetzen Version: Office 2007
ahhh...ok.
  Thema: Automatischer Erweiterter Filter - Worksheet Calculate 
Phelan XLPH

Antworten: 2
Aufrufe: 494

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2011, 11:51   Titel: AW: Automatischer Erweiterter Filter - Worksheet Calculate Version: Office 2010
Hallo,

woran das liegen kann, kann ich dir jetzt auch nicht sagen.

Hier 2 Codes um Unikate zu erstellen:

Sub Unikate_1()
Dim ar As Variant
Tabelle1.Activate
ar = Split(Replace(Replace(Join([Transpose(IF(IF(ISNUMBER(MATCH(E3:E212,E3:E212,0)),MATCH(E3:E212,E3:E212,0))=ROW(E3:E212)-2,E3:E212))], ";"), False & ";", ""), ";" & False, ""), ";")
Range("AQ37").Resize(UBound(ar) + 1) = WorksheetFunction.Transpose(ar)
End Sub
Sub Unikate_2()
Dim ar As Variant
Dim i As Long
Dim D As Object
Set D = CreateObject("Scripting.Dictionary")
With Tabelle1
ar = .Range("E3:E" & WorksheetFunction.Max(3, .Cells(.Rows.Count, 5).End(xlUp).Row ...
  Thema: Formel als Makro umsetzen 
Phelan XLPH

Antworten: 9
Aufrufe: 165

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2011, 11:25   Titel: AW: Formel als Makro umsetzen Version: Office 2007
Da langen doch 2 Bed. Formatierungen.
  Thema: Wenn, dann kopiere 
Phelan XLPH

Antworten: 4
Aufrufe: 161

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2011, 11:15   Titel: AW: Wenn, dann kopiere Version: Office 2003
Hallo mastanor,

Sub SuKo()
Dim vntZeile As Variant
Dim vntWert As Variant
Dim i As Long
With Tabelle1
For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 1 Step -1
vntWert = .Cells(i, 1).Value
If vntWert <> "" Then
vntZeile = Application.Match(vntWert, Tabelle2.Range("A:A"), 0)
If Not IsError(vntZeile) Then
.Cells(i + 1, 1).Value = Tabelle2.Cells(vntZeile, 3)
.Cells(i + 2, 1).Value = Tabelle2.Cells(vntZeile, 4)
End If
End If
Next
End With
End Sub
  Thema: Private Sub per Call oeffnen 
Phelan XLPH

Antworten: 6
Aufrufe: 308

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2011, 10:34   Titel: AW: Private Sub per Call oeffnen Version: Office 2003
Hallo,

gut erklärt Daniel.

(Was war denn so falsch an meiner Antwort?)

[url=http://www.online-excel.de/excel/singsel_vba.php?f=16]Hier nochmal anhand eines guten Bespiels.
  Thema: Export in txt 
Phelan XLPH

Antworten: 9
Aufrufe: 181

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2011, 10:17   Titel: AW: Export in txt Version: Office 2010
Versuchs hiermit:

Sub txt_Exp()
Dim vntPfad As Variant
Dim ar As Variant
Dim sTxt As String
Dim i As Long
Dim k As Integer
Dim vntAnzZeichen() As Variant


vntPfad = Application.GetSaveAsFilename(fileFilter:="Text Dateien (*.txt), *.txt")
If VarType(vntPfad) = 11 Then Exit Sub

vntAnzZeichen = Array(3, 14, 13, 13, 8, 4, 9, 1, 2, 1, 1, 1, 2, 1, 1)

With Tabelle1
ar = Intersect(.UsedRange, .Range("I4:W" & .Rows.Count))
End With

For i = 1 To UBound(ar)
For k = 1 To UBound(ar, 2)
If k >= 3 Then If k <= 5 Then ar(i, k) = Format(ar(i, k), "0.000")
If vntAnzZeichen(k - 1) - Len(ar(i, k)) > 0 Then
ar(i, k&# ...
  Thema: Eingabeabhängikeiten von mehreren Zellen zueinander 
Phelan XLPH

Antworten: 4
Aufrufe: 153

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Nov 2011, 21:51   Titel: AW: Eingabeabhängikeiten von mehreren Zellen zueinander Version: Office 2010
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ENDE
Application.EnableEvents = False
With Range("A1,D1,G1,J1")
If Not Intersect(Target, .Cells) Is Nothing Then
If WorksheetFunction.CountA(Intersect(Target, .Cells)) Then
.Cells.Value = Empty
Intersect(Target, .Cells).Cells(1).Value = "X"
ElseIf WorksheetFunction.CountA(.Cells) = 0 Then
Range("A4,D4,G4,J4") = Empty
End If
End If
End With
With Range("A4,D4,G4,J4")
If WorksheetFunction.CountA(Range("A1,D1,G1,J1")) Then
If Not Intersect(Target, .Cells) Is Nothing Then
If WorksheetFunction.CountA(Intersect(Target, .Cells)) Then
.Cells.Value = Empty
...
 
Seite 226 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 223, 224, 225, 226, 227, 228, 229 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Macromedia Dreamweaver