|
Excel : Arbeitsmappe umbenennen
Beverly am 16.03.2014 um 10:35 Uhr (1)
Hi Uwe,die aktive (geöffnete) Arbeitsmappe kannst du nicht umbenennen - du kannst sie nur unter einem anderen Namen speichern. Dazu gibt es die Möglichkeiten SaveAs oder SaveCopyAs - schau dazu mal in die VBA-Hilfe.Am einfachsten ist es, die Aktion mit dem Makrorekorder aufzuzeichnen und dann im aufgezeichneten Code den fixen Namen durch den Inhalt einer Zelle zu ersetzen.------------------Bis später,Karin
| | In das Form Excel wechseln |
|
Excel : VBA - Excel - und-color: #FFFF99'>Suchen und Ersetzen
Beverly am 23.08.2016 um 09:23 Uhr (1)
Hi Andy,mal eine Frage: weshalb läufst du in einer Schleife über alle Zellen? Das geht auch auch auf einen RittCode: Columns("A:W").Replace What:=";", Replacement:="|", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False------------------Bis später,Karin
| | In das Form Excel wechseln |
|
Excel : VBA - Excel - und-color: #FFFF99'>Suchen und Ersetzen
Beverly am 24.08.2016 um 14:05 Uhr (1)
Hi Andi,leider bekomme ich vom Forum keine Meilbenachrichtigung bei neuen Beiträgen, sodass ich deine Rückfrage erste jetzt gelesen habe - aber du hast ja im Prinzip trotzdem die Lösung bekommen. Allerdings muss ich auf folgendes hinweisen:Zitat:am Anfang des Makros. Am Ende wieder auf "True" setzen, wenn gewünscht.Ich würde diesen Parameter am Ende des Makros UNBEDINGT IMMER wieder auf True setzen, denn False bleibt sonst die komplette Sitzung bestehen und es werden dann überhaupt keine Fehlermeldungen me ...
| | In das Form Excel wechseln |
|
Excel : Zahlenreihe und-color: #FFFF99'>suchen und Zeile löschen per VBA
Beverly am 07.12.2010 um 10:31 Uhr (0)
Hi,ja, das ist möglich. Du musst dann nur eine weitere Schleife außen herum machen, in welcher du die Zeilen der anderen xls- oder txt-Datei durchläufst und jede Zeile mit allen Zeilen der zu prüfenden Datei vergleichst.------------------Bis später,Karin
| | In das Form Excel wechseln |
|
Excel : Wert in Spalte und-color: #FFFF99'>suchen
Beverly am 29.07.2009 um 10:51 Uhr (0)
Hi,ich nehme an, die Füllfarbe ist von Hand gesetzt und nicht mittels bedingter Formatierung und die Zellen haben ein Benuzterdefiniertes Zahlenformat wie X #0,0 bzw. Y #0,0? Definiere einen Namen (z.B. Füllfarbe) und gib unter Bezieht sich auf ein: =ZELLE.ZUORDNEN(63;INDIREKT("ZS(-1)"; )). Trage dann in die Spalte B die Formel =Füllfarbe ein - bei den gelben Zellen wird eine 6 wiedergegeben. Mit der folgenden Formel erhältst du dann den ersten Wert der gelben Zellen: {=INDEX(A1:A1000;MAX((A1:A10000)*(B1:B ...
| | In das Form Excel wechseln |
|
Excel : Zahlenreihe und-color: #FFFF99'>suchen und Zeile löschen per VBA
Beverly am 07.12.2010 um 09:51 Uhr (0)
Hi,versuche es mal so:Code:Sub Loeschen() Dim lngZeile As Long Dim strKombi As String For lngZeile = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) To 1 Step -1 strKombi = Cells(lngZeile, 1) & "/" & Cells(lngZeile, 2) & "/" & Cells(lngZeile, 3) & "/" & Cells(lngZeile, 4) & "/" & _ Cells(lngZeile, 5) & "/" & Cells(lngZeile, 6) If InStr(strKombi, "1/2/3") 0 Or InStr(strKombi, "12/13/14") 0 Then Rows(lngZeile).Delete Next lngZeileEnd SubEs wird gelöscht, we ...
| | In das Form Excel wechseln |
|
Excel : Wert in Spalten und-color: #FFFF99'>suchen und Datum in Tabelle 2 ausgeben
Beverly am 29.06.2012 um 10:23 Uhr (0)
Hi,meinst du das so:Code:Sub Uebertragen() Dim lngZeileStart As Long Dim lngZeileZiel As Long Dim intSpalteStart As Integer lngZeileStart = 2 With Worksheets("Beispiel") For intSpalteStart = 2 To 12 Cells(1, intSpalteStart).Copy .Cells(intSpalteStart - 1, 1) For lngZeileStart = 2 To 33 If Cells(lngZeileStart, intSpalteStart) = 4 Then Cells(lngZeileStart, 1).Copy .Cells(intSpalteStart - 1, _ IIf(IsEmpty(.Cells(intSpalteStart - 1, .Columns.Count)), _ .Cells(intSpalt ...
| | In das Form Excel wechseln |
|
Excel : Zeilen mit bestimmter Zellenfarbe und-color: #FFFF99'>suchen und ganze Zeile löschen
Beverly am 11.10.2010 um 15:29 Uhr (0)
Hi,ungetestet:Code:Sub Farbenlöschen() Dim lngZeile As Long Dim wshTabelle As Worksheet For Each wshTabelle In ActiveWorkbook.Worksheets With wshTabelle For lngZeile = .UsedRange.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1 If Cells(lngZeile, 1).Interior.ColorIndex = 6 And Cells(lngZeile, 2).Interior.ColorIndex = 6 And _ Cells(lngZeile, 3).Interior.ColorIndex = 6 And Cells(lngZeile, 4).Interior.ColorIndex = 4 And _ Cells(lngZeile, 5).Interior.Colo ...
| | In das Form Excel wechseln |
 |
Excel : Spaltenname
Beverly am 22.04.2014 um 10:58 Uhr (1)
Kann ich nicht nachvollziehen - sobald ich die von Excel als Spaltenüberschrift automatisch eingetragenen Bezeichnungen von Hand ändere, sind sie auch geändert und ersetzen die automatisch eingetragenen (siehe Spalte A im angehängten Screenshot).Ich benutze Excel2010.------------------Bis später,Karin[Diese Nachricht wurde von Beverly am 22. Apr. 2014 editiert.]
| | In das Form Excel wechseln |
|
Excel : Buchstabe in eingefärbter Zelle
Beverly am 14.07.2011 um 10:04 Uhr (0)
Hi Silke,ist die Zelle mit der bedingten Formatierung ein Formelergebnis oder eine Eingabezelle? Im erstgenannten Fall, trifft die von runkelruebe gepostete Lösung zu. Im zweiten Fall ist es ohne VBA erst ab Excel2007 möglich, eine Eingabe per bedingter Formatierung durch einen anderen Anzeigewert zu ersetzen, da ab Excel2007 die bedingte Formatierung nicht nur Schrift, Rahmen und Muster sondern auch ein Zahlenformat als Formatierung anbietet.------------------Bis später,Karin
| | In das Form Excel wechseln |
|
Excel : Diagrammzuordnung in Masse ändern
Beverly am 03.11.2009 um 13:20 Uhr (0)
Hi Carsten,vom Prinzip her hast du den Code richtig interpretiert. Hier der Code noch einmal mit den betreffenden Kommentaren (die eine Variable habe ich weggelassen, wird nicht benötigt):Code:Sub DiagrammeKopieren() Dim strTabelle As String Dim serReihe As Object Dim inDiagramm As Integer Dim inZeile As Integer Schlife über die aufgelisteten Zeilen For inZeile = 1 To 3 Tabellenblatt mit den Ausgansdiagrmamen kopieren Worksheets("Tabelle1").Copy after:=Worksheets(Worksheets.Count) Schleif ...
| | In das Form Excel wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
