Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 600 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 597, 598, 599, 600, 601, 602, 603 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: alle Zeilen,einer Spalte durchsuchen andere Zelle Eintrag 
Phelan XLPH

Antworten: 8
Aufrufe: 770

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. Jul 2009, 01:06   Titel: AW: alle Zeilen,einer Spalte durchsuchen andere Zelle Eintra Version: Office 2003
hei,

teste mal:

Sub SuchenUndEintragen()
Dim SuchWert() As Variant
Dim Eintrag() As Variant
Dim arr As Variant
Dim i As Long, k As Long

SuchWert = Array(400250, 400400) 'Anpassen und ggf. erweitern
Eintrag = Array("gefunden", "verkauft") 'Anpassen und ggf. erweitern

With Tabelle1 'Anpassen
arr = .Range("C1:F" & .Cells(.Rows.Count, 3).End(xlUp).Row)
For i = 0 To UBound(SuchWert)
For k = 1 To UBound(arr)
If arr(k, 1) = SuchWert(i) Then _
arr(k, 4) = Eintrag(i)
Next
Next
.Range("C1:F" & .Cells(.Rows.Count, 3).End(xlUp).Row) = arr
End With
End Sub
  Thema: Handle eines Tabellenblatt ermittel 
Phelan XLPH

Antworten: 3
Aufrufe: 212

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. Jul 2009, 00:26   Titel: AW: Handle eines Tabellenblatt ermittel Version: Office 2007
Zwar weiss ich immer noch nicht was du bezwecken möchtest oder
was dein Ziel ist, aber du kannst dir wie folgt die Ereignisse des Blattes
anzeigen lassen:

-rechtsklick auf Tabellenreiter
-Code anzeigen...
-im rechten fenster obere linke ComboBox "Worksheet" wählen.
-dann werden in der rechten ComboBox weitere Ereignisse zu "Worksheet"
angezeigt.

Das mit MoseOver liesse sich vielleicht auch anders lösen...
  Thema: Handle eines Tabellenblatt ermittel 
Phelan XLPH

Antworten: 3
Aufrufe: 212

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Jul 2009, 18:19   Titel: AW: Handle eines Tabellenblatt ermittel Version: Office 2007
wozu? nur mal interessehalber
  Thema: Wert bei Änderung in anderer Tabelle sofort aktualisieren 
Phelan XLPH

Antworten: 4
Aufrufe: 666

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Jul 2009, 18:13   Titel: AW: Wert bei Änderung in anderer Tabelle sofort aktualisiere Version: Office XP (2002)
@4711

na dann hoff mal, dass nicht alle Zellen ausgewählt werden,
denn bis die For...Each Schleife alle Zellen durchhat, kann man getrost Feierabend
machen. Very Happy Laughing
  Thema: String mit Prozent zu Zahlenwert 
Phelan XLPH

Antworten: 2
Aufrufe: 616

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Jul 2009, 18:06   Titel: AW: String mit Prozent zu Zahlenwert Version: Office 2003
ein Bsp:

MsgBox CDbl(Replace("2,58%", "%", "")) * 10
  Thema: Dateien mit Dateinamen in Arbeitsblättern speichern 
Phelan XLPH

Antworten: 3
Aufrufe: 193

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Jul 2009, 17:28   Titel: AW: Dateien mit Dateinamen in Arbeitsblättern speichern Version: Office 2003
Hola,

hab mal angenommen dass die txt-Dateien als Trennzeichen ein "Tab" oder ";"
haben:

Sub OpenTextFileImportWriteAll()
Dim fs As Object, f As Object
Dim TxT As String
Dim strDatei As String
Dim strPfad As String
Dim strSuchMuster As String

Set fs = CreateObject("Scripting.FileSystemObject")

strPfad = "d:\test\" 'Anpassen
strSuchMuster = "file*.txt" 'Anpassen

strDatei = Dir(strPfad & strSuchMuster, vbDirectory)
Do While strDatei <> ""
Set f = fs.OpenTextFile(strPfad & strDatei, 1, False, 0)
Schreiben f.ReadAll
f.Close

Worksheets.Add after:=Worksheets(Worksheets.Count)
With ActiveSheet
.Name = Left(strDatei, Len(strDatei) - 4)
.Paste .Range("A1")
Range("A& ...
  Thema: bestimmte zeilen und rest kopieren 
Phelan XLPH

Antworten: 4
Aufrufe: 284

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Jul 2009, 16:49   Titel: AW: bestimmte zeilen und rest kopieren Version: Office 2003
auch ne Variante:

Sub DatensaetzeTeilen()
Dim i As Long
Dim lz As Long
Dim arr() As Variant
Dim schritt As Long

With Worksheets("Tabelle1") 'Anpassen
lz = .Cells(.Rows.Count, 1).End(xlUp).Row
schritt = Int(Application.InputBox("Step? (max. " & lz & ")", Type:=1))
If schritt > lz Or schritt <= 0 Then Exit Sub

Application.ScreenUpdating = False

ReDim arr(1 To lz, 1 To 1)
For i = 1 To lz
arr(i, 1) = IIf(i - Int(i / schritt) * schritt = 0, 1, 0)
Next

.Range("A:A").Insert
.Range("A1").Resize(UBound(arr)) = arr

.Rows(1).AutoFilter 1, 1
.AutoFilter.Range.SpecialCells(xlCellTypeVisible).EntireRow.Copy _
Worksheets.Add.Range("A1")
Range("A:A&quo ...
  Thema: Zeile suchen bei Tabelle mit zweizeiliger Überschrift 
Phelan XLPH

Antworten: 4
Aufrufe: 400

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Jul 2009, 15:30   Titel: AW: Zeile suchen bei Tabelle mit zweizeiliger Überschrift Version: Office 2003
@A4711

wo ist da jetzt der Unterschied?
  Thema: Combobox Probleme 
Phelan XLPH

Antworten: 2
Aufrufe: 778

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Jul 2009, 15:03   Titel: AW: Combobox Probleme Version: Office 2003
Dann befindet sich die Combobox wohl nicht im aktiven Blatt!

sprich das Blatt explizit an, zB:
Worksheets("Tabelle1").ComboBox1.ListFillRange = "e4:e4"
blaumarkiertes Anpassen
  Thema: Makro auf alle .csv die bestimmten Werte besitzen 
Phelan XLPH

Antworten: 8
Aufrufe: 809

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Jul 2009, 14:38   Titel: AW: Makro auf alle .csv die bestimmten Werte besitzen Version: Office 2k (2000)
Nun bei mir funktionierts hab aber XL2007

vielleicht den Rat von r.mueller befolgen. Crying or Very sad
  Thema: bestimmte Dateien in Ordner zählen 
Phelan XLPH

Antworten: 7
Aufrufe: 3151

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Jul 2009, 14:34   Titel: AW: bestimmte Dateien in Ordner zählen Version: Office 2003
strSuchMuster = "file*.txt" 'Anpassen

blaumarkiertes hinzufügen 8)
  Thema: Formel automatisch löschen 
Phelan XLPH

Antworten: 6
Aufrufe: 220

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Jul 2009, 14:24   Titel: AW: Formel automatisch löschen Version: Office 2003
ja das ist nicht ganz einfach...

wenn du das hier nimmst
IsNumeric(objCell.Value)
dann wird das Datum nicht erkannt.

Hast du den ein Datum das von einer Formel zurückgegeben wird?
  Thema: bestimmte Dateien in Ordner zählen 
Phelan XLPH

Antworten: 7
Aufrufe: 3151

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Jul 2009, 14:07   Titel: AW: bestimmte Dateien in Ordner zählen Version: Office 2003
Je servus almdudler Laughing

teste mal:
Sub DateienZaehlen()
Dim strPfad As String
Dim strDatei As String
Dim strSuchMuster As String
Dim intCounter As Integer

strPfad = "d:\test\" 'Anpassen
strSuchMuster = "*.txt" 'Anpassen

strDatei = Dir(strPfad & strSuchMuster, vbDirectory)
Do While strDatei <> ""
intCounter = intCounter + 1
strDatei = Dir
Loop
MsgBox "Anzahl [" & strSuchMuster & "]-Dateien in [" & _
strPfad & "]: " & intCounter
End Sub
  Thema: Formel automatisch löschen 
Phelan XLPH

Antworten: 6
Aufrufe: 220

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Jul 2009, 14:01   Titel: AW: Formel automatisch löschen Version: Office 2003
wenn alle Formeln in dem Bereich in Festwerte umgewandelt werden sollen
dann geht das auch so:

Sub AlleFormelnInFestwerte()
With Range("B5:C87")
.Value = .Value
End With
End Sub
  Thema: Berechnung von Steigungsabschnitten 
Phelan XLPH

Antworten: 10
Aufrufe: 377

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Jul 2009, 13:45   Titel: AW: Berechnung von Steigungsabschnitten Version: Office 2007
Hallo,

schau mal ob das so passt(beginn Zeile 3)

Sub Steigung()
Dim i As Long
Dim abschnitt As Double
Dim abfall As Boolean

With ThisWorkbook.Worksheets("Tabelle1")
.Range("C:D").ClearContents
abschnitt = .Cells(3, 2)
For i = 3 To .Cells(.Rows.Count, 2).End(xlUp).Row
If .Cells(i + 1, 2) < .Cells(i, 2) And abfall = False Then
abschnitt = .Cells(i, 2)
.Cells(i, 4) = .Cells(i, 2)
.Cells(i, 3) = .Cells(i, 1)
abfall = True
ElseIf .Cells(i + 1, 2) > .Cells(i, 2) And abfall = True Then
abschnitt = .Cells(i, 2)
.Cells(i, 4) = .Cells(i, 2)
.Cells(i, 3) = .Cells(i, 1)
abfall = False
ElseIf .Cells(i, 2) >= abschnitt + 10 And abfall = False The ...
 
Seite 600 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 597, 598, 599, 600, 601, 602, 603 ... 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